if then funktioniert nicht...?

[stefan]

hallo,
ich würde gerne mit einer if Anweisung 3 Formularfelder in eines setzen, um dieses dann in eine Datenbank zu senden.
Ich bekomme bei dem Konstrukt, wleches ich gebalstelt habe, zwar keine Fehlermeldung, aber die Daten werden nicht in die Datenbank aufgenommen. Weiß jemand worans liegt?
Danke und viele Grüße
stefan

Die 3 Formularfelder:

<td>ab dem<br><input type="text" name="tag" size="2" onChange="numerisch(this)">
<input type="text" name="monat" size="2" onChange="numerisch(this)"><input type="text" name="jahr" size="4" onChange="numerisch(this)"><input type="hidden" name="ab"></td>

Das Script:

<%
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")
lngtag=Request.Form("tag")
lngmonat=Request.Form("monat")
lngjahr=Request.Form("jahr")
lngjahr=Request.Form("ab")
Firmenprofil=Request.Form("Firmenprofil")
Jobprofil=Request.Form("Jobprofil")
Anforderungen=Request.Form("Anforderungen")
tag = Request.Form("tag")
monat = Request.Form("monat")
jahr = Request.Form("jahr")
ab = Request.Form("ab")
if tag AND monat AND jahr ="" then
ok = true
if ok then
tag, monat, jahr = ab
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")
 sql = "INSERT INTO angebote (Anbieter, Ansprechpartner, Strasse, Stadt, Region, Telefon, Mail, Internet, Taetigkeit, [ab dem], 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 & "'" & firmenprofil & "',"
sql = sql & "'" & jobprofil & "',"
sql = sql & "'" & Anforderungen & "',"
sql = sql & "'" & lngdatum & "');"
 Set rs = Conn.execute(sql)
Conn.close
Set Conn = Nothing
end if
end if
end if
end if
%>

[stefan]

sorry,
hier die korrigierte Version. (lngab bei Request.Form("ab"))

Die 3 Formularfelder:

<td>ab dem<br><input type="text" name="tag" size="2" onChange="numerisch(this)">
<input type="text" name="monat" size="2" onChange="numerisch(this)"><input type="text" name="jahr" size="4" onChange="numerisch(this)"><input type="hidden" name="ab"></td>

Das Script:

<%
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")
lngtag=Request.Form("tag")
lngmonat=Request.Form("monat")
lngjahr=Request.Form("jahr")
lngab=Request.Form("ab")
Firmenprofil=Request.Form("Firmenprofil")
Jobprofil=Request.Form("Jobprofil")
Anforderungen=Request.Form("Anforderungen")
tag = Request.Form("tag")
monat = Request.Form("monat")
jahr = Request.Form("jahr")
ab = Request.Form("ab")
if tag AND monat AND jahr ="" then
ok = true
if ok then
tag, monat, jahr = ab
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")
sql = "INSERT INTO angebote (Anbieter, Ansprechpartner, Strasse, Stadt, Region, Telefon, Mail, Internet, Taetigkeit, [ab dem], 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 & "'" & firmenprofil & "',"
sql = sql & "'" & jobprofil & "',"
sql = sql & "'" & Anforderungen & "',"
sql = sql & "'" & lngdatum & "');"
Set rs = Conn.execute(sql)
Conn.close
Set Conn = Nothing
end if
end if
end if
end if
%>

[stefan]

sorry,
hat sich erledigt.
grüsse stefan