jmail till cdonts

4 svar · 207 visningar · startad av steffo 11 feb. 2003

steffoMedlem sedan feb. 200310 inlägg

Trådstart11 feb. 2003 20:16#1

jag har bytt hotell å det nya använder inte sig av jmail utan endast av cdonts. kan någon förklara för mig hur man ändrar ett script från jmail till cdonts
:stud
mvh steffo

Jesper TMedlem sedan nov. 20017 144 inlägg

11 feb. 2003 20:29#2

Välkommen till WF
Posta lite kod så skall det nog fixa sig.

steffoMedlem sedan feb. 200310 inlägg

11 feb. 2003 21:25#3

här är koden

<%
Response.Buffer = true

namn = Request.Form("namn")
adress = Request.Form("adress")
postnr1 = Request.Form("postnr1")
postnr2 = Request.Form("postnr2")
padress = Request.Form("postadress")
tfn1 = Request.Form("tfn1")
tfn2 = Request.Form("tfn2")
epost = Request.Form("epost")
ovrigt = Request.Form("ovrigt")
info = Array(namn,adress,postnr1,postnr2,padress,tfn1,tfn2,epost,ovrigt)
info2 = ""
For i = 0 to 8
info2 = info2 & info(i)
IF Not i = 8 then
info2 = info2 & "|"
END IF
Next
For i = 0 to 7
IF NOT len(info(i)) <> 0 then
Session("webshopfel") = "Du glömde att fylla i något fält"
session("falt") = info2
Response.Redirect Request.ServerVariables("")
END IF
Next

IF len(info(2)) > 5 then
Session("webshopfel") = "Felaktigt postnummer"
Session("falt") = info2
Response.Redirect Request.ServerVariables("")
END IF

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath("web.mdb")
Session.Lcid = 1053

varde = Request.Cookies(""& Session.SessionID &"")
hamta = Split(varde,"&")
ReDim MyArray(4,Ubound(hamta))
for x = 0 to ubound(hamta)
hamta2 = Split(hamta(x),"=")
IF Len(hamta2(0)) > 0 AND len(hamta2(1)) > 0 then
SQL = "SELECT * FROM produkter WHERE id =" & int(hamta2(0))
Set RecSet = Connect.Execute(SQL)
MyArray(0,x) = hamta2(0)
MyArray(1,x) = hamta2(1)
MyArray(2,x) = RecSet("artnr")
MyArray(3,x) = RecSet("namn")
MyArray(4,x) = RecSet("pris")

RecSet.Close
Set RecSet = nothing
END IF
next
Set jmail = Server.CreateObject("JMail.Message")

jmail.AddRecipient ""& eposten &"", ""& eposten &""
jmail.From = "" & info(7) & ""
jmail.Subject = "Beställning"
jmail.appendHTML ""
For i = 0 To Ubound(myArray,2)
IF Len(MyArray(0,i)) > 0 then
jmail.appendHTML "Art.nr: " & MyArray(2,i) & " "
jmail.AppendHTML "Produkt: " & MyArray(3,i) & " "
jmail.AppendHTML "Antal: " & MyArray(1,i) & " "
jmail.AppendHTML "------------------------------------------- "
IF i = Ubound(myArray,2) then
jmail.AppendHTML " "
END IF
END IF
Next
jmail.appendHTML "Namn: " & info(0) & " "
jmail.appendHTML "Adress: " & info(1) & " "
jmail.appendHTML "Postnr: " & info(2) & info(3) & " "
jmail.appendHTML "Postadress: " & info(4) & " "
jmail.appendHTML "Telefonnummer: " & info(5) & "-" & info(6) & " "
jmail.appendHTML "E-post: " & info(7) & " "
jmail.appendHTML "Övrigt: " & info(8) & " "
jmail.appendHTML "Skickat: " & Now() & " "
jmail.appendHTML ""
jmail.Send(mailserver)

For Each nyckel in Request.Cookies(Session.SessionID)
Response.Cookies(Session.SessionID)(nyckel) = ""
Next
sida = Request.ServerVariables("") & "&skickad=ja"
Response.Redirect sida
%>

