I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
E' un commento allo script #280
evyna76
evyna76
il 26 novembre 2007 alle 17:59
2 messaggi dal 26 novembre 2007
a me da errore

Microsoft JScript compilation error '800a03ec'

Expected ';'

/madcard_download2.asp, line 178

If Len(user) < 5 Then
---^
RispondiQuoting
Daniele Bochicchio
Daniele Bochicchio
il 26 novembre 2007 alle 18:42
15.593 messaggi dal 31 agosto 1998
Contributi
daniele.aspitalia.com | Blog
usi JScript nella pagina, mentre il pezzo di codice è in VBS. per mischiare più linguaggi, vedi http://www.aspitalia.com/script/23/Cambiare-Linguaggio-Default.aspx
Daniele Bochicchio | ASPItalia.com | Libri
Chief Operating Officer@iCubed
Microsoft Regional Director & MVP
RispondiQuoting
evyna76
evyna76
il 26 novembre 2007 alle 19:13
2 messaggi dal 26 novembre 2007
ho messo così


<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Documento senza titolo</title>
</head>

<body>
<%

nomeutente = Trim(Request.Form("nomeutente"))

If Len(nomeutente) < 5 Then

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

Response.write "<form method=post>" &_
"Inserisci il tuo numero di CARD: "&_
"<input type=""text"" name=""nomeutente"">"&_
"<input type=""submit"" value=""Invia"">"&_
"</form> "

Else

' apri il database e cerca la password
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/adminCARD/utenti.mdb")

nomeutente = Replace(nomeutente, "'", "''")
SQL = "SELECT email, password FROM utenti WHERE " &_
" nomeutente = '" & nomeutente & "'"
Set Rs = Conn.Execute(SQL)

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

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

Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = "info@mammedomani.com"
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

%>
</body>
</html>

non da errore ma non manda nulla
Modificato da evyna76 il 26 novembre 2007 19.53 -
RispondiQuoting
Daniele Bochicchio
Daniele Bochicchio
il 27 novembre 2007 alle 12:39
15.593 messaggi dal 31 agosto 1998
Contributi
daniele.aspitalia.com | Blog
evyna76 wrote:
non da errore ma non manda nulla

ed allora il tuo problema è nel come è configurato il server SMTP http://www.aspitalia.com/articoli/windows2000/smtp.aspx

se sei in locale, possibile che non mandi per questo, ma se lo stoppi e vai in c:\inetput\mailroot\ troverai di sicuro la mail in coda pronta per partire, così da capire se nel tuo caso funziona o meno il resto dello script.
Daniele Bochicchio | ASPItalia.com | Libri
Chief Operating Officer@iCubed
Microsoft Regional Director & MVP
RispondiQuoting
evyna
evyna
l'1 dicembre 2007 alle 14:10
1 messaggio dal 09 luglio 2001
sto testando direttamente online e non in locale...
RispondiQuoting
Daniele Bochicchio
Daniele Bochicchio
l'1 dicembre 2007 alle 18:15
15.593 messaggi dal 31 agosto 1998
Contributi
daniele.aspitalia.com | Blog
allora prova a sentire il tuo provider, perchè se il destinatario è correto, la mail deve arrivare.
Daniele Bochicchio | ASPItalia.com | Libri
Chief Operating Officer@iCubed
Microsoft Regional Director & MVP
RispondiQuoting

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.