Kun én reservation pr. dag. Vel egentlig bare If "exist"?
Nogen der kan give et bud på hvordan kan laver scriptet om, så der kun kan oprettes én post per dag / dato ??Ligenu kan man oprette alle de posts man vil og det er ikke så godt, da jeg vil bruge reservatioenerne til et enkelt produkt...
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Resevation-dansk</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<div align="center">
<p align="left"><br>
:: <a href="../index.htm">Forsiden</a> :: <a href="login.asp">Log ind</a>
::<br>
<%
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
%>
<table cellspacing="0" cellpadding="2" border="0" valign="top" style="border: 1px solid rgb(255,0,0)">
<%
Do while not foddagbarn.EoF
%>
<tr>
<td colspan="2"> <font face="verdana" size="2" color="#000000">Denne
dag er reseveret af <font color="#FF0000"><strong><%=foddagbarn.Fields("navn")%></strong></font>,
som vil flytte d.<strong><%=foddagbarn.Fields("dato")%></strong></font>
</td>
</tr>
<%
foddagbarn.MoveNext
Loop
%>
</table>
<font color="#FF0000" size="2"><br>
OBS:</font><br>
<font color="#FF0000" size="2"> Disse Infomationer bliver
ikke givet til en 3 mand, bestiling sker kun online,
der bliver sendt en bekræftelse Indenfor 24 timer.<br>
Kode skal kun udfyldes hvis man senere ønsker
at afmelde flytet (se infomationer for aflysninger)
eller hvis man ønsker ændringer!</font><br>
<br>
<%
End If
%>
<table cellspacing="0" cellpadding="2" border="0" valign="top" style="border: 1px solid rgb(0,0,0)">
<!--DWLayoutTable-->
<tr>
<td height="16" colspan="2"> <div align="center"><font color="#000000" size="1" face="verdana">Skriv
alt infomation med </font><font face="verdana" size="2" color="#000000"><strong><font color="#FF0000" size="1">*</font></strong></font><font face="verdana" size="1" color="#000000">
og tryk på Gem</font></div></td>
<td width="1"></td>
</tr>
<form action="resevationer.asp" method="post">
<tr>
<td width="100" height="26"> <font face="verdana" size="2" color="#000000"><strong><font color="#FF0000" size="1">*</font>Navn:</strong></font></td>
<td width="169"> <INPUT type="text" name="navn">
<INPUT type="hidden" name="dato" value="<%=dato%>">
</td>
<td></td>
</tr>
<tr>
<td height="26" valign="top"><strong><font face="verdana" size="2" color="#000000"><strong><font color="#FF0000" size="1">*</font></strong></font><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif">Adresse:</font></strong></td>
<td valign="top"><INPUT name="adresse" type="text" id="adresse"></td>
<td></td>
</tr>
<tr>
<td height="26" valign="top"><font face="verdana" size="2" color="#000000"><strong><font color="#FF0000" size="1">*</font></strong></font><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>By
& Postnr :</strong></font></td>
<td rowspan="2" valign="top"> <input name="by_post" type="text" id="by_post"></td>
<td></td>
</tr>
<tr>
<td rowspan="2" valign="top"><strong><font face="verdana" size="2" color="#000000"><strong><font color="#FF0000" size="1">*</font></strong></font><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Tlf:</font></strong></td>
<td height="1"></td>
</tr>
<tr>
<td height="26" valign="top"><INPUT name="tlf" type="text" id="tlf"></td>
<td></td>
</tr>
<tr>
<td height="26" valign="top"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Email:</font></strong></td>
<td valign="top"><INPUT name="email" type="text" id="email"></td>
<td></td>
</tr>
<tr>
<td height="26" valign="top"><strong><font face="verdana" size="2" color="#000000"><strong><font color="#FF0000" size="1" face="Verdana, Arial, Helvetica, sans-serif">*</font></strong></font><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif">Kode:</font></strong></td>
<td valign="top"> <INPUT name="pwd" type="password" id="pwd"></td>
<td></td>
</tr>
<tr>
<td rowspan="2" valign="top"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong><font face="verdana" size="2" color="#000000"><strong><font color="#FF0000" size="1" face="Verdana, Arial, Helvetica, sans-serif">*</font></strong></font>Pakke:</strong></font></td>
<td height="28" valign="top"><select name="menu1" size="1" onChange="">
<option selected>Pakke 1</option>
<option>Pakke 2</option>
<option>Pakke 3</option>
<option>Pakke 4</option>
<option>Pakke 5</option>
<option>Pakke 6</option>
</select> </td>
<td></td>
</tr>
<tr>
<td height="5"></td>
<td></td>
</tr>
<tr>
<td height="26" valign="top"> <font face="verdana" size="2" color="#000000"><strong>Flytte-Dato:</strong></font>
</td>
<td valign="top"> <INPUT type="text" size="3" name="dag" value="<%=Day(dato)%>" readonly>
<font face="verdana" size="2" color="#000000"><strong>-</strong></font>
<INPUT type="text" size="3" name="mdr" value="<%=Month(dato)%>" readonly>
<font face="verdana" size="2" color="#000000"><strong>-</strong></font>
<INPUT name="aar" type="text" value="<%=year(dato)%>" size="3">
</td>
<td></td>
</tr>
<tr>
<td height="28" colspan="2" align="right" valign="top">
<%If fejl<>"" Then Response.Write fejl End If%>
<INPUT type="submit" value="Gem" id=submit1 name=submit1>
<INPUT type="reset" value="Nulstil" id=Nulstil name=Nulstil>
</td>
<td></td>
</tr>
</form>
</table>
<font size="2" color="#FF0000"><font color="#009999"><font face="verdana" size="2" color="#000000"><font color="#FF0000"></font></font></font></font><br>
<font color="#FF0000">Email skal kun udfyldes vis du
ønsker bekræftelse ellers sker det over
tlf. </font>
</center></div>
<font color="#FF0000"> </font><font size="2" color="#FF0000">Advarsel:
Ip-logging er (</font><font size="2" color="#FF0000"><font color="#009999">Aktivitert<font color="#FF0000">)[</font><font face="verdana" size="2" color="#000000"><font color="#FF0000"><strong><%=Request.ServerVariables("REMOTE_ADDR")%></strong></font></font><font color="#FF0000">]</font></font>,
alt misbrug vil om<font color="#FF0000">g</font>ående
meldels til politiet.</font><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FF0000"><strong><br>
<br>
<a href="resevation.asp">Tilbage</a></div>
</body>
</html>
Jeg har lagt den på www.schnefeldt.dk hvis I vil se hvad jeg mener...
