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... den skal slette den record der er oprettet som vises...
her er hele koden:
<%
if request.form("send") <> "" then
SQLserveradr="localhost"
SQLdatabase="care2_dk"
SQLlogin="care2_dk"
SQLpassword="x"
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,efternavn,dato,email,fby) 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"),"'","''") & "' ,'" & replace(Request.Form("dato"),"'","''") & "' ,'" & replace(Request.Form("email"),"'","''") & "' ,'" & replace(Request.Form("fby"),"'","''") & "' )"
DataConn.Execute(strSQL)
'Kode som sender mailen her:
if Request.Form("fornavn") <> "" 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"
' 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 "& Request.Form("fby") &""
objCDO.BodyFormat = 0
objCDO.Body = "<html><body><FONT SIZE='2' face='Verdana'>Kære "& Request.Form("dato") &"<br><br>Vi bekræfter hermed følgende bestilling.<p><TABLE bgcolor='#C6D0D6'><TR> <TD width='150' ><FONT SIZE='2' face='Verdana'>Bestillingsnummer.</TD><TD><FONT SIZE='2' face='Verdana'>"& Request.Form("fby") &"</TD></TR><TR> <TD><FONT SIZE='2' face='Verdana'>Dato for vagt</TD> <TD><FONT SIZE='2' face='Verdana'>"& Request.Form("herlev") &"</TD></TR><TR> <TD><FONT SIZE='2' face='Verdana'>Mødested</TD> <TD><FONT SIZE='2' face='Verdana'>"& Request.Form("fornavn") &"</TD></TR><TR> <TD><FONT SIZE='2' face='Verdana'>Starttid</TD> <TD><FONT SIZE='2' face='Verdana'>"& Request.Form("hede") &"</TD></TR><TR> <TD><FONT SIZE='2' face='Verdana'>Sluttid</TD> <TD><FONT SIZE='2' face='Verdana'>"& Request.Form("kommune") &"</TD></TR><TR> <TD><FONT SIZE='2' face='Verdana'>Vikarensnavn</TD> <TD><FONT SIZE='2' face='Verdana'>"& Request.Form("efternavn") &"</TD></TR></TABLE><BR><BR>Håber du bliver glad for vores vikar.<br><br>Hvis du har nogle spørgsmål kan du altid ringe til<br> vores personalekonsulent Karina på tlf: 2534 3101 <br><br>Med venlig hilsen<br><br>Care2 ApS<br><br>Færgeparken 23, 1.sal<br>3600 Frederikssund<br><a href='www.care2.dk</a><BR><a" target="_blank">www.care2.dk</a><BR><a" target="_blank">http://www.care2.dk'>www.care2.dk</a><BR><a href='http://www.care2.dk'> <img src='http://www.care2.dk/images/care2.gif' border='0'></a><BR><BR><BR></body></html>"
' Send e-mail og skriv status
objCDO.Send
' Fjern objekt igen
Set objCDO = Nothing
end if
strNavn2 ="slet"
response.write "<BR><BR><BR>Du har nu godkendt bestillingen og der er sendt en mail til kunden og sms til vikaren. <B>HUSK</B> at slette bestillingen fra forsiden"
response.write "<br><BR>Forsat god dag....<BR><BR><BR>"
response.End 'stopper koden her
end if
'Viser formen
SQLserveradr="localhost"
SQLdatabase="care2_dk"
SQLlogin="care2_dk"
SQLpassword="x"
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 = "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="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="fby" 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>Kontakt person:</TD>
<TD><input type="text" name="dato" value="<%=rs("dato")%>" class="Formindhold" size="30"></TD>
</TR>
<TR>
<TD>Email:</TD>
<TD><input type="text" name="email" value="<%=rs("email")%>" 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">
</form>
