if then Anweisung, Scriptprobleme.

[stefan]

huhu jenny,
bei mir funktionierts jetzt so:
Datenbankfeld geändert von Datum auf Text und Script sieht so aus:
vielen Dank
allerbeste Grüße
stefan
<%
lngdatum=Request.Form("datum")
stef=Request.Form("Anbieter")
Partner=Request.Form("partner")
Anschrift=Request.Form("Strasse")
Stadt=Request.Form("Stadt")
Region=Request.Form("Region")
lngTelefon=Request.Form("Telefon")
Mail=Request.Form("Mail")
Internet=Request.Form("Internet")
Taetigkeit=Request.Form("Taetigkeit")
lngab=Request.Form("ab")
so=Request.Form("so")
Firmenprofil=Request.Form("Firmenprofil")
Jobprofil=Request.Form("Jobprofil")
Anforderungen=Request.Form("Anforderungen")
if not Request.Form.Count=0 then
ok = true
if ok then
Set Conn = Server.CreateObject("ADODB.Connection")
strcon = "driver={Microsoft Access-Treiber (*.mdb)};" & _
          "dbq=" & Server.MapPath("db1a.mdb")
Conn.Open strcon,"",""
Set rs = Server.CreateObject("ADODB.Recordset")
if request("so") <> "" then
      lngab = request("so")
else
      lngab = request("ab")(1) & "." & request("ab")(2) & "." & request("ab")(3)
end if
 sql = "INSERT INTO angebote (Anbieter, Ansprechpartner, Strasse, Stadt, Region, Telefon, Mail, Internet, Taetigkeit, [ab dem], ab, Firmenprofil, Jobprofil, Anforderungen, datum) VALUES ("
sql = sql & "'" & stef & "',"
sql = sql & "'" & Partner & "',"
sql = sql & "'" & Anschrift & "',"
sql = sql & "'" & Stadt & "',"
sql = sql & "'" & Region & "',"
sql = sql & "'" & lngtelefon & "',"
sql = sql & "'" & mail & "',"
sql = sql & "'" & Internet & "',"
sql = sql & "'" & Taetigkeit & "',"
sql = sql & "'" & lngab & "',"
sql = sql & "'" & so & "',"
sql = sql & "'" & firmenprofil & "',"
sql = sql & "'" & jobprofil & "',"
sql = sql & "'" & Anforderungen & "',"
sql = sql & "'" & lngdatum & "');"
 Set rs = Conn.execute(sql)
Conn.close
Set Conn = Nothing
end if
end if
%>