Problema registrazione

[Magicolotto]

Ciao a tutti

ho scaricato questo :
http://www.html.it/script/membership-management/#d
un semplice ( cosi dicono ) script per convalidare la registrazione degli utenti

ho settato la connessione al db
sembrava funzionare

pero quando vado a fare la registrazione e clicco la conferma
mi rimanda su questa pagina
registerchk.asp
che dovrebbe servire a salvare i primi dati nel database , che ho controllato ed infatti li riporta , tranne il campo usurname , che al momento della registrazione non viene chiesto quindi suppongo che questo campo venga richiesto successivamente , credo al momento della convalida della mail ...

il problema che in questa pagina

/members/registerchk.asp, line 41

Tipo di errore:
ADODB.Recordset (0x800A0BCD)
Il record corrente corrisponde all'inizio o alla fine del file oppure è stato eliminato. Per eseguire l'operazione richiesta è necessario disporre di un record corrente.


lo stesso in localhost ...

alego la pagina sperando che qualche anima buona mi aiuti
GRAZIE E BUONA DOMENICA

<%
'***************************************
'*   Copyright @ 2004-2005 Naing Win   *
%>



<%
strMailSubject = "Your New Account"
Dim name, email, password, address, town, zipcode, country
name=(trim(request.form("Name")))
email=(trim(request.form("email")))
password=(trim(request.form("ConfirmPassword")))
If password = "" Then
Session("msg") = ("Please enter a password")
response.redirect ("register.asp") 
End If
address=(trim(request.form("address")))
town=(trim(request.form("town")))
country=(trim(request.form("country")))
If request.form("subscribe") = "true" then
mlist_option = "yes"
Else
mlist_option ="no"
End If

ConnectMembersDB()
connectrst()
strSQL = "SELECT * FROM [memberlist] WHERE [email] = '" & email & "' "
'Check new email is already registered or not
adorst.Open strSQL, adocon, 3, 3
If Not adorst.BOF AND Not adorst.EOF Then
Session("msg") = ("Email ID: "& " " & "" & email & "" & " is already registered.")
response.redirect("register.asp")
'If new email address then allow to register
Else
adorst.AddNew
adorst.Fields("name") = ChkString(name)
adorst.Fields("email") = ChkString(email)
adorst.Fields("pass") = ChkString(password)
adorst.Fields("address") = ChkString(address)
adorst.Fields("town") = ChkString(town)
adorst.Fields("country") = country
adorst.Fields("signupdate") = date
adorst.Fields("ip") = Request.ServerVariables("REMOTE_ADDR")
adorst.Fields("subscribe") = mlist_option
adorst.Fields("active") = "no"
adorst.Update
adorst.MoveFirst
End If
adorst.Close
Set adorst = Nothing

'Fatch the newly registered user ID
Set rstGetNewUserInfo = Server.CreateObject("ADODB.Recordset")
rstGetNewUserInfo.Open "SELECT * FROM [memberlist] WHERE [email] = '"& email & "'", adocon, 1, 1
intNewUserID = rstGetNewUserInfo("id")
strNewUserEmail = rstGetNewUserInfo("email")
strNewUserName = rstGetNewUserInfo("name")
strNewUserPass = rstGetNewUserInfo("pass")
rstGetNewUserInfo.Close
Set rstGetNewUserInfo = Nothing
adocon.Close
set adocon = Nothing

