webForumDet fria alternativet
Logga in

Från cdonts till cdosys

18 svar · 663 visningar · startad av ade

adeMedlem sedan juli 20041 081 inlägg
#1

Har läst i andra trådar och på hemsidor och får inge nfason på det så der ber jag om hjälp.

Så här ser kontaktscriptet ut nu:


<%
' Skickar mailet
If Len(Request.Form("email")) > 0 AND Len(Request.Form("subject")) > 0 AND Len(Request.Form("message")) > 0 Then 
Set newMail = Server.CreateObject("Cdonts.Message")
newMail.From = Request.Form("email")
newMail.To = "matte_k87@hotmail.com"
newMail.Subject = Request.Form("subject")
newMail.Body = Request.Form("message")
newMail.Send
Set newMail = Nothing

End If
%>

Skulle vara väldigt tacksam om ngåon ändrarde denna kod till cdosys..

PalleMedlem sedan apr. 20003 174 inlägg
#2

En variant:

[red]' Skickar mailet
If Len(Request.Form("email")) > 0 AND Len(Request.Form("subject")) > 0 AND Len(Request.Form("message")) > 0 Then 
	Set cdoMail = CreateObject("CDO.Message")  
		cdoMail.From = Request.Form("email")
		cdoMail.To = "matte_k87@hotmail.com"
		cdoMail.Subject = Request.Form("subject")
		cdoMail.HTMLBody = Request.Form("message")
		cdoMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
		cdoMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.server.här"
		cdoMail.Configuration.Fields.Update
		cdoMail.Send
	Set cdoMail = Nothing 
End If[/red]
adeMedlem sedan juli 20041 081 inlägg
#3

Men jag har web10 och har ingen smtp server! Men dom har stöd för cdosys.. går det att köra dettta utan smtp?

Jesper TMedlem sedan nov. 20017 144 inlägg
#4

Är smtp-servern ett krav för att få det att rulla så kommer ju cdosys inte att fungera.
Har dom cdosys så skall det väl fungera som standard utan.

adeMedlem sedan juli 20041 081 inlägg
#5

Jasså. Hur skriver jag då?

ska jag ta bort dessa rader?

cdoMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
cdoMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.server.här"

Eller går det att koda på annat sätt?!

PalleMedlem sedan apr. 20003 174 inlägg
#6

ade skrev:

ska jag ta bort dessa rader?

Har du testat?

Har inte web10 någon support?
Fråga dom. ;)

@ndersMedlem sedan juni 200032 969 inlägg
#7

Jag tycker jag känner igen frågan...

Man kan ju alltid titta i tidigare trådar, och/eller använda sökfunktionen.

adeMedlem sedan juli 20041 081 inlägg
#8

om någon byter ut det till så får dne personen 100kr

WebbisNetMedlem sedan feb. 20032 027 inlägg
#9

Re: Från cdonts till cdosys

ade skrev:

Har läst i andra trådar och på hemsidor och får inge nfason på det så der ber jag om hjälp.

Så här ser kontaktscriptet ut nu:


<%
' Skickar mailet
If Len(Request.Form("email")) > 0 AND Len(Request.Form("subject")) > 0 AND Len(Request.Form("message")) > 0 Then 
Set newMail = Server.CreateObject("Cdonts.Message")
newMail.From = Request.Form("email")
newMail.To = "matte_k87@hotmail.com"
newMail.Subject = Request.Form("subject")
newMail.Body = Request.Form("message")
newMail.Send
Set newMail = Nothing

End If
%>

Skulle vara väldigt tacksam om ngåon ändrarde denna kod till cdosys..

jag har web10 och använder

<%
Dim sMsg 
Dim sTo 
Dim sBCC
Dim sFrom 
Dim sSubject 
Dim sTextBody 

varFrom = Request.Form("txtFrom")
varTo = Request.Form("selMottagare")
varSubject = Request.Form("txtSubject")
varMail = Request.Form("txtMail")
varDate = Request.Form("txtDate")
varIP = Request.Form("txtIP")

