if then Anweisung, Scriptprobleme.

[Jenny]

Alohahe again,

Ich habe immer noch zwei Probleme:

1. lngdatum ist zwar auch ein Datumswert(ich übertrage damit das aktuelle Datum), aber bei meinem Problem nicht relevant.

Schön für dich :)

lngab überträgt den Datumswert, den der Besucher eingibt(nicht den aktuellen (lngdatum), sondern irgendeinen). Wenn lngab nicht ausgefüllt wird, bekomme ich die Fehlermeldung:

Ob du jetzt request("lngdatum") oder request("lngab") nehmen musst ist mir persönlich Jacke wie Rock.

"Datentypen in Kriterienausdruck unverträglich",
weil das Datenbankfeld als Datum definiert ist.
Das heißt, ich möchte es sozusagen unterdrücken, wenn es nicht ausgefüllt worden ist.
so?!:

if request("so") <> "" then
      lngab = request("so")
else
      lngab = request("ab")(1) & "." & request("ab")(2) & "." & request("ab")(3)
end if

2. ähämm:
   ich weiss nicht genau, an welcher Stelle ich Dein Script einfügen muss.

<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="">---</option>
<option value="ab sofort">absofort</option>
<option value="nach Vereinbarung">nach Vereinbarung</option>
<option value="laufend gesucht">laufend gesucht</option>
</select>
</td>

<%
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")

if request("so") <> "" then
       lngab = request("so")
else
       lngab = request("ab")(1) & "." & request("ab")(2) & "." & request("ab")(3)
end if

Firmenprofil=Request.Form("Firmenprofil")
Jobprofil=Request.Form("Jobprofil")
Anforderungen=Request.Form("Anforderungen")

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")

' Datum wurde im TT/MM/JJJJ Format eingegeben
' Datum im TT/MM/JJJJ ins "ab dem" Feld (?)

if isdate(lngab) then

sql = "INSERT INTO angebote (Anbieter, Ansprechpartner, Strasse, Stadt, Region, Telefon, Mail, Internet, Taetigkeit, [ab dem], Firmenprofil, Jobprofil, Anforderungen, datum) VALUES ("

else

' "Datum" per Dropdownliste
' Dropdownauswahl ins ab Feld

sql = "INSERT INTO angebote (Anbieter, Ansprechpartner, Strasse, Stadt, Region, Telefon, Mail, Internet, Taetigkeit, ab, Firmenprofil, Jobprofil, Anforderungen, datum) VALUES ("

end if

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

Noch Fragen? :)

Jenny