salve a tutti ho questo form mail che non mi funziona.... però visto che non sono stato io a crearlo non so dove mettere le mani... mi potete aiutare???
codice:<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% dim mex mex = "" If Request("messaggio") <> "" Then mex = "alert('Email inviata correttamente');" End If %> <HTML> <HEAD> <TITLE>xxxxxxxxxxxxx</TITLE> <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=windows-1252"> <LINK HREF="stile.css" REL="stylesheet" TYPE="text/css"> <SCRIPT LANGUAGE="JavaScript" TYPE="text/JavaScript"> <!-- function MM_findObj(n, d) { //v4.01 var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) { d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);} if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n]; for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document); if(!x && d.getElementById) x=d.getElementById(n); return x; } function MM_validateForm() { //v4.0 var i,p,q,nm,test,num,min,max,errors='',args=MM_validateForm.arguments; for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=MM_findObj(args[i]); if (val) { nm=val.name; if ((val=val.value)!="") { if (test.indexOf('isEmail')!=-1) { p=val.indexOf('@'); if (p<1 || p==(val.length-1)) errors+='- '+nm+' non è un indirizzo corretto.\n'; } else if (test!='R') { num = parseFloat(val); if (isNaN(val)) errors+='- '+nm+' must contain a number.\n'; if (test.indexOf('inRange') != -1) { p=test.indexOf(':'); min=test.substring(8,p); max=test.substring(p+1); if (num<min || max<num) errors+='- '+nm+' must contain a number between '+min+' and '+max+'.\n'; } } } else if (test.charAt(0) == 'R') errors += '- '+nm+' è obbligatorio.\n'; } } if (errors) alert('Impossinile continuare:\n'+errors); document.MM_returnValue = (errors == ''); } //--> </SCRIPT> </HEAD> <BODY onLoad="<%=mex%>" BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#3300FF" VLINK="#3300FF" ALINK="#3300FF" LEFTMARGIN="0" TOPMARGIN="0" MARGINWIDTH="0" MARGINHEIGHT="0"> <SCRIPT LANGUAGE="JavaScript">if (document.all) { document.body.onmousedown=new Function("if (event.button==2||event.button==3)alert('Il tasto destro del Mouse è disabilitato')") }</SCRIPT> ho cancellato un po di codice della grafica qui <TR> <TD ALIGN="CENTER"><FORM ACTION="gomail.asp" METHOD="post" NAME="form1" onSubmit="MM_validateForm('cognome','','R','nome','','R','email','','RisEmail','richiesta','','R');return document.MM_returnValue"> <TABLE WIDTH="70%" BORDER="0" CELLSPACING="3" CELLPADDING="0"> <TR> <TD COLSPAN="2"><DIV ALIGN="CENTER" CLASS="CellaTitolo"><FONT COLOR="#FFFFFF">.</FONT></DIV></TD> </TR> <TR> <TD COLSPAN="2"><DIV ALIGN="CENTER" CLASS="CellaTitolo"><FONT COLOR="#000000">Compila il modulo contatti...</FONT></DIV></TD> </TR> <TR> <TD COLSPAN="2"><DIV ALIGN="CENTER" CLASS="CellaTitolo"><FONT COLOR="#FFFFFF">.</FONT></DIV></TD> </TR> <TR> <TD WIDTH="45%"> <DIV ALIGN="RIGHT" CLASS="CellaTesto"><FONT COLOR="#000000">Cognome:</FONT></DIV></TD> <TD WIDTH="55%"> <FONT COLOR="#000000"> <INPUT NAME="cognome" TYPE="text" CLASS="Form_Input" SIZE="40"> </FONT></TD> </TR> <TR> <TD><DIV ALIGN="RIGHT" CLASS="CellaTesto"><FONT COLOR="#000000">Nome:</FONT></DIV></TD> <TD> <FONT COLOR="#000000"> <INPUT NAME="nome" TYPE="text" CLASS="Form_Input" SIZE="30"> </FONT></TD> </TR> <TR> <TD><DIV ALIGN="RIGHT" CLASS="CellaTesto"><FONT COLOR="#000000">Email:</FONT></DIV></TD> <TD> <FONT COLOR="#000000"> <INPUT NAME="email" TYPE="text" CLASS="Form_Input" SIZE="45"> </FONT></TD> </TR> <TR> <TD VALIGN="TOP"><FONT COLOR="#000000"></FONT></TD> <TD><DIV ALIGN="LEFT" CLASS="CellaTestoMini"><FONT COLOR="#990000">Attenzione. L'email sopra inserita verrà usata per le risposte, inserendo un indirizzo non valido la richiesta verrà direttamente cestinata. Controllare che l'indirizzo email sia corretto.</FONT></DIV></TD> </TR> <TR> <TD VALIGN="TOP"> <DIV ALIGN="RIGHT" CLASS="CellaTesto"><FONT COLOR="#000000">Richiesta:</FONT></DIV></TD> <TD> <TEXTAREA NAME="richiesta" COLS="70" ROWS="10" CLASS="Form_Input"></TEXTAREA> </TD> </TR> <TR> <TD><DIV ALIGN="RIGHT" CLASS="CellaTestoMini"><FONT COLOR="#000000">Your Address:</FONT></DIV></TD> <TD><DIV ALIGN="LEFT" CLASS="CellaTestoMini"><FONT COLOR="#990000"><%=Request.ServerVariables("REMOTE_ADDR")%></FONT></DIV></TD> </TR> <TR> <TD><DIV ALIGN="RIGHT" CLASS="CellaTestoMini"><FONT COLOR="#000000">Time:</FONT></DIV></TD> <TD><DIV ALIGN="LEFT" CLASS="CellaTestoMini"><FONT COLOR="#990000"><%=Now()%></FONT></DIV></TD> </TR> <TR> <TD><DIV ALIGN="RIGHT" CLASS="CellaTestoMini"><FONT COLOR="#000000">Sistema:</FONT></DIV></TD> <TD><DIV ALIGN="LEFT" CLASS="CellaTestoMini"><FONT COLOR="#990000"><%=Request.ServerVariables("HTTP_USER_AGENT")%></FONT></DIV></TD> </TR> <TR> <TD COLSPAN="2"><DIV ALIGN="CENTER" CLASS="CellaTitolo"><FONT COLOR="#FFFFFF">.</FONT></DIV></TD> </TR> <TR> <TD COLSPAN="2"><DIV ALIGN="CENTER"> <FONT COLOR="#000000"> <INPUT NAME="Submit" TYPE="submit" CLASS="Form_Button" VALUE="Invia modulo"> </FONT></DIV></TD> </TR> </TABLE> </FORM> </TD> </TR> <TR> <TD BACKGROUND="public/BarraDown.gif"><TABLE WIDTH="100%" HEIGHT="30" BORDER="0" CELLPADDING="0" CELLSPACING="0"> <TR> <TD WIDTH="1" HEIGHT="25" ROWSPAN="2">[img]public/Vuoto.gif[/img]</TD> <TD HEIGHT="15" ALIGN="CENTER" VALIGN="TOP"> <TABLE WIDTH="50%" BORDER="0" ALIGN="CENTER" CELLPADDING="0" CELLSPACING="0"> <TR> <TD><DIV ALIGN="CENTER">HOMEPAGE</DIV></TD> <TD><DIV ALIGN="CENTER">CHI SIAMO</DIV></TD> <TD><DIV ALIGN="CENTER">CONTATTI</DIV></TD> <TD><DIV ALIGN="CENTER">PROGETTI</DIV></TD> <TD><DIV ALIGN="CENTER">CERCA</DIV></TD> </TR> </TABLE></TD> </TR> <TR> <TD HEIGHT="15" ALIGN="CENTER" VALIGN="BOTTOM"> <TABLE WIDTH="50%" BORDER="0" ALIGN="CENTER" CELLPADDING="0" CELLSPACING="0"> <TR> <TD></TD> </TR> </TABLE></TD> </TR> </TABLE> </TD> </TR> </TABLE> </BODY> </HTML>codice:<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% emailtesto = "" emailtesto = emailtesto & "<FONT FACE='Courier New' SIZE='2'>Modulo contatti - da www.xxxxxxxxxxx.com " emailtesto = emailtesto & "Cognome...........: " & Request("cognome") & " " emailtesto = emailtesto & "Nome..............: " & Request("nome") & " " emailtesto = emailtesto & "Email.............: " & Request("email") & " " emailtesto = emailtesto & "Richiesta: " emailtesto = emailtesto & Replace(Request("richiesta"), vbCrLf, " ") & "<HR>" emailtesto = emailtesto & "Address: " & request.ServerVariables("REMOTE_ADDR") & " " emailtesto = emailtesto & "Time...: " & Now() & " " emailtesto = emailtesto & "Sistema: " & Request.ServerVariables("HTTP_USER_AGENT") & " " & "</FONT>" Set objmail = Server.CreateObject("CDONTS.NewMail") objmail.BodyFormat = 0 objmail.MailFormat = 0 objmail.Importance = 1 objmail.From = "xxxxxxx@gmail.com" objmail.To = "xxxxxx@gmail.com" objmail.Subject = "Modulo contatti - da www.xxxxxxx.com" objmail.Body = emailtesto objmail.Send Set objmail = Nothing Response.Redirect "contatti.asp?messaggio=Email inviata correttamente." %>
se potete aiutarmi mi fate un favorone
Rispondi quotando
...