Ciao ragazzi,
ho un problema:
non riesco a far andare un form x i contatti nè in IE nè in Firefox.
Vi lascio link alla pagina in cui è caricato:
http://www.orthosystem.it/newsite/contatti.html
ed il codice, sperando mi possiate dare una mano.
mail.asp :
l'indirizzo mail è corretto, ma non mi ritorna indietro nulla.codice:<%@ LANGUAGE="VBSCRIPT" %> <html> <head> <meta NAME="GENERATOR" Content="Microsoft FrontPage 3.0"> <meta HTTP-EQUIV="Content-Type" content="text/html;charset=iso-8859-1"> <title>CDONTSMail</title> <% Sub Write(strWriteThis) 'This subroutine just writes out whatever is 'passed to it. response.write(strWriteThis & " ") end sub %> </head> <body> <% Dim myCDONTSMail Dim strFrom Dim strTo Dim strSubject Dim strBody Dim lngImportance 'The following variable assignments are not required 'they are just here to make interpretation of the 'myCDONTSMail.Send line easier. You could put the 'Request.Form statements in the .Send line to cut down 'on the amount of code in the file. strFrom=request.form("txtEmail") strTo="elwoodux@fastwebnet.it" strSubject=request.form("txtOggetto") strBody=request.form("txtNome") & " " & request.form("txtCognome") & " ha inviato il seguente messaggio:"& CHR(13) & request.form("txtMessaggio") & CHR(13) & CHR(13) & request.form("txtNome") & request.form("txtCognome") & " ha inoltre reso disponibili i seguenti recapiti:" & CHR(13) & "E-mail: " & request.form("txtEmail") & CHR(13) & "Indirizzo: Via"& CHR(47) &"P.zza: " & request.form("txtVia") & CHR(13) & " Città: " & request.form("txtCitta") & CHR(13) & " in Provincia di " & request.form("txtProvincia") & CHR(13) & " C.A.P. " & request.form("txtCap") & CHR(13) & " Nazione " & request.form("txtNazione") & CHR(13) & CHR(13) & CHR(13) & "----------------" & CHR(13) & "i dati di cui sopra si riferiscono " & request.form("txtIndirizzo") 'lngImportance = request.form("optImportance") 'The following four lines of code are just here for test 'purposes to see what variables have been pulled in from the 'HTM form. 'Write("strFrom = " & strFrom) 'Write("strTo = " & strTo) 'Write("strSubject = " & strSubject) 'Write("strMessage = " & strBody) 'Write("Importance = " & lngImportance) Set myCDONTSMail = CreateObject("CDONTS.NewMail") myCDONTSMail.MailFormat = 1 myCDONTSMail.Send strFrom,strTo,strSubject,strBody 'Set myCDONTSMail = Nothing 'Write "Mail has been sent." 'if myCDONTSMail.Send then 'Response.Write "_root.boxtext.testo.tween1.EmailStatus=Complete - Your mail has been sent" 'else 'Response.Write "__root.boxtext.testo.tween1.EmailStatus=Failure - Your mail was not sent - errors" 'Response.Write myCDONTSMail.Response 'end if %> </body> </html>
dove sbaglio?
avete correzioni, suggerimenti per cortesia?
Grazie.
![]()
Elwood

Rispondi quotando