Jesper TMedlem sedan nov. 20017 144 inlägg

11 feb. 2003 21:47#4

Använd gärna [ kod]-taggarna.
Testa detta:

<% 
Response.Buffer = true 

namn = Request.Form("namn") 
adress = Request.Form("adress") 
postnr1 = Request.Form("postnr1") 
postnr2 = Request.Form("postnr2") 
padress = Request.Form("postadress") 
tfn1 = Request.Form("tfn1") 
tfn2 = Request.Form("tfn2") 
epost = Request.Form("epost") 
ovrigt = Request.Form("ovrigt") 
info = Array(namn,adress,postnr1,postnr2,padress,tfn1,tfn2,epost,ov
rigt) 
info2 = "" 
For i = 0 to 8 
info2 = info2 & info(i) 
IF Not i = 8 then 
info2 = info2 & "|" 
END IF 
Next 
For i = 0 to 7 
IF NOT len(info(i)) <> 0 then 
Session("webshopfel") = "Du glömde att fylla i något fält" 
session("falt") = info2 
Response.Redirect Request.ServerVariables("") 
END IF 
Next 

IF len(info(2)) > 5 then 
Session("webshopfel") = "Felaktigt postnummer" 
Session("falt") = info2 
Response.Redirect Request.ServerVariables("") 
END IF 

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath("web.mdb") 
Session.Lcid = 1053 

varde = Request.Cookies(""& Session.SessionID &"") 
hamta = Split(varde,"&") 
ReDim MyArray(4,Ubound(hamta)) 
for x = 0 to ubound(hamta) 
hamta2 = Split(hamta(x),"=") 
IF Len(hamta2(0)) > 0 AND len(hamta2(1)) > 0 then 
SQL = "SELECT * FROM produkter WHERE id =" & int(hamta2(0)) 
Set RecSet = Connect.Execute(SQL) 
MyArray(0,x) = hamta2(0) 
MyArray(1,x) = hamta2(1) 
MyArray(2,x) = RecSet("artnr") 
MyArray(3,x) = RecSet("namn") 
MyArray(4,x) = RecSet("pris") 

RecSet.Close 
Set RecSet = nothing 
END IF 
next 

html1="<font face=verdana size=1>" 
For i = 0 To Ubound(myArray,2) 
IF Len(MyArray(0,i)) > 0 then 
html1=html1&"<b>Art.nr: </b>" & MyArray(2,i) & "<br>" &_
"<b>Produkt: </b>" & MyArray(3,i) & "<br>" &_
"<b>Antal: </b>" & MyArray(1,i) & "<br>" &_
"-------------------------------------------<br>" 
IF i = Ubound(myArray,2) then 
html1=html1&"<br>" 
END IF 
END IF 
Next 

html2="<b>Namn: </b>" & info(0) & "<br>" &_
"<b>Adress: </b>" & info(1) & "<br>" &_
"<b>Postnr: </b>" & info(2) & info(3) & "<br>" &_
"<b>Postadress: </b>" & info(4) & "<br>" &_
"<b>Telefonnummer: </b>" & info(5) & "-" & info(6) & "<br>" &_
"<b>E-post: </b>" & info(7) & "<br>"&_ 
"<b>Övrigt: </b>" & info(8) & "<br>" &_
"<b>Skickat: </b>" & Now() & "<br>"&_ 
"</font>" 

 
Set ObjSendMail = CreateObject("CDONTS.NewMail")

With ObjSendMail
.From = "" & info(7) & ""
.To = ""& eposten &"", ""& eposten &"" 
.BodyFormat = 0
.BodyFormat = cdoBodyFormatHTML
.MailFormat = 0
.subject = "Beställning"
.Body = html1&html2
.Send
End With

Set ObjSendMail = Nothing

For Each nyckel in Request.Cookies(Session.SessionID) 
Response.Cookies(Session.SessionID)(nyckel) = "" 
Next 
sida = Request.ServerVariables("") & "&skickad=ja" 
Response.Redirect sida 
%>

steffoMedlem sedan feb. 200310 inlägg

11 feb. 2003 23:21#5

tackar så mycket :bire