salve a tutti, ho un tremendo problema... ho un file che fungeva su un server 2000 ora per necessità devo farlo funzionare con un 2003, ho effettuato alcune modifiche (che nel codice sotto riporto commentato), ma non mi funge (l'errore che mi da è questo:
Errore di compilazione di Microsoft VBScript error '800a0412'
Deve essere la prima istruzione della riga
/cartoline/sendit.asp, line 19
sValidChars = szDefault End If
--------------------------^)
per cui vi posto il file riportando in grassetto la parte che prima fungeva con il 2000 e che adesso è disabilitata con gli apici e commentata la parte invece che dovrebbe fungere (ossia il cdosys). gentilmente datemi na mano che sto impazzendo:
<!--#include file="inccard.asp"-->
<%
Dim nCardId, sNameTo, sNameFrom, sEmailFrom, sText, sBGColor, sTextColor, sEmailTo, sFrancobollo, sMusica
' Create encypted password to collect card
Function Password_GenPass( nNoChars, sValidChars )
' nNoChars = length of generated password
' sValidChars = valid characters. If zerolength-string
' default is used: A-Z AND a-z AND 0-9
Const szDefault = "abcdefghijklmnopqrstuvxyzABCDEFGHIJKLMNOPQRSTUVXYZ0123456789"
Dim nCount
Dim sRet
Dim nNumber
Dim nLength
Randomize 'init random
If sValidChars = "" Then
sValidChars = szDefault
End If
nLength = Len( sValidChars )
For nCount = 1 To nNoChars
nNumber = Int((nLength * Rnd) + 1)
sRet = sRet & Mid( sValidChars, nNumber, 1 )
Next
Password_GenPass = sRet
End Function
nCardId = Request.Form("fldAuto")
if nCardId = "" Then
Response.Redirect "."
End If
'Ok...
sNameTo = Request.Form("nameto")
sMusica = Request.Form("Musica")
sFrancobollo = Request.Form("Francobollo")
sNameFrom = Request.Form("namefrom")
sEmailFrom = Request.Form("emailfrom")
sEmailTo = Request.Form("emailto")
sNotifySenderPickup = Request.Form("notifysenderpickup")
sGreeting = Request.Form("greeting")
sText = Request.Form("sText")
sBGColor = Request.Form("BgColor")
sTextColor = Request.Form("TColor")
'Save it to database
Dim oRS
Set oConn = PostCard_GetDatabaseConn()
oConn.Execute "update card set sendcount=sendcount+1 where fldAuto=" & nCardId
Set oRS = Server.CreateObject("ADODB.Recordset")
oRS.Open "select * from createdpostcards where fldAuto=-1 " ,oConn ,adOpenKeyset,adLockOptimistic
oRS.AddNew
oRS("cardid") = nCardId
oRS("nameto") = sNameTo
oRS("namefrom") = sNameFrom
oRS("emailto") = sEmailTo
oRS("emailfrom") = sEmailFrom
oRS("notifysenderpickup") = sNotifySenderPickup
oRS("Musica") = sMusica
oRS("Francobollo") = sFrancobollo
oRS("greeting") = sGreeting
oRS("stext") = sText
oRS("bbgcolor") = sBGColor
oRS("textcolor") = sTextcolor
' New addition of encryption for password
sOtherId = "enCard" + Password_GenPass( 10, "" )
oRS("otherid")= sOtherId
oRS.Update
Dim IDToSend
IDToSend = sOtherID
oRS.Close
' Send postcard alert to recipient
strMsgHeader = sNameFrom & " (" & sEmailFrom & ")" & " Ti ha spedito una cartolina" & vbCrLf & vbCrLf
strMsgHeader = strMsgHeader & "Clicca il collegamento qui sotto per vedere la tua Cartolina : " & vbCrLf & vbCrLf & GetPathToPickupScript() & "?cardid=" & IDToSend
strMsgHeader = strMsgHeader & vbCrLf & vbCrLf & "In alternativa visita " & live_serverURL & " e poi inserisci il codice che trovi sotto, "
strMsgHeader = strMsgHeader & "fai direttamente copia e incolla : " & vbCrLf & vbCrLf & IDToSend
strMsgFooter = vbCrLf & vbCrLf & vbCrLf & "** Il servizio di " & postcard_name & " è totalmente Gratis" & vbCrLf & "** Visita " & live_serverURL & ""
'*************************inizio cdosys ********************
Dim objMail, objConfig
Set objMail = CreateObject("CDO.Message")
Set objConfig = Server.CreateObject ("CDO.Configuration")
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.tuosmtp.com" ' modificare l'smtp
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objConfig.Fields.Update
Set objMail.Configuration = objConfig
'qui aggiungi l'indirizzo email del sito
objMail.Format = html
objMail.From = "email@miosito.it"
objMail.To = sEmailTo
'objMail.Cc = ' per inviare una copia per conoscenza inserire l'email
'objMail.Bcc =' per inviare una copia per conoscenza nascosta inserire l'email
objMail.Subject = "Guarda la tua cartolina"
objMail.TextBody = (strMsgHeader & strMsgFooter) & vbCrLf & vbCrLf & "** Original-IP:" & Request.ServerVariables("REMOTE_ADDR")
'sMailText
objMail.Importance = 2
' objMail.HTMLbody = sMailText / quando si vuole inviare in formato HTML commentare la riga sopra e decommentare questa
objMail.Send
Set objMail = nothing
'********************** fine cdosys ********************
'Set Mail = Server.CreateObject("CDONTS.NewMail")
'Mail.MailFormat = html
'Mail.from = mail_server
'Mail.to = sEmailTo
'Mail.Subject = sNameTo & " Guarda la tua cartolina"
'Mail.Body = (strMsgHeader & strMsgFooter) & vbCrLf & vbCrLf & "** Original-IP:" & Request.ServerVariables("REMOTE_ADDR")
'Mail.Importance = 2
'Mail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
'Mail.Send
' Send postcard to webmaster
strMsgHeader = "E' stata inviata una cartolina a " & sNameTo & " (" & sEmailTo & ") da parte " & sNameFrom & " (" & sEmailFrom & ")" & vbCrLf & vbCrLf
strMsgFooter = vbCrLf & vbCrLf & vbCrLf & "** Il servizio di " & postcard_name & " è totalmente Gratis" & vbCrLf & "** Visita " & live_serverURL & ""
'*************************inizio cdosys ********************
'Dim objMail, objConfig
Set objMail = CreateObject("CDO.Message")
Set objConfig = Server.CreateObject ("CDO.Configuration")
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.tuosmtp.com" ' modificare l'smtp
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objConfig.Fields.Update
Set objMail.Configuration = objConfig
'qui aggiungi l'indirizzo email del sito
objMail.Format = html
objMail.From = "email@miosito.it"
objMail.To = "email@miosito.it"
'objMail.Cc = ' per inviare una copia per conoscenza inserire l'email
'objMail.Bcc =' per inviare una copia per conoscenza nascosta inserire l'email
objMail.Subject = sNameFrom & " ha invitao una card " & sEmailTo
objMail.TextBody = (strMsgHeader & strMsgFooter) & vbCrLf & vbCrLf & "** Original-IP:" & Request.ServerVariables("REMOTE_ADDR")
'sMailText
objMail.Importance = 2
' objMail.HTMLbody = sMailText / quando si vuole inviare in formato HTML commentare la riga sopra e decommentare questa
objMail.Send
Set objMail = nothing
'********************** fine cdosys ********************
'Set Mail = Server.CreateObject("CDONTS.NewMail")
'Mail.MailFormat = html
'Mail.from = webmaster_email
'Mail.to = webmaster_email
'Mail.Subject = sNameFrom & " ha invitao una card " & sEmailTo
'Mail.Body = (strMsgHeader & strMsgFooter) & vbCrLf & vbCrLf & "** Original-IP: " & Request.ServerVariables("REMOTE_ADDR")
'Mail.Importance = 2
'Mail.Send
' Send copy to sender of postcard if sNotifySenderPickup = "notifyme"
If sNotifySenderPickup = "notifyme" then
strMsgHeader = "La cartolina è stata inviata a " & sNameTo & " (" & sEmailTo & ")" & vbCrLf & vbCrLf
strMsgHeader = strMsgHeader & "Questa è una copia della email che ai inviato : " & vbCrLf & vbCrLf & GetPathToPickupScript() & "?cardid=" & IDToSend & "&sr=no "
strMsgHeader = strMsgHeader & vbCrLf & vbCrLf & "In alternativa visita " & live_serverURL & " e poi inserisci il codice che trovi sotto, "
strMsgHeader = strMsgHeader & "fai direttamente copia e incolla :" & vbCrLf & vbCrLf & IDToSend & "&sr=no"
strMsgFooter = vbCrLf & vbCrLf & vbCrLf & "** Il servizio di " & postcard_name & " è totalmente Gratis" & vbCrLf & "** Visita " & live_serverURL & ""
'*************************inizio cdosys ********************
'Dim objMail, objConfig
Set objMail = CreateObject("CDO.Message")
Set objConfig = Server.CreateObject ("CDO.Configuration")
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.tuosmtp.com" ' modificare l'smtp
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objConfig.Fields.Update
Set objMail.Configuration = objConfig
'qui aggiungi l'indirizzo email del sito
objMail.Format = html
objMail.From = "email@miosito.it"
objMail.To = sEmailFrom
'objMail.Cc = ' per inviare una copia per conoscenza inserire l'email
'objMail.Bcc =' per inviare una copia per conoscenza nascosta inserire l'email
objMail.Subject = "La cartolina è stata inviata a " &sNameTo
objMail.TextBody = (strMsgHeader & strMsgFooter) & vbCrLf & vbCrLf & "** Original-IP:" & Request.ServerVariables("REMOTE_ADDR")
'sMailText
objMail.Importance = 2
' objMail.HTMLbody = sMailText / quando si vuole inviare in formato HTML commentare la riga sopra e decommentare questa
objMail.Send
Set objMail = nothing
'********************** fine cdosys ********************
'Set Mail = Server.CreateObject("CDONTS.NewMail")
'Mail.MailFormat = html
'Mail.from = mail_server
'Mail.to = sEmailFrom
'Mail.Subject = "La cartolina è stata inviata a " &sNameTo
'Mail.Body = (strMsgHeader & strMsgFooter) & vbCrLf & vbCrLf & "** Original-IP: " & Request.ServerVariables("REMOTE_ADDR")
'Mail.Importance = 2
'Mail.SendEnd If
' Message sent Ok, redirect to a confirmation page
sPostcardToFriend = "thanks.asp?namefrom=" & sNameFrom & "&emailfrom=" & sEmailFrom
sPostcardToFriend = Replace(sPostcardToFriend, " ", "%20")
Response.Redirect (sPostcardToFriend)
Modificato da nologo il 13 dicembre 2006 13.25 - 
