if then Anweisung, Scriptprobleme.

[stefan]

hallo,
ich habe ein Formular, bei dem der User ein Datumswert eingeben kann oder wahlweise einen Textwert. Der gewählte Wert wird in eine Datenbank gesendet. Nun soll, wenn der Textwert gewählt wird, der Datumswert unterdrückt werden, da die Datenbank einen Datumswert erwartet.
Das möchte ich mit einer if then Anweisung machen. Aber es klappt nicht.
wer kann helfen...?
vielen Dank und viele Grüße
stefan

hier der Formularauszug:
<td>ab dem<br><input type="text" name="ab" size="2" onChange="numerisch(this)">
<input type="text" name="ab" size="2" onChange="numerisch(this)">
<input type="text" name="ab" size="4" onChange="numerisch(this)">
   bzw.<br>Tag Monat Jahr</td>
<td>
<select name="so"><option value="ab sofort">absofort</option>
<option value="nach Vereinbarung">nach Vereinbarung</option>
<option value="laufend gesucht">laufend gesucht</option>
</select>
</td>

hier 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")
lngab=Request.Form("ab")             'Datumswert
so=Request.Form("so")                'Textwert
Firmenprofil=Request.Form("Firmenprofil")
Jobprofil=Request.Form("Jobprofil")
Anforderungen=Request.Form("Anforderungen")
if not Request.Form.Count=0 then
ok = true
if ok then
if Request.Form("ab")="" 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], 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
end if
end if
%>