<%
Set Conn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.RecordSet")
Conn.Open "ae19_nms"
t = Request("t")
m = Request("m")
j = Request("j")
b1 = Request("b1")
b2 = Request("b2")
e1 = Request("e1")
e2 = Request("e2")
thema = Request("thema")
ort = Request("ort")
bundesland = Request("bundesland")
if isnumeric(t) and isnumeric(m) then
datum=t&"."&m
if isnumeric(j) then datum=datum&"."&j
if not isdate(datum) then datum=""
end if
if isnumeric(b1) and isnumeric(b2) then
beginn=b1&":"&b2
end if
if isnumeric(e1) and isnumeric(e2) then
ende=e1&":"&e2
end if
leer=""
if datum = "" then leer=leer + "Datum, "
if beginn = "" then leer=leer + "Beginn, "
if thema = "" then leer=leer + "Thema, "
if ort = "" then leer=leer + "Ort, "
if bundesland = "" then leer=leer + "Bundesland, "
if leer>"" then leer=mid(leer,1,len(leer)-2)
if leer="" then
sql="INSERT INTO termine(datum,beginn,ende,thema,ort,bundesland) values("
sql = sql & "'" & datum & "', "
sql = sql & "'" & beginn & "', "
sql = sql & "'" & ende & "', "
sql = sql & "'" & thema & "', "
sql = sql & "'" & ort & "', "
sql = sql & "'" & bundesland & "'"
sql = sql & ")"
'Response.Write sql &""
set rs = conn.Execute(sql)
Response.Redirect "zeitraum.asp?von="&datum&"&bis="&datum
end if
%>