sTo = varTo
sBCC = "info@webbisen.com"
sFrom = varFrom
sSubject = varSubject
sTextBody = varMail

Dim objMail
'Create the mail object 
Set objMail = Server.CreateObject("CDO.Message")

'Set key properties 
objMail.From = sFrom 
objMail.To = sTo 
objMail.BCC = sBCC 
objMail.Subject= sSubject 
objMail.TextBody = sTextBody 

'Send the email 
objMail.Send 

'Clean-up mail object
Set objMail = Nothing
adeMedlem sedan juli 20041 081 inlägg
#10

Ojsan skulle ha varit

aspUpload
aspMail
aspImage
jmail
MS AdRotator
MS ADODB
MS CDONTS
MS Counter
MS FSO
MS Server XMLHTTP
MS XMLHTTP
Mail Components
EtrFileUp
CDOSYS

RobsonMedlem sedan dec. 2001200 inlägg
#11

Hej,

Har läst era problem och jag har liknande. Har försökt att fixa till det själv, men...

Så här ser felmeddelandet ut:

Server object error 'ASP 0177 : 800401f3'
Server.CreateObject Failed
/butiken/validateOrder.asp, line 398
800401f3

Så här ser sidan ut på det aktuella området:


<%
'send a confirmation e-mail to customer
'this will not work on your personal machine with Windows 98 Operating System and Microsoft Personal Web Server
'only when deployed to the NT(IIS) 4.0, 5.0, or Windows 2000 server with CDONTS.DLL
'you may comment out while testing on your personal Windows 98 machine
Dim objMsg, strFrom, strBcc, strTo, strSubject, strBody, lngImportance
strFrom = "info@nilson.se"
strTo = Trim(Request.Form("strEmail"))
strBcc = "info@minsajt.se"
strSubject = "Orderbekräftelse"
strBody = "Tack för att du handlar hos oss." & vbNewLine & _
		"Din summa att betala är " & Trim(Request.Form("intTotal")) & vbNewLine & _
		"varav moms" & Trim(Request.Form("intTax")) & vbNewLine & _
		"och fraktkostnader på " & Trim(Request.Form("intShipping")) & "." & vbNewLine & _
		"Ditt Ordr ID är: " & Trim(Request.form("intOrderID")) & "." & vbNewLine & _
		"Referera till detta nummer, om du har några frågor om din beställning."
lngImportance = 1

Set objMsg = Server.CreateObject("CDONTS.NewMail")

objMsg.From = strFrom
objMsg.To = strTo
objMsg.Bcc = strBcc
objMsg.Subject = strSubject
objMsg.Body = strBody
objMsg.Importance = lngImportance
objMsg.Send

Set objMsg = Nothing
%>

Och så här skriver webbhotellet att det skall se ut:


<% 
    sch = "http://schemas.microsoft.com/cdo/configuration/" 
    Set cdoConfig = Server.CreateObject("CDO.Configuration") 
    cdoConfig.Fields.Item(sch & "sendusing") = 2 
    cdoConfig.Fields.Item(sch & "smtpserver") =
"<enter_mail.server_here>" 
    cdoConfig.fields.update 
 
    Set cdoMessage = Server.CreateObject("CDO.Message") 
    Set cdoMessage.Configuration = cdoConfig 
    cdoMessage.From = "from@me.com" 
    cdoMessage.To = "to@me.com" 
    cdoMessage.Subject = "Sample CDONTS NewMail" 
    cdoMessage.TextBody = "This is a test for CDONTS message" 
    cdoMessage.Send 
    Set cdoMessage = Nothing 
    Set cdoConfig = Nothing 
%>

Finns det någon som kan hjälpa till med detta. Kanske är det enkelt för er?

Robson

@ndersMedlem sedan juni 200032 969 inlägg
#12

Kanske är det enkelt för er?

Ja, det är väl det. =)

Försök du, du kan säkert översätta det mesta av din gamla CDONTS-kod med hjälp av exemplet från webhotellet. När du inte kommer längre i din kodöversättning, visa din kodöversättning och felmeddelandet så finns det folk som vill hjälpa till.

mvh

