ho scaricato questo scrip e dopo ave eseguito tutte le operazioni richieste quando apro la pagina mi dice :


Microsoft VBScript compilation error '800a0409'

Unterminated string constant

/emailpass.asp, line 22

mail = Replace(mail, "'", "'')
------------------------------^




dove commetto l'errore mi potreste indicare la stringa per favore grazie!


sito installato:http://www.davidefrancese.it/emailpass.asp

ho modificato il codice
mail=Replace(mail, VBCrLf, "<br>")

ma mi da questo errore: :(




Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified

/public/emailpass/emailpass.asp, line 20







questo e' tutto lo script
<%

' controlla l'e-mail
user = Trim(Request.Form("user"))

If Len(user) < 5 Then

Response.write "<P>Hai dimenticato la password?"

Response.write "<form method=post>" &_
"Inserisci lo user-id: "&_
"<input type=""text"" name=""user"">"&_
"<input type=""submit"" value=""Invia"">"&_
"</form> "

Else

' apri il database e cerca la password
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strConn ' da sostituire

mail=Replace(mail, VBCrLf, "<br>")
SQL = "SELECT Mail, Password FROM members WHERE " &_
" user = '" & user & "'"
Set Rs = Conn.Execute(SQL)

' non trovato!
If Rs.EOF Then
Response.write "<P>Non esiste questo utente!"

Else
' invia la password
mail = Rs("user")
password = Rs("password")

Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = "webmaster@sito.boh"
objMail.To = mail
objMail.Subject = "Ecco la tua password"
cdoMail.Body = password
cdoMail.Send()
Set cdoMail = Nothing

Response.Write "<P>Password spedita!"

End if

' un po' di pulizie...
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing

End If

%>


http://www.davidefrancese.it/public/emailpass/emailpass.asp