nicht angemeldet
Hi Frank,
ok, hier kommt der Quelltext. Da ich ein ASP-Anfänger bin, hab ich den Quelltext von irgendeiner ASP-Seite. Hab es dann nur noch ein wenig abgeändert.
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>Unbenannt</title>
</head>
<body>
<%
Set conn = Server.CreateObject("ADODB.Connection") ' --- Instanzieren einer neuen Verbindung
conn.open "anmeldung","","" ' --- Öffnen der angegebenen Verbindung
%>
<%
SQL = "Select * from T_Anmeldung where [TitelAbst] = '"&Request.Form("TitelAbst")&"'"
Set rs = Server.CreateObject("ADODB.Recordset") ' --- RecordSet-Objekt instanzieren
rs.Open sql, conn, 3, 3 ' --- Abfrage starten
%>
<%
if rs.bof and rs.eof then
response.write("Datensatz wird angelegt")
if rs.supports(adupdate+adaddnew) then
rs.addnew
rs.fields("AnredeID")=request.form("AnredeID")
rs.fields("Titel")=request.form("Titel")
rs.fields("Vorname")=request.form("Vorname")
rs.fields("Nachname")=request.form("Nachname")
rs.fields("Institution")=request.form("Institution")
rs.fields("Strasse")=request.form("Strasse")
rs.fields("PLZ")=request.form("PLZ")
rs.fields("Ort")=request.form("Ort")
rs.fields("Land")=request.form("Land")
rs.fields("E-Mail")=request.form("E-Mail")
rs.fields("Telefon")=request.form("Telefon")
rs.fields("Fax")=request.form("Fax")
'rs.fields("Verteilerliste")=request.form("Verteilerliste")
rs.fields("Handy")=request.form("Handy")
rs.fields("TitelAbst")=request.form("TitelAbst")
rs.fields("Autor")=request.form("Autor")
rs.fields("Abstract")=request.form("Abstract")
else
response.write("Aktualisierung nicht möglich")
end if
else
response.write("Titel des Abstracts ist bereits vorhanden")
end if
%>
<TABLE border=1>
<thead>
<TR>
<Th><B>Anrede</B></Th>
<Th><B>Titel</B></Th>
<Th><B>Vorname</B></Th>
<Th><B>Nachname</B></Th>
<Th><B>Institution</B></Th>
<Th><B>Strasse</B></Th>
<Th><B>PLZ</B></Th>
<Th><B>Ort</B></Th>
<Th><B>Land</B></Th>
<Th><B>E-Mail</B></Th>
<Th><B>Telefon</B></Th>
<Th><B>Fax</B></Th>
<Th><B>Handy</B></Th>
<Th><B>Titel Abstract</B></Th>
<Th><B>Autor</B></Th>
<Th><B>Abstract</B></Th>
</TR>
</thead>
<tbody>
<%rs.MoveFirst
do while Not rs.eof %>
<TR VALIGN=top>
<TD><%=rs.Fields("AnredeID")%></TD>
<TD><%=rs.Fields("Titel")%></TD>
<TD><%=rs.Fields("Vorname")%></TD>
<TD><%=rs.Fields("Nachname")%></TD>
<TD><%=rs.Fields("Institution")%></TD>
<TD><%=rs.Fields("Strasse")%></TD>
<TD><%=rs.Fields("PLZ")%></TD>
<TD><%=rs.Fields("Ort")%></TD>
<TD><%=rs.Fields("Land")%></TD>
<TD><a href="mailto:<%=rs.Fields("E-Mail")%>"><%=rs.Fields("E-Mail")%></a></TD>
<TD><%=rs.Fields("Telefon")%></TD>
<TD><%=rs.Fields("Fax")%></TD>
<TD><%=rs.Fields("Handy")%></TD>
<TD><%=rs.Fields("TitelAbst")%></TD>
<TD><%=rs.Fields("Autor")%></TD>
<TD><%=rs.Fields("Abstract")%></TD>
</TR>
<%
rs.MoveNext
loop
%>
</tbody>
</TABLE>
</body>
</html>