her er koden til der laver fejlen
<!-- #INCLUDE FILE="inc/secure.asp" -->
<%
Dim strPath
strPath = Server.MapPath(".") & "/mdb/hotels.mdb"
Dim strConn
strConn = "DBQ=" & strPath & ";Driver={Microsoft Access Driver (*.mdb)};"
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strConn
Dim objRSHOTELS, objRSCONTACT
Dim strSQLHOTELS
strSQLHOTELS = "SELECT hotels.name, hotels.ID, tblBookings.bookingID, tblBookings.numsingle, tblBookings.numtwin, tblBookings.numsuperiorsingle, tblBookings.numsuperiortwin, prices.single, prices.twin, prices.superiorsingle, prices.superiortwin " _
& "FROM (prices INNER JOIN hotels ON prices.ID = hotels.ID) INNER JOIN tblBookings ON hotels.ID = tblBookings.HotelID " _
& "WHERE (((tblBookings.BookedBySessionID)=" & Session("sessionID") & "))" _
& "ORDER BY tblBookings.bookingID;"
Dim strSQLCONTACT
strSQLCONTACT = "SELECT * FROM tblContact WHERE tblContact.contactId = " & Session("SessionID") & ";"
Set objRSHOTELS = objConn.Execute(strSQLHOTELS)
Set objRSCONTACT = objConn.Execute(strSQLCONTACT)
If objRSHOTELS.BOF OR objRSHOTELS.EOF Then
Response.Redirect("confirm.asp?error=" & Server.URLEncode("Please choose some hotelrooms first"))
End If
%>
<!-- #INCLUDE FILE="inc/header.inc" -->
<h2>Your booking is being processed</h2>
<br />
<p>Within 2 weekdays you will receive a confirmation by email / fax.<br />
Please forward complete roominglist to Net Travel Service 1 month prior to arrival</p>
<meta http-equiv="refresh" content="5; url=logout.asp">
<%
>!--line 41------> Set Mail = Server.CreateObject("Persits.MailSender")
' enter valid SMTP host
Mail.Host = "mail.tele.dk"
Mail.From = objRSCONTACT("email") ' From address
Mail.FromName = "Roskilde 2004"' optional
Mail.AddAddress "aj@valbyfrikirke.dk", "aj@valbyfrikirke.dk"
'Mail.AddAddress "mette@nettravel.dk", "mette@nettravel.dk"
'Mail.AddAddress "sonnysunzet@hotmail.com", "sonnysunzet@hotmail.com"
'Mail.AddAddress "soeren@mediebureauet.dk", "soeren@mediebureauet.dk"
Mail.IsHTML = true
' message subject
Mail.Subject = "Hotel Booking - WE BOOK YOUR STARS"
' message body
html = "<html>" & VbCrLf _
& "<body>" & VbCrLf _
& "<table cellpadding=""1"" cellspacing=""0"" bgcolor=""#000000"" border=""0"">" _
& "<tr>" _
& "<td>" _
& "<table cellpadding=""2"" cellspacing=""0"" bgcolor=""#ffffff"" border=""0"">" _
& "<tr bgcolor=""#000000""><td style=""color:White;"">" _
& "<b><big>Hotel booking</big> from
www.webookyourstars.com @</b> " & Now() & ", bookingID: " & Session("SessionID") & "<br />" & VbCrLf & "</td></tr>" _
& "<tr><td>"
If objRSCONTACT("band") <> "" Then
html = html & "<b>Type:</b>" & vbTab & vbTab & "Band - " & objRSCONTACT("band") & VbCrLf & "<br />"
Else
html = html & "<b>Type:</b>" & vbTab & vbTab & "Non-band - " & objRSCONTACT("nonband") & VbCrLf & "<br />"
End If
html = html & "<b>Contact person/Tour Manager:</b>" & vbTab & vbTab & objRSCONTACT("name") & " - <b>Email:</b>" & vbTab & vbTab & objRSCONTACT("email") & VbCrLf & "<br />" _
& "<b>Address for correspondence:</b><br />" & vbTab & vbTab & Replace(objRSCONTACT("address"), VbCrLf, "<br />") & VbCrLf & "<br />" _
& "<b>Tel:</b>" & vbTab & vbTab & objRSCONTACT("phone") & VbCrLf & " - <b>Fax:</b>" & vbTab & vbTab & objRSCONTACT("fax") & VbCrLf & "<br />" _
& "<b>Date of arrival:</b>" & vbTab & vbTab & objRSCONTACT("arrival") & VbCrLf & " - <b>Arrival from Flight #:</b>" & vbTab & vbTab & objRSCONTACT("arr_flight") & VbCrLf & "<br />" _
& "<b>Date of departure:</b>" & vbTab & vbTab & objRSCONTACT("departure") & VbCrLf & " - <b>Departure Flight #:</b>" & vbTab & vbTab & objRSCONTACT("dep_flight") & VbCrLf & "<br />" _
& "<b>Hotel rooms:</b><br />"
Dim i
i = 1
Do While Not objRSHOTELS.EOF
html = html & "#" & i & ": " & UCase(objRSHOTELS("name")) & ", Single rooms: " & objRSHOTELS("numsingle") & ", Twin rooms: " & objRSHOTELS("numtwin") & ", Superior Single rooms: " & objRSHOTELS("numsuperiorsingle") & ", Superior Twin rooms: " & objRSHOTELS("numsuperiortwin") & "<br />"
i = i + 1
objRSHOTELS.MoveNext
Loop
html = html & "<b>Remarks:</b>" & vbTab & vbTab & remarks & VbCrLf _
& "<br />" & VbCrLf _
& "<br />" & VbCrLf _
& "</td></tr>" _
& "</table>" _
& "</td></tr>" _
& "</table>" _
& "</body>" & VbCrLf _
& "</html>"
Plain = "Hotel booking from
www.webookyourstars.com @ " & Now() & ":" & VbCrLf & VbCrLf _
& "Band/Non-band:" & vbTab & vbTab & band & VbCrLf _
& "Contact person/Tour Manager:" & vbTab & vbTab & tourmanager & VbCrLf _
& "Address for correspondence:" & vbTab & vbTab & address & VbCrLf _
& "Tel:" & vbTab & vbTab & tel & VbCrLf _
& "Fax:" & vbTab & vbTab & fax & VbCrLf _
& "Email:" & vbTab & vbTab & email & VbCrLf _
& "Date of arrival:" & vbTab & vbTab & arrival & VbCrLf _
& "Arrival from Flight #:" & vbTab & vbTab & arrivalflight & VbCrLf _
& "Date of departure:" & vbTab & vbTab & departure & VbCrLf _
& "Departure Flight #:" & vbTab & vbTab & departureflight & VbCrLf _
& "Number of rooms:" & vbTab & vbTab & sing & " x Single, " & twin & " x Twin" & VbCrLf _
& "Choice of hotels:" & vbTab & vbTab & hotels & VbCrLf _
& "Remarks:" & vbTab & vbTab & remarks & VbCrLf
Mail.Body = HTML
strErr = ""
bSuccess = False
On Error Resume Next ' catch errors
Mail.Send ' send message
If Err <> 0 Then ' error occurred
strErr = Err.Description
else
bSuccess = True
End If
%>
<!-- #INCLUDE FILE="inc/footer.inc" -->