WebbisNetMedlem sedan feb. 20032 027 inlägg
#13

@nders skrev:

Kanske är det enkelt för er?

Ja, det är väl det. =)

Försök du, du kan säkert översätta det mesta av din gamla CDONTS-kod med hjälp av exemplet från webhotellet. När du inte kommer längre i din kodöversättning, visa din kodöversättning och felmeddelandet så finns det folk som vill hjälpa till.

mvh

Den kod jag postade fungerar

RobsonMedlem sedan dec. 2001200 inlägg
#14

Detta har jag ändrat till:

Felmeddelandet blev: HTTP 500 - Internal server error

<%
'send a confirmation e-mail to customer
'this will not work on your personal machine with Windows 98 Operating System and Microsoft Personal Web Server
'only when deployed to the NT(IIS) 4.0, 5.0, or Windows 2000 server with CDONTS.DLL
'you may comment out while testing on your personal Windows 98 machine
'Dim cdoMessage, cdoMessage.From, cdo.Message.Bcc, cdoMessage.To, cdoMessage.Subject, cdoMessage.TextBody

sch = "http://schemas.microsoft.com/cdo/configuration/" 
    Set cdoConfig = Server.CreateObject("CDO.Configuration") 
    cdoConfig.Fields.Item(sch & "sendusing") = 2 
    cdoConfig.Fields.Item(sch & "smtpserver") =
    "<smtp.glidecom.se>" 
    cdoConfig.fields.update 

Set cdoMessage = Server.CreateObject("CDO.Message") 
    Set cdoMessage.Configuration = cdoConfig

cdoMessage.From = "info@nilson.se"
cdoMessage.To = Trim(Request.Form("strEmail"))
cdo.Message.Bcc = "info@minsajt.se"
cdoMessage.Subject = "Orderbekräftelse"
cdoMessage.TextBody = "Tack för att du handlar hos oss." & vbNewLine & _
		"Din summa att betala är " & Trim(Request.Form("intTotal")) & vbNewLine & _
		"varav moms" & Trim(Request.Form("intTax")) & vbNewLine & _
		"och fraktkostnader på " & Trim(Request.Form("intShipping")) & "." & vbNewLine & _
		"Ditt Ordr ID är: " & Trim(Request.form("intOrderID")) & "." & vbNewLine & _
		"Referera till detta nummer, om du har några frågor om din beställning."
cdoMessage.Send 
    Set cdoMessage = Nothing 
    Set cdoConfig = Nothing
%>

Robson

@ndersMedlem sedan juni 200032 969 inlägg
#15

Felmeddelandet blev: HTTP 500 - Internal server error

Har du Egna http-felmeddelanden / Friendly http error messages aktiverat i IE? Bort!

@ndersMedlem sedan juni 200032 969 inlägg
#16
    cdoConfig.Fields.Item(sch & "smtpserver") =
    "<smtp.glidecom.se>"

skall vara

    cdoConfig.Fields.Item(sch & "smtpserver") = "<smtp.glidecom.se>"

cdo.Message.Bcc = "info@minsajt.se"

skall vara

cdoMessage.Bcc = "info@minsajt.se"
RobsonMedlem sedan dec. 2001200 inlägg
#17

Har ändrat lite hit o dit. Men det verkar som om jag har fel i servervärdena.

Rad 407 är:

cdoConfig.Fields.Item(sch & "smtpserver") = "<smtp.glidecom.se>"

CDO.Message.1 error '80040213'

The transport failed to connect to the server.

/butiken/validateOrder.asp, line 407

@ndersMedlem sedan juni 200032 969 inlägg
#18

Ska det verkligen vara hakar runt server-adressen?

RobsonMedlem sedan dec. 2001200 inlägg
#19

Hakarna skulle inte vara där. Nu funkar CDO-grejen, men själva neddelandet kommer inte upp. "cdoMessage.TextBody"

Jag försöker själv, det viktiga var att få igång CDO

Tackar alla för hjälpen,
Robson

131 ms totalt · 3 externa anrop · v20260731065814-full.beb2e261
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
129 ms — hämta tråd, inlägg och bilagor (db)