sende mail med Jmail
Hej lle sammen :-)er der nogen der kan se hvad er der galt med det følgende kode ?? jeg får sådan en fejl:
jmail.SMTPMail fejl '8000ffff'
The message was undeliverable. All servers failed to receive the message
/fyp/administration/changeStatus.asp, linje 64
FUNCTION changeStatus
Set c = new DBConnection
c.getConnection()
Set RSSQ2 = Server.CreateObject("ADODB.Recordset")
Query = "SELECT * FROM reservation WHERE bookingID=" & Request("bookingID")
RSSQ2.Open Query,c.objConn,adOpenDynamic,adLockOptimistic
RSSQ2("status") = "Confirmed"
RSSQ2.Update %>
<font size=4 color=navy>The status of reservation nr. <%=Request("bookingID")%> <p>
has been changed from: Created <p>
to Confirmed! </font> <br><br>
<a href="showConfirmed.asp"><font size=4>Back</a><p>
<% END FUNCTION
FUNCTION getData()
Set c = new DBConnection
c.getConnection()
Set RSSQ3 = Server.CreateObject("ADODB.Recordset")
Query1 = "SELECT name,surname,email FROM client WHERE bookingID=" & Request("bookingID")
RSSQ3.Open Query1,c.objConn,adOpenDynamic,adLockOptimistic
%>
<% END FUNCTION
FUNCTION SendMail
boatmodel=RSSQ2("boatmodel")
arrivalday=RSSQ2("arrivalday")
arrivalmonth=RSSQ2("arrivalmonth")
arrivalyear=RSSQ2("arrivalyear")
departuredate=RSSQ2("departuredate")
name=RSSQ3("name")
surname=RSSQ3("surname")
email=RSSQ3("email")
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ContentType = "text/plain"
JMail.ServerAddress = "vip.cybercity.dk"
JMail.Priority = 1
JMail.Sender = email
JMail.AddRecipientEx email, name
JMail.AddRecipientCC email
JMail.AddRecipientBCC email
JMail.Subject = "Booking on line - Cerasi Charter"
JMail.Body = JMail.Body & "Thanks for contacting us: " & name & surname & vbCrLf
JMail.Body = JMail.Body & "We want to confirm your booking of the following:"& vbCrLf
JMail.Body = JMail.Body & "Boatmodel: " &boatmodel& vbCrLf
JMail.Body = JMail.Body & "Arrivalday: " &arrivalday
JMail.Body = JMail.Body & "- " &arrivalmonth
JMail.Body = JMail.Body & "- " & arrivalyear& vbCrLf
JMail.Body = JMail.Body & "Departure date: " &departuredate& vbCrLf
JMail.Execute
Set JMail = Nothing
END FUNCTION
changeStatus()
getData()
SendMail()
%>
Koden virker hvis istedet for email=RSSQ3("email")
jeg skriver min mail istedet for: email="chicca@vip.cybercity.dk". Hvorfor ??? når de andre data bliver hentet korrekt?? Jeg skal sige at jeg sender fra en PWS ikke IIS og i DB (access) er email gemt som tekst på 50 karakter !!!
HJÆLP!!!!
