<%
Set DataConn = Server.CreateObject("ADODB.Connection")
conStr = "driver={MySQL ODBC 3.51 Driver};"& _
"server="& SQLserveradr &";"& _
"database="& SQLdatabase &";"& _
"uid="& SQLlogin &";"& _
"pwd="& SQLpassword &";"& _
"OPTION=3"
DataConn.Open conStr
if request.form("ma") = "Aftenvagt" then
DataConn.execute("insert into bestilling(aftentlf) values('"& request.form("forfos1") &"')")
end if
%>
<%
if request.form("send") <> "" then
Set DataConn = Server.CreateObject("ADODB.Connection")
conStr = "driver={MySQL ODBC 3.51 Driver};"& _
"server="& SQLserveradr &";"& _
"database="& SQLdatabase &";"& _
"uid="& SQLlogin &";"& _
"pwd="& SQLpassword &";"& _
"OPTION=3"
DataConn.Open conStr
strSQL = "Insert into bestilling (DateKolonne,fornavn,køn,herlev,hede,kommune,hillerød,pris,dato,email,tider,adresse,ma,td,ta,od,sn,ton,forfos1,rudersdal) values(now(),'" & replace(Request.Form("fornavn"),"'","''") & "','" & replace(Request.Form("køn"),"'","''") & "','" & replace(Request.Form("herlev"),"'","''") & "','" & replace(Request.Form("hede"),"'","''") & "' ,'" & replace(Request.Form("kommune"),"'","''") & "' ,'" & replace(Request.Form("hillerød"),"'","''") & "','" & replace(Request.Form("pris"),"'","''") & "','" & replace(Request.Form("dato"),"'","''") & "' ,'" & replace(Request.Form("email"),"'","''") & "' ,'" & replace(Request.Form("tider"),"'","''") & "','" & replace(Request.Form("adresse"),"'","''") & "','" & replace(Request.Form("ma"),"'","''") & "' ,'" & replace(Request.Form("td"),"'","''") & "' ,'" & replace(Request.Form("ta"),"'","''") & "','" & replace(Request.Form("od"),"'","''") & "','" & replace(Request.Form("sn"),"'","''") & "','" & replace(Request.Form("ton"),"'","''") & "','" & replace(Request.Form("forfos1"),"'","''") & "','" & replace(Request.Form("rudersdal"),"'","''") & "' )"
DataConn.Execute(strSQL)
'Opdater antal tilmeldte i hold tabellen
'Kode som sender mailen her:
if Request.Form("dag") <> "" then
Dim objCDO
Set objCDO = Server.CreateObject( "CDONTS.NewMail" )
' objCDO.BodyFormat = 0
objCDO.Body = "<html><body><BR><FONT SIZE='2' face='Verdana'>Kære "& Request.Form("dato") &"<br><br></body></html>"
' Send e-mail og skriv status
objCDO.Send
' Fjern objekt igen
Set objCDO = Nothing
end if
r
response.End 'stopper koden her
end if
'
'Viser formen
%>
<%
Set DataConn = Server.CreateObject("ADODB.Connection")
conStr = "driver={MySQL ODBC 3.51 Driver};"& _
"server="& SQLserveradr &";"& _
"database="& SQLdatabase &";"& _
"uid="& SQLlogin &";"& _
"pwd="& SQLpassword &";"& _
"OPTION=3"
DataConn.Open conStr
%>
<BR><BR>
<form name="vikar">
<select name="vikar" class="Formindhold" onchange="this.form.submit()">
<option value="">Vælg Kunde</option>
<% do while not rs22.EOF%>
<option value="<%=rs22("id")%>"><% Response.write rs22("fornavn") %>
</option>
<%
rs22.MoveNext
loop
set rs22 = nothing
%>
</select>
</form>
<BR>
<form name="vikar" action="oprethold2.asp" method="post" onsubmit="return Check_Form(this)">
<input type="hidden" name="td" value="<%=session("Bruger")%>">
<BR>
<TABLE width="600" bgcolor="#EFEFEF" >
<TR>
<%
id = request("vikar")
if id <> "" then
strSQL4 = "select * from kunder where id = "& id
' Skaber et recordset udfra SQL strengen
Set rs444 = DataConn.Execute(strSQL4)
%>
<td>Kunde + adr</td><td><input type="text" name="fornavn" value="<%=rs444("fornavn")%>" class="Formindhold" >
<input type="text" name="adresse" value="<%=rs444("adresse")%>" class="Formindhold" size="30" ><input type="text" name="od" value="<%=rs444("fby")%>" class="Formindhold" size="30" >
</TD>
<td>Aften tlf <input type="text" name="adresse" value="<%=rs444("forfos1")%>" class="Formindhold" size="30" ><BR>Weekend tlf<input type="text" name="adresse" value="<%=rs444("rudersdal")%>" class="Formindhold" size="30" ></td>
</tr>
<TD>Kontaktperson</TD>
<TD><select name="dato" class="Formindhold" >
<option value=""></option><%
do while not rs4.EOF
%><option value="<% Response.write rs4("navn")%>"><% Response.write rs4("navn") %></option>
<%
rs4.MoveNext
loop
%>
</select></TD>
</TR>
</TR>
<TR>
<TD>Vagt</TD>
<TD align="center">
Dagvagt <input type="checkbox" name="ma" value="Dagvagt">
Aftenvagt <input type="checkbox" name="ma" value="Aftenvagt">
Nattevagt <input type="checkbox" name="ma" value="Nattevagt"></TD>
</TR>
<TR>
<TD>Kørekort</TD>
<TD align="center">Ja <input type="checkbox" name="ta" value="1">
Nej <input type="checkbox" name="ta" value="1">
</TD>
</TR>
</TABLE><BR><BR>
<CENTER><input type="submit" value="Opret bestilling" name="send" class="knap"></CENTER>
</form>
<% end if%>
Ny bruger
Nybegynder
Opret
Preview