'Create Email Body
MailBody= ("Dear" & " " & strNewUserName & vbcrlf & vbcrlf _
				& "

Thank you for registering with us. Your login details are as follows:" & vbcrlf _
				& "

Username:  " & strNewUserEmail & vbcrlf _
				& "
Password:  " & strNewUserPass & vbcrlf _ 
				& "

To use your DA member account, you need to activate it by clicking the activation link below." & vbcrlf _
				& "

Activation Link: " & "<a href=" & strSiteURL & "/" & strFolderName & "/activate.asp?atvId=" & intNewUserID & "&email=" & strNewUserEmail & ">" & _
				strSiteURL & "/" & strFolderName & "/activate.asp?atvId=" & intNewUserID & "&email=" & strNewUserEmail & "</a>." & vbcrlf & vbcrlf _
				& "

Warmest Regards,
" & vbcrlf _
				&  strSiteName & "
" & vbcrlf _
				&  strSiteURL & vbcrlf _
				&  vbcrlf _
				& "

------------------End of Message----------------" )
strToEmail = strNewUserEmail
strFromEmail = strAdminEmail
strSubject = strMailSubject
strEmailBody = MailBody
Call SendMail(strToEmail, strFromEmail, strSubject, strEmailBody)
Session("msg") = "Congratulation!" & "
" & " You account is successfully created. An email containing activation link is on the way to your email.
 Please check your email and activate your account."
response.redirect("result.asp")

%>

[Magicolotto]

ho risolto in parte

credo che sia una configurazione dell'i Indirizzo server SMTP

prima era con "CDONTS"

strMailObject = "CDONTS"
strSMTPServer = ""

adesso l'ho modificato cosi :

con "CDOYS"

strMailObject = "CDOYS"
strSMTPServer = "CDO.Configuratio"

COSI FACENDO : inserisce i dati nel db
il problema cambia
perchè vengono inseriti i dati nel db ,MA NON ARRIVA la mail di convalida
PER ABILITARE I DATI INSERITI

[Vincent.Zeno]

l'oggetto si chiama CDOSYS

nel file common.asp

strMailObject = "CDONTS" 'Default Mail Object is CDONTS, If you want to use CDOYS, you must specify the SMTP server address
strSMTPServer = "" 'Your SMTP server address. You must specified this if you will use the CDOYS Mail Component

modifica così

strMailObject = "" 'Default Mail Object is CDONTS, If you want to use CDOYS, you must specify the SMTP server address
strSMTPServer = "CDOSYS" 'Your SMTP server address. You must specified this if you will use the CDOYS Mail Component

dovrebbe bastare

[Magicolotto]

Grazie della risposta , ho provato , ma la mail per la convalida no arriva ..
il mio sito è su aruba , non so se comporta qualcosa,,,

[Massimo61]

Ciao,

strMailObject = "CDOSYS" 'Default Mail Object is CDONTS, If you want to use CDOYS, you must specify the SMTP server address
strSMTPServer = "smtp.aruba.it" 'Your SMTP server address. You must specified this if you will use the CDOYS Mail Component

Massimo.

[Vincent.Zeno]

Originariamente inviato da Massimo61

devo prendere un'altro caffè

puoi sostituire smtp.aruba.it con smtp.tuosito.tld
(dove tld è l'estenzione del tuo sito)

[Magicolotto]

Originariamente inviato da Massimo61
Ciao,

strMailObject = "CDOSYS" 'Default Mail Object is CDONTS, If you want to use CDOYS, you must specify the SMTP server address
strSMTPServer = "smtp.aruba.it" 'Your SMTP server address. You must specified this if you will use the CDOYS Mail Component

Massimo.

questo ha funzionato

graziee mille

è sorto un'altro problemino
i file sono sati inseriti nella root del mio sito nella cartella members
quindi
http://www.miosito.net/members/

nella mail invece il nome members è ripetuto due volte

http://www.magicolotto.net/members/m...o%40hotmail.it

sapete in quale pagina fare la correzione?

[Massimo61]

Ciao,

mostra il file common.asp


Massimo.

[Magicolotto]

<%
'***************************************
'*   Copyright @ 2004-2005 Naing Win   *
'*        DigitalArakan.Net            *
'*   Website: www.digitalarakan.net    *
'***************************************
%>
<%
Dim adocon, adorst
Sub ConnectMembersDB()
Set adocon = Server.CreateObject("ADODB.Connection")
'Comment, uncomment appropriate line below
'adocon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../mdb-database/membersusers.mdb")
adocon.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("../mdb-database/membersusers.mdb")
End Sub

Sub connectrst()
Set adorst = Server.CreateObject("ADODB.Recordset")
End Sub

Function ChkString(string)
	 if string = " " then string = ""
	 ChkString = Replace(string, "'", "''")
End Function

Dim strSiteName, intNumRecPerPage, strSiteURL, strFolderName, strAdminEmail, strSMTPServer, ScriptName
strSiteName = "http://www.magicolotto.net/" ' Change this with your site name
strSiteURL = "http://www.magicolotto.net" ' Change this with your site URL
strFolderName = "members" 'This is the folder name where you place DA Membership Control
strAdminEmail = "magiclotto@hotmail.it" 'Change this with your email
strMailObject = "CDOSYS" 'Default Mail Object is CDONTS, If you want to use CDOYS, you must specify the SMTP server address
strSMTPServer = "smtp.aruba.it" 'Your SMTP server address. You must specified this if you will use the CDOYS Mail Component
intNumRecPerPage = "5" 'Number of records to be displayed in a page- You can chage the value
ScriptName = Request.ServerVariables("SCRIPT_NAME")

%>

<%
'***************************************
'*   Copyright @ 2004-2005 Naing Win   *
'*        DigitalArakan.Net            *
'*   Website: www.digitalarakan.net    *
'***************************************

[Magicolotto]

ok corretto
è giusto quello che ho postato dopo la correzione
strSiteName = "http://www.magicolotto.net/"
strSiteURL = "http://www.magicolotto.net"

mentre cosi non funzionava
strSiteURL = "http://www.magicolotto.net/members"

adesso riprovo e volevo divi un grazie enorme

ciao è al prossimo problema