nogen der ved hvordan jeg kan få mit booking system til at checke at
disse skal være udfyldt plus de skal indhole noget
og at hvis der er et indlæg skal den ikke create et nyt i db'en.
her er koden som laver fejl kun til en felt, jeg vil have til alle
sammen =):
<%
DBQ=Server.MapPath("kalender.mdb")
Set oConn = createObject("ADODB.Connection")
oConn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&DBQ
If Request.QueryString("dato")<>"" Then
dato = Request.QueryString("dato")
Set foddagbarn=oConn.Execute("Select * from kalender where
dag="&day(dato)&" and mdr="&month(dato))
Else
dato=Request.Form("dato")
Set foddagbarn=oConn.Execute("Select * from kalender where
dag="&day(dato)&" and mdr="&month(dato))
If Request.Form("navn")<>"" Then
If Request.Form("aar")<>"" Then
ip=Request.Form("ip")
pwd=Request.Form("pwd")
navn=Request.Form("navn")
adresse=Request.Form("adresse")
by_post=Request.Form("by_post")
tlf=Request.Form("tlf")
email=request.form("email")
menu1=Request.Form("menu1")
dag=Request.Form("dag")
mdr=Request.Form("mdr")
aar=Request.Form("aar")
If len(aar)=4 Then
'dato=dag&"-"&mdr&"-"&aar
oConn.execute("Insert Into kalender (ip, pwd, navn, adresse,
by_post, tlf, email, menu1, dato, dag, mdr, aar, oprettet) Values ('"&
Request.ServerVariables("REMOTE_ADDR") &"', '"& pwd &"','"& navn &"',
'"& adresse &"', '"& by_post &"', '"& tlf &"', '"& email &"', '"& menu1
&"', '"& dato &"', "& dag &", "& mdr &", "& aar &", '"& date() &"')")
Else
Fejl="<font face=verdana size=2 color=#ff0000>Fyld Venligst alle
felter med *.</font>"
End IF
Else
Fejl="<font face=verdana size=2 color=#ff0000>Fyld Venligst alle
felter med *.</font>"
End If
Else
Fejl="<font face=verdana size=2 color=#ff0000>Fyld Venligst alle
felter med *.</font>"
End If
End If
%>
<div align="center"><center>
<%
If not foddagbarn.EoF Then
%>
--
Leveret af:
http://www.kandu.dk/
"Vejen til en hurtig løsning"