Från cdonts till cdosys

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]

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?

Ä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.

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?!

ade skrev:

ska jag ta bort dessa rader?

Har du testat?

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

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

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

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

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

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

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

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

@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

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

Felmeddelandet blev: HTTP 500 - Internal server error

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

    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"

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

Ska det verkligen vara hakar runt server-adressen?

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