Microsoft VBScript runtime error '800a004c'
Path not found
/Community/membri/creazionesito.asp, line 166
line: FileSystemObject.CreateFolder NewUserPath
Microsoft VBScript runtime error '800a004c'
Path not found
/Community/membri/creazionesito.asp, line 166
line: FileSystemObject.CreateFolder NewUserPath
prova
FileSystemObject.CreateFolder Server.MapPath (NewUserPath)
Originariamente inviato da Lino80
Microsoft VBScript runtime error '800a004c'
Path not found
/Community/membri/creazionesito.asp, line 166
line: FileSystemObject.CreateFolder NewUserPath
Vediamo la pagina...
grazie ho risolto quello...le cartelle erano da inserire in public...
ho questo problema ora:
Microsoft VBScript runtime error '800a01b6'
Object doesn't support this property or method: 'MailFormat'
/public/membri/creazionesito.asp, line 223
codice:'############################################################################ '# Conferma email # '############################################################################ Dim strMsgHeader,Mail,html strMsgHeader = "Ciao " & Nome & " " & Cognome & vbCrLf & vbCrLf strMsgHeader = strMsgHeader & "Benvenuto nella nuova Community : " & vbCrLf & vbCrLf strMsgHeader = strMsgHeader & "Questo è il tuo indirizzo Web : " & vbCrLf strMsgHeader = strMsgHeader & ServerURL & Repertorio & vbCrLf & vbCrLf strMsgHeader = strMsgHeader & "Adesso corri a realizzare il tuo nuovo Web Site " & ServerURL & "ftp_online.asp" & vbCrLf & vbCrLf strMsgHeader = strMsgHeader & "Ti ricordo il tuo Nickname e Password " & vbCrLf & vbCrLf strMsgHeader = strMsgHeader & "Nickname: "& Nickname & vbCrLf strMsgHeader = strMsgHeader & "Password: "& Passw & vbCrLf & vbCrLf& vbCrLf strMsgHeader = strMsgHeader & "Buon divertimento con il tuo nuovo web site :)"& vbCrLf strMsgHeader = strMsgHeader & "----------------------------------------------------" & vbcrlf strMsgHeader = strMsgHeader & "Community Powered by "& Live_server & vbcrlf strMsgHeader = strMsgHeader & "Nome e Cognome " set Mail = CreateObject("CDO.Message") Mail.MailFormat = html Mail.from = webmaster_email Mail.to = Email Mail.Subject = Oggetto_Email Mail.Body = (strMsgHeader) & vbCrLf & vbCrLf & "** Original-IP:" & Request.ServerVariables("REMOTE_ADDR") Mail.Importance = 2 Mail.Send
Prova a sostituire
Mail.Body =
con
Mail.TextBody =
e a commentare la riga:
Mail.MailFormat = html
codice default:
codice:'############################################################################ '# Conferma email # '############################################################################ Dim strMsgHeader,Mail,html strMsgHeader = "Ciao " & Nome & " " & Cognome & vbCrLf & vbCrLf strMsgHeader = strMsgHeader & "Benvenuto nella nuova Community : " & vbCrLf & vbCrLf strMsgHeader = strMsgHeader & "Questo è il tuo indirizzo Web : " & vbCrLf strMsgHeader = strMsgHeader & ServerURL & Repertorio & vbCrLf & vbCrLf strMsgHeader = strMsgHeader & "Adesso corri a realizzare il tuo nuovo Web Site " & ServerURL & "ftp_online.asp" & vbCrLf & vbCrLf strMsgHeader = strMsgHeader & "Ti ricordo il tuo Nickname e Password " & vbCrLf & vbCrLf strMsgHeader = strMsgHeader & "Nickname: "& Nickname & vbCrLf strMsgHeader = strMsgHeader & "Password: "& Passw & vbCrLf & vbCrLf& vbCrLf strMsgHeader = strMsgHeader & "Buon divertimento con il tuo nuovo web site :)"& vbCrLf strMsgHeader = strMsgHeader & "----------------------------------------------------" & vbcrlf strMsgHeader = strMsgHeader & "Community Powered by "& Live_server & vbcrlf strMsgHeader = strMsgHeader & "Nome e Cognome " Set Mail = Server.CreateObject("CDONTS.NewMail") Mail.MailFormat = html Mail.from = webmaster_email Mail.to = Email Mail.Subject = Oggetto_Email Mail.Body = (strMsgHeader) & vbCrLf & vbCrLf & "** Original-IP:" & Request.ServerVariables("REMOTE_ADDR") Mail.Importance = 2 Mail.Send '############################################################################ '# Email Anche al Webmaster # '############################################################################ strMsgHeader = "Ciao " & Nome & " " & Cognome & vbCrLf & vbCrLf strMsgHeader = strMsgHeader & "Benvenuto nella nuova Community : " & vbCrLf & vbCrLf strMsgHeader = strMsgHeader & "Questo è il tuo indirizzo Web : " & vbCrLf strMsgHeader = strMsgHeader & ServerURL & Repertorio & vbCrLf & vbCrLf strMsgHeader = strMsgHeader & "Adesso corri a realizzare il tuo nuovo Web Site " & ServerURL & "ftp_online.asp" & vbCrLf & vbCrLf strMsgHeader = strMsgHeader & "Ti ricordo il tuo Nickname e Password " & vbCrLf & vbCrLf strMsgHeader = strMsgHeader & "Nickname: "& Nickname & vbCrLf strMsgHeader = strMsgHeader & "Password: "& Passw & vbCrLf & vbCrLf& vbCrLf strMsgHeader = strMsgHeader & "Buon divertimento con il tuo nuovo web site :)"& vbCrLf strMsgHeader = strMsgHeader & "----------------------------------------------------" & vbcrlf strMsgHeader = strMsgHeader & "Community Powered by "& Live_server & vbcrlf strMsgHeader = strMsgHeader & "Nome e Cognome " Set Mail = Server.CreateObject("CDONTS.NewMail") Mail.MailFormat = html Mail.from = webmaster_email Mail.to = webmaster_email Mail.Subject = "Nuovo Utemte si è registratto alla Comunity" Mail.Body = (strMsgHeader) & vbCrLf & vbCrLf & "** Original-IP:" & Request.ServerVariables("REMOTE_ADDR") Mail.Importance = 2 Mail.Send
so che bisogna usare CDOSYS perciò da errore..ma come si adatta a questo script ?
se ci inserisco questo?
Script per CDOSYS
codice:Dim Messaggio Dim Confcdo Dim Flds Dim strHTML Dim smtpserver Const cdoSendUsingPort = 2 smtpserver = mailserver set Messaggio = CreateObject("CDO.Message") set Confcdo = CreateObject("CDO.Configuration") Set Flds = Confcdo.Fields
Ora sto uscendo dall'ufficio, ma se hai pazienza nel pomeriggio ti posso postare la pagina modificata con CDOSYS, che magari può servire anche ad altri.
ok grazie mille, gentilissimo
Le parti modificate sono commentate, così può esserti utile per una prossima volta.codice:'############################################################################ '# Conferma email # '############################################################################ Dim strMsgHeader,Mail,html strMsgHeader = "Ciao " & Nome & " " & Cognome & vbCrLf & vbCrLf strMsgHeader = strMsgHeader & "Benvenuto nella nuova Community. " & vbCrLf & vbCrLf strMsgHeader = strMsgHeader & "Questo è il tuo indirizzo Web: " & vbCrLf strMsgHeader = strMsgHeader & ServerURL & Repertorio & vbCrLf & vbCrLf strMsgHeader = strMsgHeader & " Adesso corri a realizzare il tuo nuovo Sito Web da questo indirizzo: " & ServerURL & "ftp_online.asp" & vbCrLf & vbCrLf strMsgHeader = strMsgHeader & " Ti ricordo il tuo Nickname e Password " & vbCrLf & vbCrLf strMsgHeader = strMsgHeader & "Nickname: "& Nickname & "" & vbCrLf strMsgHeader = strMsgHeader & " Password: "& Passw & "" & vbCrLf & vbCrLf& vbCrLf strMsgHeader = strMsgHeader & " Buon divertimento con il tuo nuovo sito web: "& vbCrLf strMsgHeader = strMsgHeader & "---------------------------------------------------- " & vbcrlf strMsgHeader = strMsgHeader & "Community by "& Live_server & vbcrlf strMsgHeader = strMsgHeader & " Sei pregato di usare il tuo sito web correttamente e senza offendere la pubblica morale. " & vbCrLf strMsgHeader = strMsgHeader & "Ti ricordo che non sono ammessi siti con riferimento a pornografia e pedofilia, né offensivi o non in linea con le leggi vigenti. " 'Set Mail = Server.CreateObject("CDONTS.NewMail") Set Mail = Server.CreateObject("CDO.Message") 'Mail.MailFormat = html Mail.from = webmaster_email Mail.to = Email Mail.Subject = Oggetto_Email Mail.HtmlBody = (strMsgHeader) & vbCrLf & vbCrLf & "** Original-IP:" & Request.ServerVariables("REMOTE_ADDR") 'Mail.Importance = 2 Mail.Send() '############################################################################ '# Email Anche al Webmaster # '############################################################################ strMsgHeader = "Ciao " & Nome & " " & Cognome & vbCrLf & vbCrLf strMsgHeader = strMsgHeader & "Benvenuto nella nuova Community : " & vbCrLf & vbCrLf strMsgHeader = strMsgHeader & "Questo è il tuo indirizzo Web : " & vbCrLf strMsgHeader = strMsgHeader & ServerURL & Repertorio & vbCrLf & vbCrLf strMsgHeader = strMsgHeader & "Adesso corri a realizzare il tuo nuovo Web Site " & ServerURL & "ftp_online.asp" & vbCrLf & vbCrLf strMsgHeader = strMsgHeader & "Ti ricordo il tuo Nickname e Password " & vbCrLf & vbCrLf strMsgHeader = strMsgHeader & "Nickname: "& Nickname & vbCrLf strMsgHeader = strMsgHeader & "Password: "& Passw & vbCrLf & vbCrLf& vbCrLf strMsgHeader = strMsgHeader & "Buon divertimento con il tuo nuovo web site :)"& vbCrLf strMsgHeader = strMsgHeader & "----------------------------------------------------" & vbcrlf strMsgHeader = strMsgHeader & "Community Powered by "& Live_server & vbcrlf strMsgHeader = strMsgHeader & "Nome e Cognome " 'Set Mail = Server.CreateObject("CDONTS.NewMail") Set Mail = Server.CreateObject("CDO.Message") 'Mail.MailFormat = html Mail.from = webmaster_email Mail.to = webmaster_email Mail.Subject = "Nuovo Utemte si è registratto alla Comunity" Mail.HtmlBody = (strMsgHeader) & vbCrLf & vbCrLf & "** Original-IP:" & Request.ServerVariables("REMOTE_ADDR") 'Mail.Importance = 2 Mail.Send() Else Response.Write ("<center><font color=red size=3>Questo Nickname è gia stato assegnato!!! Torna indietro e riprova</font></center>") Response.end end if %>
Permessi di invio
Rispondi quotando