Ciao a tutti,
ho un serverweb dove uso aspmail poichè ho un servermail diverso da exchange e quindi non posso usare l'smtp di w2k server.
per molti siti aspmail tutto ok, ora un mio amico ha fatto un sito con un form per iscriversi che prima controlla con un "sub (.......)" l'inserimento dei campi obbligatori, poi utilizza aspmail per inviare l'email di iscrizione al gestore del sito e l'email di conferma a chi ha fatto l'iscrizione...
unica differenza che ho notato che lui ha utilizzato che ha inserito tutto il codice per inviare l'email dal "set" che crea l'oggetto della persist alla fine del codice dove inserisce "from, add, subject, body, host" nel mezzo del sub in modo che se il controllo dei campi si fermasse l'email non viene mandata....
però tutte le volte aspmail risponde con "connection refused", abbiamo trovato sul sito della persist che quato errore di solito è dato quando la porta del smtp server non è la 25...ma quì è tutto su default 25 per smtp e 110 per pop3.
poi sarebbe assurdo che con altri siti funzionasse !!!!
cosa può essere ???? vi posto il codice della pagina incriminata !!!
---------------------------------------<%
Option Explicit
Response.Buffer = True
Dim strUserName,strPassword,sComma,sTitolo,sContenuto,rs
sComma=Chr(34)
strUserName=Request.Form("username")
strPassword=Request.Form("pwd")
sTitolo="<big>Accesso Negato</big><br><br>Password risulta errata, torna <a href='javascript: history.back();'>indietro.</a>"
Sub SendEmail(ByVal strTo,ByVal strSubject,ByVal strText)
Dim oMail
Set oMail = Server.CreateObject("Persits.MailSender")
oMail.Host = "192.168.0.1"
oMail.From = "info@automaniaweb.it"
oMail.FromName = "AutomaniaWeb staff"
oMail.AddAddress = strTo
oMail.Subject = strSubject
oMail.Body = strText
on error resume next
oMail.Send
if err <> 0 then
Response.Clear
response.write "An error occurred: " & Err.Description
Response.End
end if
Set oMail = Nothing
End Sub
Sub Init
If strUserName="" Then
Response.Write "<html><body>Non hai inserito lo <b>User Name</b>!<br><a href='javascript: history.back();'>Torna indietro</a></body></html>"
Response.End
ElseIf strPassword="" Then
Response.Write "<html><body>Non hai inserito la <b>Password</b>!<br><a href='javascript: history.back();'>Torna indietro</a></body></html>"
Response.End
End If
strUserName=replace(strUserName,"'","")
strPassword=replace(strPassword,"'","")
strUserName="'"&replace(strUserName,sComma,"")&"'"
strPassword="'"&replace(strPassword,sComma,"")&"'"
Set rs=Server.CreateObject("Adodb.Recordset")
rs.Open "SELECT * FROM ANAGRAFICA A WHERE A.EMAIL="&strUserName&" AND A.DISATTIVA IS NULL AND A.PWD="&strPassword, Application("connection")
If Not rs.EOF Then
Session("area_privata_nome") =rs("NOME") & " " & rs("COGNOME")
Session("area_privata_id") =rs("ID")
Session("area_privata_mail") =rs("EMAIL")
Session("area_privata_accesso_on")=True
rem utente non riconosciuto
rem sTitolo="Gent.mo/a <b>" & rs(1) & " " & rs(2) & "</b>,<br> lei è autorizzato ad accedere ai nostri servizi."
rem Session.Abandon
Response.Redirect "../../../private.automania/"
Else
Session("area_privata_accesso_on")=""
strUserName=Session("area_privata_prove_di_accesso")
strUserName=strUserName+1
If strUserName=>4 Then
sTitolo = "<big>Accesso Negato</big><br><br>Hai provato ad entrare nell'area privata <b>"&strUserName&" volte!!!</b><hr noshade>" & _
"Ti ricordiamo che se hai dimenticato la password, puoi riceverla via e-mail inserendo l'indirizzo nella casella di testo sottostante<br><form action=""" & Request.ServerVariables("URL") & """ method=""POST""><input type='text' name='email'><input type='submit' name='btn' value='Avvia'></FORM><hr noshade><br>" & _
"Se invece non sei un'utente registrato, registrati subito senza alcun impegno e riceverai la password per accedere ai nostri servizi."
Session("area_privata_prove_di_accesso")=0
Session("send_email") = True
Else
Session("area_privata_prove_di_accesso")=strUserName
End If
End If
rs.Close
Set rs=Nothing
End Sub
If Session("send_email")<>"" AND Request.Form("btn")="Avvia" Then
Session("send_email")=""
Dim sEmail
sEmail=Request.Form("email")
If sEmail="" Then
Response.Redirect Request.ServerVariables("url")
Response.End
Else
rem On Error Resume Next
Dim myRs
Set myRs = Server.CreateObject("Adodb.Recordset")
myRs.Open "Select * from ANAGRAFICA WHERE EMAIL='" & Replace(Replace(sEmail,"'",""),Chr(34),"") & "'",Application("connection")
If Not myRs.EOF AND not myRs.BOF Then
SendEmail sEmail,"Password d'accesso ad AUTOMANIAWEB.it","Gent.mo " & myRs("NOME") & " " & myRs("COGNOME") & ", " & VbCrlf & "eccole le credenziali per accedere al sito www.automaiaweb.it/private.automania" & vbCrlf & "UserName: " & sEmail & VbCrlf & "Password: " & myRs("PWD") & VBCRLF & VBCRLF & " Automania Staff"
sTitolo="Le stiamo inviando la password all'indirizzo da lei richiesto <b>" & sEmail & "</b>"
Else
sTitolo="Non esiste nessun utente registrato avente l'email <b>" & sEmail & "</b><br>Se non sei ancora registrato fallo adesso, e' gratis!!!"
End If
myRs.Close
Set myRs=Nothing
End If
Else
Call Init()
End If
Response.Flush
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN" "http://www.w3.org/TR/REC-html40/strict.dtd">
<html><head>
<meta name="robots" content="NOINDEX,NOFOLLOW">
<meta name="Cache-Control" content="no-cache">
<title>Log-in Check</title>
<!-- #include file="library/server/top.asp"-->
<p align="left"><font size='3' face='Arial,Verdana'><%=sTitolo%></font></p>
<p align="center"><font size='3' face='arial'> </font></p>
<!-- #include file="library/server/bottom.asp"-->
---------------------------------------
Ciao a tutti
Grazie
Matteo
------------------------------------
matteo@oldamerika.com
------------------------------------
ICQ N° 105837895
------------------------------------
