Hej!
Mitt Webbhotell har ändrat Jmail till CDONTS och jag vet ingenting om CDONTS kan man omvandla Jmail koden till CDONTS?
<%
Dim connect, query, senaste
set connect = server.createobject("ADODB.connection")
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/annonser.mdb") & ";pwd=;"
Set senaste = Server.CreateObject("ADODB.Recordset")
query = "SELECT * FROM items WHERE email ORDER BY dateCreated DESC"
senaste.Open query, Connect, 1, 3
If senaste.EOF Then
Response.Write "Det finns inga inlägg."
Else
id = senaste("id")
item = senaste("item")
password = senaste("password")
phone = senaste("phone")
description= senaste("description")
email = senaste("email")
'vallform= Request.QueryString("vallform")
SenderEmail = "info@stuffmarket.nu"
Subject = item
'Recipient = Request.QueryString("email")
'Body = Request.QueryString("vallform")
Set JMail = Server.CreateObject ("JMail.SMTPMail")
' Below you should enter your own SMTP-server
JMail.ServerAddress = "mail.stuffmarket.nu"
JMail.Sender = Senderemail
JMail.Subject = Subject
JMail.ContentType = "text/html"
JMail.AddRecipient Email
JMail.AddRecipientBCC("ivo.trendewski@comhem.se")
JMail.body = "Tack för Din beställning.<br>Din order har blivit mottagen och kommer att behandlas snarast möjligt. <br>Detta brev kommer ifrån Stuff Market annons En betal-annons med</br>denna e-postadress är inlagd via webben.<BR><B>Email: </B>" & email & "<br> Annonsen kostar<font color=#FF0000> 40 kr</font> och betalas på bankkonto nr: 8381-6-4032825624<br>inom<font color=#FF0000> 3 dagar,</font> var noga att ange annons_referens nummer som du har fåt via mailen.<br>Annonsen blir synlig i Stuffmarket omgående om inga fel föreligger..<br>Annonsen ligger i 30 dagar. Lycka till !</font><B><br>Annons_referens: </B>" & id & "<BR><B>Tel: </B>" & phone & "<BR>Om du vill tabort din annons?<BR><B> Lösenord: </B>" & password & vbcrlf
JMail.Priority = 3
'JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
On Error Resume Next
JMail.Execute
End if
senaste.Close
Set senaste= Nothing
Connect.Close
Set Connect= Nothing
%>
/Ivar
[red]strContent = ""&_
"Tack för Din beställning.<br>"&_
"Din order har blivit mottagen och kommer att behandlas snarast möjligt. <br>"&_
"Detta brev kommer ifrån Stuff Market annons En betal-annons med<br>"&_
"denna e-postadress är inlagd via webben.<BR>"&_
"<B>Email: </b>" & email & "<br> "&_
"Annonsen kostar<font color=#FF0000> 40 kr</font> och betalas på bankkonto nr: 8381-6-4032825624<br>"&_
"inom<font color=#FF0000> 3 dagar,</font> var noga att ange annons_referens nummer som du har fåt via mailen.<br>"&_
"Annonsen blir synlig i Stuffmarket omgående om inga fel föreligger..<br>Annonsen ligger i 30 dagar. Lycka till !</font><B><br>"&_
"Annons_referens: </b>" & id & "<BR><B>Tel: </b>" & phone & "<BR>Om du vill tabort din annons?<BR><B> Lösenord: </b>" & password & vbcrlf
Set oMail = CreateObject("CDONTS.NewMail")
oMail.From = Senderemail
oMail.To = Email
oMail.Bcc = "ivo.trendewski@comhem.se"
oMail.Subject = Subject
oMail.BodyFormat = 0
oMail.MailFormat = 0
oMail.Body = strContent
oMail.Send
Set oMail = Nothing[/red]
Viktigt är att man anger fungerande mailadresser,
annars kommer det inte fungera korrekt.
Ser också att din sql-sats inte är korrekt.. du borde få ett felmeddelande på din kod eftersom du har en WHERE sats i din sql-sats som inte gör någonting..
