FOrmen:
<META NAME=\"Generator\" CONTENT=\"Stone\'s WebWriter 3\">
<!-- METADATA TYPE=\"typelib\"
UUID=\"00000205-0000-0010-8000-00AA006D2EA4\"
NAME=\"ADODB Type Library\" -->
<%
Response.Buffer = true
dim cn, rs, sql, cnstr
set cn = server.createobject(\"adodb.connection\")
set rs = server.createobject(\"adodb.recordset\")
cnstr = \"Provider=Microsoft.Jet.OLEDB.4.0;\"
cnstr = cnstr & \"Data Source=\" & Server.MapPath(\"db/aafestival.mdb\")
cn.connectionstring = cnstr
cn.open
rs.activeconnection = cn
rs.cursortype = adopenforwardonly
rs.locktype = adlockreadonly
sql = \"SELECT pladsnr, navn FROM kontaktpers WHERE reservation=\"
sql = sql & request(\"reservation\") & \" ORDER BY pladsnr\"
rs.open sql
response.write \"<html><head><!-- Minus AutoDato --><title>Å-festival Reservationsform</title><META NAME=Generator CONTENT=Stone\'s WebWriter 3><STYLE TYPE=text/css><!-- body { margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; font-family: Tahoma, Verdana, Arial, Helvetica, sans-serif; font-size: 11px; background-color: white; color: #000066; text-align: justify; } td { font-family: Tahoma, Verdana, Arial, Helvetica, sans-serif; font-size: 11px; color: gray; text-align: none} p { font-family: Tahoma, Verdana, Arial, Helvetica, sans-serif; font-size: 11px; color: #000066; text-align: justify} a { color: darkblue; text-decoration: none} a:hover { color: green; text-decoration: none} .center { text-align: center} textarea, input, select { background-color: #FFFFFF; font-family: Tahoma, Verdana; font-size: 11px; border-width: 1px; border-color: #000000; border-style: solid}--></STYLE></head><body><table width=500><tr><td align=center><b>Å-festival pladsreservering</b></td></tr><tr><td><font color=black>Kontaktperson:<HR align=left SIZE=1 WIDTH=300 NOSHADE><form action=reservation.asp method=post><table width=500 border=0><tr><td width=100><FONT FACE=Tahoma COLOR=gray SIZE=-1>Plads nr:</td><td witdth=400><SELECT name=pladsnr>\"
do until rs.eof
response.write \"<OPTION>\" & rs(\"Pladsnr\")
rs.movenext
loop
response.write \"</SELECT></td></tr><tr><td width=100><FONT FACE=Tahoma COLOR=gray SIZE=-1>Navn:</td><td witdth=400><input type=text name=navn></td></tr><tr><td width=100><FONT FACE=Tahoma COLOR=gray SIZE=-1>Adresse:</td><td witdth=400><input type=text name=adresse></td></tr><tr><td width=100><FONT FACE=Tahoma COLOR=gray SIZE=-1>Post nr:</td><td witdth=400><input type=text name=postnr></td></tr><tr><td width=100><FONT FACE=Tahoma COLOR=gray SIZE=-1>By:</td><td witdth=400><input type=text name=city></td></tr><tr><td width=100><FONT FACE=Tahoma COLOR=gray SIZE=-1>Tlf nr:</td><td witdth=400><input type=text name=tlfnr></td></tr><tr><td width=100><FONT FACE=Tahoma COLOR=gray SIZE=-1>Email:</td><td witdth=400><input type=text name=email></td></tr><tr><td width=100><FONT FACE=Tahoma COLOR=gray SIZE=-1>Antal enheder:</td><td witdth=400><SELECT name=antalenheder><OPTION>1 <OPTION>2</SELECT></td></tr><tr><td width=100><FONT FACE=Tahoma COLOR=gray SIZE=-1>Strøm:</td><td witdth=400><INPUT TYPE=checkbox name=stroem></td></tr></table><font color=black>Pladsbeboere:<HR align=left SIZE=1 WIDTH=300 NOSHADE><table width=500><tr><td width=100></td><FONT FACE=Tahoma COLOR=gray SIZE=-1><input type=submit name=tilmeld value=tilmeld></td></tr></table></form></body></html>\"
rs.close
set rs = nothing
cn.close
set cn = nothing
%>
modetagerside:
<!-- Minus AutoDato -->
<META NAME=\"Generator\" CONTENT=\"Stone\'s WebWriter 3\">
<%
option explicit
dim cn, cnstr, sql
set cn = server.createobject(\"adodb.connection\")
cnstr = \"Provider=Microsoft.Jet.OLEDB.4.0;\"
cnstr = cnstr & \"Data Source=\" & Server.MapPath(\"db/aafestival.mdb\")
cn.connectionstring = cnstr
cn.open
sql = \"UPDATE kontaktpers (pladsnr, navn, adresse, postnr, city, tlfnr, email, antalenheder, stroem)\"
sql = sql & \" values(strPladsnr, strNavn, strAdresse, strPostnr, strCity, strTlf, strEmail, strAntalenheder, strStroem)\"
cn.execute sql
responce.write \"<html><head><title>Success</title></head><body>
responce.write \"Succes\"
responce.write \"</body></html>
cn.close
set cn = nothing
%>
