Forum

forgotten password application - Από {usmart}

Έχω δημιουργήσει μια εφαρμογή για να στέλνει (με το asp email) το password από κάποια βάση Access σε κάποιον που το έχει ξεχάσει όταν αυτός δώσει το username. Παρόλαυτά, αρνείται να λειτουργήσει.
Αν θέλει κάποιος να ρίξει μια ματιά στον κώδικα, τον ευχαριστώ

---------------------------------------------



<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>


<% if Trim(Request.Form("submit")) <> " " Then %>

<%
Dim rsGetUsers__MMColParam
rsGetUsers__MMColParam = "x"
If (Request.form("username") <> "") Then
rsGetUsers__MMColParam = Request.form("username")
End If
%>


<%
Dim rsGetUsers
Dim rsGetUsers_numRows

Set rsGetUsers = Server.CreateObject("ADODB.Recordset")
rsGetUsers.ActiveConnection = MM_conn_webprodmx_STRING
rsGetUsers.Source = "SELECT user_pwd, email, first_name FROM users WHERE username = '" + Replace(rsGetUsers__MMColParam, "'", "''") + "'"
rsGetUsers.CursorType = 0
rsGetUsers.CursorLocation = 2
rsGetUsers.LockType = 1
rsGetUsers.Open()

rsGetUsers_numRows = 0
%>






<%

response.buffer=true

mbody="Automatic Form Submission from Dynamic Emailer" & vbcrlf
for each tt in request.form
mbody=mbody & vbcrlf & tt & ": " & request.form(tt)
next
set mailer=server.createobject("SMTPsvg.Mailer")
Mailer.CustomCharSet="windows-1253"
mailer.fromname="Dynamic Emailer"
mailer.fromaddress="root@χχχχ.gr"
mailer.remotehost="mail.χχχχ.gr:25"
mailer.subject="Your Password is: " & rsGetUser.Fields.Item("user_pwd").Value

mailer.addrecipient "This is your password", rsGetUser.Fields.Item("email").Value
mailer.bodytext=mbody


response.redirect "forgotten_pwd?email=true"



%>



<% end if %>

Did you forget your pwd? Enter the username

Απάντηση από:Alex

Ποιο είναι το error που σου βγάζει ο explorer?

Απάντηση από:usmart

HTTP 500 - Internal server error
Internet Explorer

Απάντηση από:Alex

Λοιπόν πρώτα θα πρέπει να δεις το error.
Από τον explorer επιλέγεις tolls > internet opitons > advanced > και Απενεργοποιείς το Show friendly HTTP error messages για μα δεις το error.
Μετά post to error εδώ, αν δεν έχεις βρει την λύση.

Απάντηση από:usmart

Ευχαριστώ για την ενασχόληση Alex.

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/dynamic_email/forgotten_pwd.asp, line 52

mailer.addrecipient "This is your password", "rsGetUser.Fields.Item("email").Value"
---------------------------------------------------------------------^

Απάντηση από:jimbov

Kalese apeu8eias thn collection:

recordset.fields("fieldID") kai oxi

recordset.fields.item("fieldID")

Elpizw na voh8hse...