• A
    User Attivo •

    problema con form contatti

    ciao a tutti,ho fatto un form di contatti col quale vengono inviati i dati immessi...
    codice ASP:

    <%
messaggio=""
errore=0
if trim(request.form("nome"))="" then
    messaggio="Il nome è un campo obbligatorio <br>"
    errore=1
end if
if trim(request.form("cognome"))="" then
    messaggio=messaggio & "Il cognome è un campo obbligatorio<br>"
    errore=1
end if
if trim(request.form("citta"))="" then
    messaggio=messaggio & "La città è un campo obbligatorio<br>"
    errore=1
end if
if trim(request.form("email"))="" then
    messaggio=messaggio & "L'e-mail è un campo obbligatorio<br>"
    errore=1
end if
if trim(request.form("altro"))="" then
    messaggio=messaggio & "E' obbligatorio specificare il messaggio<br>"
    errore=1
end if


if errore=0 then
    
    a="<html><body><font face=arial size=2><p align=center><b>Mail dal sito </b></p>"
    a=a & "<b>nome:</b> " & request.form("nome") & "<br>"
    a=a & "<b>cognome:</b> " & request.form("cognome") & "<br>"
    a=a & "<b>azienda:</b> " & request.form("azienda") & "<br>"
    a=a & "<b>città:</b> " & request.form("citta") & "<br>"
    a=a & "<b>indirizzo:</b> " & request.form("indirizzo") & "<br>"
    a=a & "<b>e-mail:</b> " & request.form("email") & "<br>"
    a=a & "<b>Messaggio:</b> " & request.form("altro") & "<br>"
    a=a & "</body></html>"
    
    
    
    
    
    Dim objConfig
    Dim objMessage
    Dim Fields
    
    Set objConfig = Server.CreateObject("CDO.Configuration")
    Set Fields = objConfig.Fields
    With Fields
     .Item("schemas.microsoft.com/cdo/configuration/sendusing") = 2
     .Item("schemas.microsoft.com/cdo/configuration/smtpserver") = "10.0.0.1"
     .Item("schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10  
     .Update
    End With
    
    Set objMessage = Server.CreateObject("CDO.Message")
    Set objMessage.Configuration = objConfig
    With objMessage
    .To       =  ""
    .From     = ""
    .Subject  = "Richiesta informazioni pervenute al sito Internet"
    .HTMLBody = a
    .Send
    End With
    
    Set Fields = Nothing
    Set objMessage = Nothing
    Set objConfig = Nothing
    
    
    messaggio="L'e-mail è stata inviata con successo"
end if    
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"W3C">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta name="keywords" content="">
<title>titolo</title>
<style type="text/css">
<!--
body,td,th {
    font-family: Verdana, Arial, Helvetica, sans-serif;
    font-size: x-small;
}
body {
    background-image: url(img/al1.jpg);
    margin-left: 0px;
    margin-top: 0px;
    margin-right: 0px;
    margin-bottom: 0px;
    background-color: #CCCCFF;
}
a:link,a:visited,a:active {
    text-decoration: none;
}
a:hover {
    text-decoration: underline;
}
.style8 {color: #FF0000}
-->
</style>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a*)&&x.oSrc;i++) x.src=x.oSrc;
}
function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a*.indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a*;}}
}
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)&&d.all) x=d.all; for (i=0;!x&&i<d.forms.length;i++) x=d.forms*;
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers*.document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}
function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a*))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</script>
</head>
<body>
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="150" valign="top" background="img/al.jpg"><div align="center">
      
    </td>
    <td align="center"><br>

      <table width="510" align="center">
        <tr><td height="15"></td></tr>
        <tr>
          <td><p><FONT face=Verdana size=2>
          <%
              if errore=1 then
          %>
          <p style="color:red">L'e-mail non è stata inviata:</p>
          <%
              end if
          %>
          <p><%=messaggio%></p>
          <%
              if errore=1 then
          %>
          <p><a href="#" onclick="javascript:history.go(-1)">torna indietro</a></p>
          <%
              end if
          %>
          </FONT></p></td>
        </tr>
       
</table>
</body>
</html>

    quando lo testo mi risulta un errore:
    [html]Errore di run-time di Microsoft VBScript error '800a01a8'
    Necessario oggetto: 'smtpsvg'
    /mail.asp, line 4
    [/html]ho contattato il provider,e mi ha detto che devo necessariamente utilizzare quell'oggetto (smtpsvg),che non ho mai usato,qualcuno ha qualche consiglio da darmi per favore?

    0
Effettua l'accesso per rispondere