Gennemløde kun en del af kode!
Hvordan gør jeg lige så hvis denne passer:if Session("auth_Gruppenavn") = "Admin" OR Session("auth_Gruppenavn") = "Kokken" then
Så udføre den en kode og stopper så og gennemløber ikke resten af koden?
Den kode som jeg har som den kun skal gennemløbe hvis overstående er opfyldt ser således ud:
if Session("auth_Gruppenavn") = "Admin" OR Session("auth_Gruppenavn") = "Kokken" then
bodyTxt = bodyTxt & "Følgende reservation er slettet:"
bodyTxt = bodyTxt & VbCrLf
bodyTxt = bodyTxt & VbCrLf
bodyTxt = bodyTxt & "Lokale:" & vbTab & vbTab & vbTab & rs("Lokale")
bodyTxt = bodyTxt & VbCrLf
bodyTxt = bodyTxt & "Dato: " & vbTab & vbTab & vbTab & rs("Dato")
bodyTxt = bodyTxt & VbCrLf
bodyTxt = bodyTxt & "Initial: " & vbTab & vbTab & vbTab & rs("initialer")
bodyTxt = bodyTxt & VbCrLf
bodyTxt = bodyTxt & "Firma: " & vbTab & vbTab & vbTab & rs("firma")
bodyTxt = bodyTxt & VbCrLf
bodyTxt = bodyTxt & "Tlf: " & vbTab & vbTab & vbTab & vbTab & rs("tlf")
bodyTxt = bodyTxt & VbCrLf
bodyTxt = bodyTxt & "Tid: " & vbTab & vbTab & vbTab & vbTab & rs("tid")
bodyTxt = bodyTxt & VbCrLf
bodyTxt = bodyTxt & "Reservation: " & vbTab & vbTab & rs("kommentar")
bodyTxt = bodyTxt & VbCrLf
bodyTxt = bodyTxt & "Pris ialt kr: " & vbTab & vbTab & rs("Samletpris") & " (ekskl. moms)"
bodyTxt = bodyTxt & VbCrLf
if rs("sagsnr") <> "" then
bodyTxt = bodyTxt & "Sagsnr: " & vbTab & vbTab & vbTab & rs("Sagsnr")
bodyTxt = bodyTxt & VbCrLf
end if
if rs("antal") <> "" then
bodyTxt = bodyTxt & "Antal: " & vbTab & vbTab & vbTab & rs("antal")
bodyTxt = bodyTxt & VbCrLf
end if
if rs("Bordopstilling") <> "" then
bodyTxt = bodyTxt & "Bordopstilling: " & vbTab & vbTab & rs("bordopstilling")
bodyTxt = bodyTxt & VbCrLf
end if
If rs("KaffeThe") <> "" Or rs("kaffekande") <> "" Or rs("tekande") <> "" Or rs("Rundstykker") <> "" Or rs("ost") <> "" Or rs("Eftermiddagskage") <> "" Or rs("Småkager") <> "" Or rs("Frugt") <> "" Or rs("isvandkande") <> "" Or rs("opdækning_uden_dug") <> "" Or rs("opdækning_med_dug") <> "" Or rs("buffet") = "" Or rs("andet") = "" Or rs("foldevæg") = "" Or rs("projektør") = "" Then
bodyTxt = bodyTxt & "Kantineydelser:"
bodyTxt = bodyTxt & VbCrLf
end if
If rs("KaffeThe") <> "" Then
bodyTxt = bodyTxt & vbTab & vbTab & vbTab & vbTab & rs("KaffeThe") & VbCrLf
end if
If rs("kaffekande") <> "" Then
bodyTxt = bodyTxt & vbTab & vbTab & vbTab & vbTab & rs("kaffekande") & VbCrLf
end if
If rs("kaffekandeantal") <> "" Then
bodyTxt = bodyTxt & vbTab & vbTab & vbTab & vbTab & "Kaffekande antal:" & rs("kaffekandeantal") & VbCrLf
end if
If rs("tekande") <> "" Then
bodyTxt = bodyTxt & vbTab & vbTab & vbTab & vbTab & rs("tekande") & VbCrLf
end if
If rs("tekandeantal") <> "" Then
bodyTxt = bodyTxt & vbTab & vbTab & vbTab & vbTab & "Tekande antal:" & rs("tekandeantal") & VbCrLf
end if
If rs("Rundstykker") <> "" Then
bodyTxt = bodyTxt & vbTab & vbTab & vbTab & vbTab & rs("Rundstykker") & VbCrLf
end if
If rs("ost") <> "" Then
bodyTxt = bodyTxt & vbTab & vbTab & vbTab & vbTab & rs("ost") & VbCrLf
end if
If rs("Eftermiddagskage") <> "" Then
bodyTxt = bodyTxt & vbTab & vbTab & vbTab & vbTab & rs("Eftermiddagskage") & VbCrLf
end if
If rs("Småkager") <> "" Then
bodyTxt = bodyTxt & vbTab & vbTab & vbTab & vbTab & rs("Småkager") & VbCrLf
end if
If rs("Frugt") <> "" Then
bodyTxt = bodyTxt & vbTab & vbTab & vbTab & vbTab & rs("Frugt") & VbCrLf
end if
If rs("isvandkande") <> "" Then
bodyTxt = bodyTxt & vbTab & vbTab & vbTab & vbTab & rs("isvandkande") & VbCrLf
end if
If rs("opdækning_uden_dug") <> "" Then
bodyTxt = bodyTxt & vbTab & vbTab & vbTab & vbTab & rs("opdækning_uden_dug") & VbCrLf
end if
If rs("opdækning_med_dug") <> "" Then
bodyTxt = bodyTxt & vbTab & vbTab & vbTab & vbTab & rs("opdækning_med_dug") & VbCrLf
end if
If rs("buffet") <> "" Then
bodyTxt = bodyTxt & vbTab & vbTab & vbTab & vbTab & rs("buffet") & VbCrLf
end if
if rs("buffetantal") <> "" then
bodyTxt = bodyTxt & vbTab & vbTab & vbTab & vbTab & "Antal til buffet: " & rs("buffetantal")
bodyTxt = bodyTxt & VbCrLf
end if
If rs("andet") <> "" Then
bodyTxt = bodyTxt & vbTab & vbTab & vbTab & vbTab & rs("andet") & VbCrLf
end if
If rs("foldevæg") <> "" Then
bodyTxt = bodyTxt & vbTab & vbTab & vbTab & vbTab & rs("foldevæg") & VbCrLf
end if
If rs("projektør") <> "" Then
bodyTxt = bodyTxt & vbTab & vbTab & vbTab & vbTab & rs("projektør") & VbCrLf
end if
set JMail = server.createobject("JMail.SMTPMail")
JMail.sender = "Autosender@web.dk"
JMail.SenderName = "Autosender"
JMail.subject = "Sletning af reservation"
JMail.AddRecipient "Navn@firma.dk"
JMail.ContentType = "text/plain"
JMail.body = bodyTxt
JMail.priority = 1
JMail.maildomain = "mail.web.dk"
JMail.silent = true
JMail.execute
JMail.close()
sql = "DELETE * From booking Where id = " & Request.Form("id") & ""
Con.Execute(Sql)
response.write "Reservationen er nu slettet."
else
response.write "Der er opstået en fejl."
end if
else
response.write "Denne booking findes ikke"
Response.write "<TD vAlign=top align=left width=8 " & _
"background=../pics/Design/content_right_middle.gif " & _
"rowSpan=2 height=""43""> </TD></TR> " & _
"<TR>" & _
"<TD vAlign=bottom align=left width=564 bgColor=#CFDFFC " & _
"colSpan=4 height=""26""><IMG height=26 alt="""" " & _
"src=""../pics/Design/newsitem_left_bottom.gif"" width=56 " & _
"border=0></TD></TR></TBODY></TABLE> " & _
"<TABLE cellSpacing=0 cellPadding=0 width=584 border=0> " & _
"<TBODY>" & _
"<TR>" & _
"<TD width=26 bgColor=#ffffff><IMG height=15 alt="""" " & _
"src=""../pics/Design/content_left_bottom.gif"" " & _
"width=26 border=0><BR></TD> " & _
"<TD width=554 bgColor=#FFFFFF><IMG height=15 alt="""" " & _
"src=""../pics/Design/content_bottom.gif"" " & _
"width=558 border=0><BR></TD> " & _
"<TD width=2 bgColor=#ffffff><IMG height=1 alt="""" " & _
"src=""../pics/Design/blank(1).gif"" " & _
"width=2 border=0><BR></TD></TR></TBODY></TABLE>"
Response.End
End if
