Jeg kan ikke få det til at virke ... hvor vil du smide det i min kode?
<% Response.Buffer = True %>
<%
If Not Session("auth_granted") = "true" Then
Response.Redirect "../redirect.htm"
Response.End
End If
olddate = Date()
Dato = FormatDateTime(olddate, 1)
olddate = Date()
Dato1 = FormatDateTime(olddate, 2)
%>
<HTML>
<HEAD>
<TITLE>Booking af mødelokaler</TITLE>
</HEAD>
<style>
body {
background : 000000;
background-color: #FFFFFF;
FONT-FAMILY: Tahoma, Arial, Verdana, Helvetica, sans-serif;
FONT-SIZE: 8pt
color: white;
color: #000000;
font-size: 10px;
font-family: Tahoma;
scrollbar-face-color: "#FFFFFF";
scrollbar-shadow-color: "#FFFFFF";
scrollbar-highlight-color: "#000000";
scrollbar-3dlight-color: "#000000";
scrollbar-darkshadow-color: "#000000";
scrollbar-track-color: "#FFFFFF";
scrollbar-arrow-color: "#000000";
}
input, textarea, select, option {
font-family: verdana;
font-size: 10px;
background: #FFFFFF;
border:1px solid #111111;
color: #000000;
}
TD
{
COLOR: #000000; FONT-FAMILY: Times New Roman; FONT-SIZE: 12pt
}
SMALL
{
FONT-SIZE: 8pt
}
A:link
{
COLOR: #000033; TEXT-DECORATION: none
}
A:visited
{
COLOR: #003333; TEXT-DECORATION: none
}
A:hover
{
COLOR: #BFBFBF; TEXT-DECORATION: none
}
</style>
<BODY text=#000000 vLink=#000000 aLink=#000000 link=#000000 rightMargin=0>
<TABLE cellSpacing=0 cellPadding=0 width=584 border=0>
<TBODY>
<TR>
<TD width=582 bgColor=#000000><IMG height=1 alt=""
src="../pics/Design/blank(1).gif"
width=582 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>
<TABLE cellSpacing=0 cellPadding=0 width=584 border=0 height="70">
<TBODY>
<TR>
<TD vAlign=top align=left width=1 bgColor=#000000
height=27><IMG height=25 alt="" src="../pics/Design/blank.gif"
width=1 border=0><BR></TD>
<TD vAlign=top align=left width=5 bgColor=#608EC6
height=27><BR></TD>
<TD align=left width=565 bgColor=#608ec6
height=27>
<font color="#FFFFFF" style="font-size: 12pt" face="Arial"><b>Bookning</b></font><BR></TD>
<TD vAlign=top align=left width=8
background=../pics/Design/content_right_top.gif height=27><BR></TD></TR>
<TR>
<TD vAlign=top align=left width=1 bgColor=#000000 height="17"><IMG
height=1 alt="" src="../pics/Design/black.gif" width=1
border=0></TD>
<TD vAlign=top align=left width=10 bgColor=#CFDFFC height="17"> </TD>
<TD vAlign=top align=left width=565 bgColor=#CFDFFC
height=17>
<br>
<%
'Slå fejl raportering fra:
On Error Resume Next
bodyTxt = bodyTxt & "Lokale: " & Session("Lokale")
bodyTxt = bodyTxt & VbCrLf
bodyTxt = bodyTxt & "Dato: " & Session("Dato")
bodyTxt = bodyTxt & VbCrLf
bodyTxt = bodyTxt & "Initial: " & Session("auth_Initial")
bodyTxt = bodyTxt & VbCrLf
bodyTxt = bodyTxt & "Firma: " & Session("auth_Gruppenavn")
bodyTxt = bodyTxt & VbCrLf
bodyTxt = bodyTxt & "Fra: " & Session("tid")
bodyTxt = bodyTxt & VbCrLf
bodyTxt = bodyTxt & "Til: " & Session("Slut")
bodyTxt = bodyTxt & VbCrLf
bodyTxt = bodyTxt & "Dato for bestilling: " & Dato
bodyTxt = bodyTxt & VbCrLf
bodyTxt = bodyTxt & "Samletpris: " & Session("Samletpris") & "kr"
bodyTxt = bodyTxt & VbCrLf
if Session("kommentar") <> "" then
bodyTxt = bodyTxt & "Emne: " & Session("kommentar")
end if
bodyTxt = bodyTxt & VbCrLf
if Session("sagsnr") <> "" then
bodyTxt = bodyTxt & "Sagsnr: " & Session("Sagsnr")
bodyTxt = bodyTxt & VbCrLf
end if
if Session("antal") <> "" then
bodyTxt = bodyTxt & "Antal: " & Session("antal")
bodyTxt = bodyTxt & VbCrLf
end if
If Session("Skillevæg") <> "" Then
bodyTxt = bodyTxt & Session("Skillevæg") & VbCrLf
end if
if Session("Bordopstilling") <> "" then
bodyTxt = bodyTxt & "Bordopstilling: " & Session("bordopstilling")
bodyTxt = bodyTxt & VbCrLf
end if
If Session("Kaffe") <> "" Or Session("The") <> "" Or Session("Formidagsbrød") <> "" Or Session("Eftermidagskage") <> "" Or Session("Skillevæg") <> "" Then
bodyTxt = bodyTxt & "Kantineydelser:"
bodyTxt = bodyTxt & VbCrLf
end if
If Session("Kaffe/The") <> "" Then
bodyTxt = bodyTxt & Session("Kaffe/The") & VbCrLf
end if
If Session("Øl/vand") <> "" Then
bodyTxt = bodyTxt & Session("Øl/vand") & VbCrLf
end if
If Session("Formidagsbrød") <> "" Then
bodyTxt = bodyTxt & Session("Formidagsbrød") & VbCrLf
end if
If Session("Eftermidagskage") <> "" Then
bodyTxt = bodyTxt & Session("Eftermidagskage") & VbCrLf
end if
If Session("Småkager") <> "" Then
bodyTxt = bodyTxt & Session("Småkager") & VbCrLf
end if
If Session("andet") <> "" Then
bodyTxt = bodyTxt & Session("andet") & VbCrLf
end if
set JMail = server.createobject("JMail.SMTPMail")
JMail.sender = "Autosender@hanveparken1vejle.dk"
JMail.SenderName = "Autosender"
JMail.subject = "Bookning af mødelokale"
JMail.AddRecipient "xxxxx@xxxxx.xxx"
JMail.ContentType = "text/plain"
JMail.body = bodyTxt
JMail.priority = 1
JMail.maildomain = "mail.havneparken1vejle.dk"
JMail.silent = true
JMail.execute
JMail.close()
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open "DBQ=" & Server.Mappath("../../db/Booking.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};Password=1234;"
sSQL = "SELECT * FROM booking"
rs.Open sSQL, Conn,1,3
startTid = Session("tid")
do while CDate(startTid) <= CDate(Session("Slut"))
tider = tider & "," & formatdatetime(CDate(startTid),4)
startTid = DateAdd("n",30,startTid)
loop
if tider <> "" then tider = Mid(tider,2)
For EACH tid In Split(tider, ",")
rs.AddNew
rs("tid") = tid
rs("dato") = Session("datobestil")
rs("oprettet") = Dato1
rs("lokalenr") = Session("Id")
rs("firma") = Session("auth_Gruppenavn")
rs("initialer") = Session("auth_Initial")
rs("kommentar") = Session("kommentar")
rs("samletpris") = Session("Samletpris")
rs("sagsnr") = Session("Sagsnr")
rs("antal") = Session("antal")
rs("bordopstilling") = Session("bordopstilling")
rs.update
Next
'Tjek om der har være fejl
if err then
Response.write "Det opstod en fejl på siden. Prøv at starte din bookning forfra."
else
Response.write "Bookningen er registræret!"
end if
%>
</TD>
<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=3 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>
</BODY></HTML>
Slettet bruger
Ny bruger
Nybegynder
Opret
Preview
