Slet ingen ?
Ka' da lige poste filerne om i er bange for vira eller ting ;)
resevationer.asp ->>>>>>
<!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
set rs = oConn.Execute("select * from kalender where dag="& dag &" and mdr="& mdr &" and aar="& aar )
if rs.eof then
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
'Dagen er booked
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
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">Schnefeldt reservationssystem v.1.0.1</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>
Resevation.asp ->>>>>>>
<!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>
<p>:: <a href="../index.htm">Forsiden</a> :: <a href="login.asp">Log ind</a>
::</p>
<p align="center"> <%
DBQ=Server.MapPath("../kalender.mdb")
Set oConn = createObject("ADODB.Connection")
oConn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&DBQ
dtmDate = Request.QueryString("date")
dtmToday = Date
If dtmDate = "" Then
dtmDate = Date
Else
dtmDate = CDate(dtmDate)
End if
intYear = Year(dtmDate)
strMonth = MonthName(Month(dtmDate))
intDayOfMonth = Day(dtmDate)
dtmFirstDate = DateAdd("d", (-intDayOfMonth)+1, dtmDate)
intFirstDay = Weekday(dtmFirstDate, vbMonday)
%>
</div>
<div align="center">
<table border="0" cellpadding="2" cellspacing="0" bgcolor="#FFFFFF"
style="border: 1px solid rgb(0,0,0)" valign="top">
<!--DWLayoutTable-->
<tr bgcolor="#FFFFFF">
<td colspan="7" align="center" valign="middle"><font face="Verdana"
size="2" color="#000000"><strong><%=strMonth%> <%=intYear%></strong></font></td>
</tr>
<tr>
<td align="center" bgcolor="#FFFFFF"><font face="verdana" size="2">Man</font></td>
<td align="center" bgcolor="#FFFFFF"><font face="verdana" size="2">Tir</font></td>
<td align="center" bgcolor="#FFFFFF"><font face="verdana" size="2">Ons</font></td>
<td width="22" align="center" bgcolor="#FFFFFF"><font face="verdana" size="2">Tor</font></td>
<td align="center" bgcolor="#FFFFFF"><font face="verdana" size="2">Fre</font></td>
<td align="center" bgcolor="#FFFFFF"><font face="verdana" size="2">Lør</font></td>
<td align="center" bgcolor="#FFFFFF"><font face="verdana" size="2">Søn</font></td>
</tr>
<%
For y = 1 to 6
If blnLast <> True Then
Response.Write "<tr>"
For x = 1 to 7
intLoopDay = intLoopDay + 1
If intLoopDay >= intFirstDay Then
dtmCurDate = DateAdd("d", intLoopDay-intFirstDay, dtmFirstDate)
If Month(dtmCurDate) = Month(dtmFirstDate) Then
Set foddagbarn=oConn.Execute("Select * from kalender where dag="&day(dtmCurDate)&" and mdr="&month(dtmCurDate))
If dtmCurDate = dtmToday Then
If Not foddagbarn.EoF Then
Response.Write "<td align=center bgcolor=#0000ff><a href=resevationer.asp?dato="&dtmCurDate&"><font face=verdana size=2 color=#ff0000><strong>" & Day(dtmCurDate) & "</strong></font></a></td>"
Else
Response.Write "<td align=center bgcolor=#0000ff><a href=resevationer.asp?dato="&dtmCurDate&"><font face=verdana size=2 color=#ffffff><strong>" & Day(dtmCurDate) & "</strong></font></a></td>"
End If
Else
If Not foddagbarn.EoF Then
Response.Write "<td align=center bgcolor=#ff0000><a href=resevationer.asp?dato="&dtmCurDate&"><font face=verdana size=2><strong>" & Day(dtmCurDate) & "</strong></font></a></td>"
Else
Response.Write "<td align=center><a href=resevationer.asp?dato="&dtmCurDate&"><font face=verdana size=2><strong>" & Day(dtmCurDate) & "</strong></font></a></td>"
End If
End If
blnLast = False
Else
Response.Write "<td align=center><font face=verdana size=2>-</td>"
blnLast = True
End If
Else
Response.Write "<td align=center><font face=verdana size=2>-</td>"
blnLast = True
End if
Next
End If
Next
Response.Write "</font></td></tr>"
%>
<tr>
<td height="23" colspan="3" bgcolor="#FFFFFF"><a
href="resevation.asp?date=<%=DateAdd("m",-1,dtmFirstDate)%>"><font face="verdana" size="2" color="#000000"><strong>F</strong><b>orrige</b></font></a></td>
<td valign="top" bgcolor="#FFFFFF"><!--DWLayoutEmptyCell--> </td>
<td bgcolor="#FFFFFF" colspan="3" align="right"><a
href="resevation.asp?date=<%=DateAdd("m",1,dtmFirstDate)%>"><font face="verdana" size="2" color="#000000"><b>Næste</b></font></a></td>
</tr>
</table>
<br>
<font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif">Se
<a href="infomationer.asp">Infomationer</a> før bestiling</font><br>
<font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif">Klik på en dato for at Resevere</font></div>
<div align="center">
<table>
<tr>
<td bgcolor="#0000ff" align="center"> <font face="arial" size="1" color="#ffffff">Dags
dato</font> </td>
</tr>
<tr>
<td bgcolor="#ff0000" align="center"> <font face="arial" size="1" color="#ffffff">Reseveret</font>
</td>
</tr>
</table>
</div></TD>
</TR>
<TR>
</div>
</body>
</html>
--------------------------
Jeg er klar over stavefejlene i filnavnene, men det retter jeg bagefter... please someone help me...
Ny bruger
Nybegynder
Opret
Preview
