auto sletning af id
når jeg trykker tilmeld vil jeg samtidig gerne slette den record den trækker med over, fordi nu er der oprettet en nu bestilling...prøv at se her... det er denne her den skal slette
strSQL = "Select * From bestilling Where Id = " & Request.Querystring("id")
---------------------kode---------------------------
strSQL = "Insert into bestilling (DateKolonne,fornavn,køn,herlev,hede,kommune,hillerød,pris,efternavn) 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("efternavn"),"'","''") & "' )"
DataConn.Execute(strSQL)
'Opdater antal tilmeldte i hold tabellen
'Kode som sender mailen her:
if Request.Form("adresse") <> "" then
Dim objCDO
Set objCDO = Server.CreateObject( "CDONTS.NewMail" )
' Her sættes afsender navn og e-mail adresse
' Afsenders mailserver RETTES TIL
objCDO.Host = "mailout.b-one.net"
objCDO.From = "karina@care2.dk.dk"
' Her sættes modtager navn og e-mail adresse
objCDO.To = Request.Form("email")
' Her sættes overskriften på mailen
objCDO.Subject = "Care2 bekræfter hermed vikarbestilling nr. " & id
' Her sættes selve teksten til mailen
objCDO.Body = "Kære "
' Send e-mail og skriv status
objCDO.Send
' Fjern objekt igen
Set objCDO = Nothing
end if
response.write "<BR><BR><BR>Du har nu godkendt bestillingen og der er sendt en mail til kunden og sms til vikaren. Forsat god dag....<BR>"
response.End 'stopper koden her
end if
'Viser formen
strSQL = "Select * From bestilling Where Id = " & Request.Querystring("id")
Set rs = DataConn.Execute(strSQL)
%>
<%
strSQL = "SELECT fornavn FROM tilmelding order by fornavn"
' Skaber et recordset udfra SQL strengen
Set rs2 = DataConn.Execute(strSQL)
%>
<CENTER><B><BR><B>Du er ved godkende en bestilling..</B><BR></B></CENTER>
<BR>
<br>
<form action="tilmeldingvente.asp" method="post" onsubmit="return Check_Form(this)">
<input type="hidden" name="id" value="<%=Request.Querystring("id")%>">
<input type="hidden" name="hillerød" value="<%=rs("hillerød")%>">
<input type="hidden" name="pris" value="1">
<TABLE width="370">
<TR>
<TD>Best nr.</TD>
<TD><input type="text" name="id" value="<%=rs("id")%>" class="Formindhold" size="30"></TD>
</TR>
<TR>
<TD>Kunde:</TD>
<TD><input type="text" name="fornavn" value="<%=rs("fornavn")%>" class="Formindhold" size="30"></TD>
</TR>
<TR>
<TD>Vagt dato:</TD>
<TD><input type="text" name="herlev" value="<%=rs("herlev")%>" class="Formindhold" size="8"></TD>
</TR>
<TR>
<TD>Starttid:</TD>
<TD> <input type="text" name="hede" value="<%=rs("hede")%>" class="Formindhold" size="8"></TD>
</TR>
<TR>
<TD>Sluttid</TD>
<TD><input type="text" name="kommune" value="<%=rs("kommune")%>" class="Formindhold" size="8"></TD>
</TR>
<TR>
<TD>Vikar</TD>
<TD><select name="efternavn" class="Formindhold" >
<option value=""></option><%
do while not rs2.EOF
%><option value="<% Response.write rs2("fornavn")%>"><% Response.write rs2("fornavn") %></option>
<%
rs2.MoveNext
loop
%>
</select></TD>
</TR>
</TABLE>
<BR><BR><center>
<input type="submit" value="Godkend bestilling" name="send" class="knap">
