Hi,
Firstly, sorry for asking for assistance for such a basic question :-)
I have created a User Registration page, but I am having difficulty displaying the name of the person who has registed in my confirmation page...code is as follows:
Code:
<%@ LANGUAGE="VBSCRIPT" %>
<%response.buffer=true%>
<!--#include file="adovbs.inc"-->
<!--#include file="global.asa"-->
<%
'------------------------------------------------------------
'Change Control :
'Change no : 1
'Date : Mar 2006
'Author :Lynn Howard
'Description : send registation details to tblID
'************************************************************
%>
<!--Change Control Form Entry; 25/4/2006 -->
<head>
<title>Change Control Registration</title>
</head>
<body link="#000000" alink="#000000" vlink="#000000" background="http://www.webmaster-talk.com/images/wallpaper2.gif" >
<center>
<h2><img src="http://www.webmaster-talk.com/images/deault_01.jpg"></h2>
<h2><font face="Sky InfoText Bd" color="#0388BB" size="6">
CHANGE CONTROL REGISTRATION</font></h2>
<%
Response.Buffer = true
%>
<%
'-- Check if Submit button pushed, if not ignore the entire script
If Request.Form("btnAdd") = "Submit" Then
'-- Make sure all boxes have data entered into them
If Request.Form("name") <> "" OR Request.Form("password1") <> "" OR Request.Form("password2") <> "" OR Request.Form("email") <> "" OR Request.Form("userID") <> "" Then
'-- Make sure the passwords match
If Request.Form("password1") = Request.Form("password2") Then
'-- Declare your variables
Dim Conn, cmdDC, RS, SQL, strError
Dim strUserName, strPassword, strEmail, strUserID
'-- Get data from the form fields
strUserName = Request.Form("name")
strPassword = Request.Form("password1")
strEmail = Request.Form("email")
strUserID = Request.Form("userID")
'-- Create object and open database
SET conn = Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/inetpub/wwwroot/change control.mdb"
Set cmdDC = Server.CreateObject("ADODB.Command")
cmdDC.ActiveConnection = Conn
'-- default SQL
SQL = "SELECT * FROM tblID"
If Request.Form("name") <> "" Then
SQL = "SELECT tblID.* FROM tblID WHERE tblID.userID='" & strUserID & "' AND tblID.password1 ='" & strPassword & "' OR tblID.email ='" & strEmail & "'"
End If
cmdDC.CommandText = SQL
cmdDC.CommandType = 1
Set RS = Server.CreateObject("ADODB.Recordset")
'-- Cursor Type, Lock Type
'-- ForwardOnly 0 - ReadOnly 1
'-- KeySet 1 - Pessimistic 2
'-- Dynamic 2 - Optimistic 3
'-- Static 3 - BatchOptimistic 4
RS.Open cmdDC, , 0, 2
'-- check to see if the user and password or e-mail address have registered before
If Not RS.EOF Then
If RS.fields("email")=strEmail Then
strError = "<FONT FACE='ARIAL' SIZE='2'><B>Sorry this email has already been registred, please try again</B></FONT>"
Else
'Redo page and say 'this User name and Password are already taken
strError = "<FONT FACE='ARIAL' SIZE='2'><B>Sorry this user name and password are already taken, please try again</B></FONT>"
End If
Else
'-- Add new record to the database
Dim dataConn, sSQL
SET dataconn = Server.CreateObject("ADODB.Connection")
dataconn.Provider="Microsoft.Jet.OLEDB.4.0"
dataconn.Open "c:/inetpub/wwwroot/change control.mdb"
sSQL = "INSERT INTO tblID(name, email, userID, password1, userlevel) VALUES ('" & strUserName & "','" & strEmail & "','" & strUserID & "','" & strPassword & "',0)"
dataconn.Execute sSQL
dataconn.Close
Set dataconn = Nothing
'Forward the user to page to notify of authentication
Response.Redirect "Registered.asp"
End If
Else
strError = "Your passwords don't match"
End If
'-- Close all connections
RS.Close
Set RS = Nothing
Conn.Close
Set Conn = Nothing
Else
'Tell them what they entered wrong
strError = "Please fill in all the boxes"
End If
End If
%>
<!-- HTML FORM -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>New Page 1</title>
</head>
<BODY bgcolor="#FFFFFF" MARGINHEIGHT="0" MARGINWIDTH="0" LEFTMARGIN="0" TOPMARGIN="0" TEXT="#000000">
<%
'-- Error message if there is any
Response.write (strError & "<BR>")
%>
<form method="POST" action="registration1.asp">
<div align="center">
<table border="0" cellpadding="3" cellspacing="3" width="520" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td bgcolor="#260063" width=161 align="center" >
<p align="left">
<font face="Sky InfoText Bd" color="#ffffff">Full Name:</font><font face="Sky InfoText Bd">
</font>
</td>
<td width=1 align="center">
<input type=text name="name" size="50">
</td>
</tr>
<tr>
<td bgcolor="#260063" width=161 align="center" >
<p align="left">
<font face="Sky InfoText Bd" color="#ffffff">User ID:</font><font face="Sky InfoText Bd">
</font>
</td>
<td width=1 align="center">
<input type=text name="UserID" size="50">
</td>
</tr>
<td bgcolor="#260063" width=161 align="center" >
<p align="left">
<font face="Sky InfoText Bd" color="#ffffff">Email:</font><font face="Sky InfoText Bd">
</font>
</td>
<td width=1 align="center">
<input type=text name="email" size="50">
</td>
</tr>
<td bgcolor="#260063" width=161 align="center" >
<p align="left">
<font face="Sky InfoText Bd" color="#ffffff">Password:</font><font face="Sky InfoText Bd">
</font>
</td>
<td width=1 align="center">
<input type="password" name="password1" size="50">
</td>
</tr>
<td bgcolor="#260063" width=161 align="center" >
<p align="left">
<font face="Sky InfoText Bd" color="#ffffff">Confirm Password:</font><font face="Sky InfoText Bd">
</font>
</td>
<td width=1 align="center">
<input type="password" name="password2" size="50">
</td>
</tr>
</tr>
</table>
</div>
<p><input type="submit" value="Submit" name="btnAdd"><input type="reset" value="Reset" name="B2"></p>
</form>
</body>
</html>
I would then like to confirm that Registration is complete, but am having trouble confirming the Name value.
I have tried different variations....
Code:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/inetpub/wwwroot/change control.mdb"
set rs=Server.CreateObject("ADODB.recordset")
Dim StrName
StrUserName = Request.Form("Name")
%>
<CENTER><H2>
<font face="Sky InfoText Bd" color="#0388BB">Thank you <% = StrUserName %>,
email confirmation will be sent to you shortly.</font></H2>
<%
Conn.Close
%>
I have tried Response.Write"StrUserName",<%Request.Form("Name") %> and <%"StrUserName"%> as well as opening the recordset with a SQL stamement and selecting by Request.Form("Name").
I'm sure there is a very simple solution to this and would appreciate any help!
Thanks,
Lynn
Last edited by devine; 06-09-2006 at 10:35 AM..
|
