buun,
Sorry I forgot to mention that I had also to add this to common.asp at about line 198. Only add what is in RED.
--------------------------------------------------------%>----------------------------------
'Redirect to the forum closed page
Response.Redirect("forum_closed.asp" & strQsSID1)
End If
%>
<%
'-------------------------------------------------------------------------------
'Getting Current Users Email address (By Justin Kruger)
'-------------------------------------------------------------------------------
Dim strLoggedInEmail 'Holds The current users Email Address
Dim CurrentEmail
'Initalise the strSQL variable with an SQL statement to query the database
strSQL = "SELECT tblAuthor.Author_email as CurrentEmail FROM tblAuthor WHERE tblAuthor.Username='" & strLoggedInUsername & "';"
'Set error trapping
On Error Resume Next
'Query the database
rsCommon.Open strSQL, adoCon
'Set error trapping
On Error Resume Next
'If there is a record returned from the database then the email address is already used
strLoggedInEmail = rsCommon("CurrentEmail")
'Close recordset
rsCommon.Close
'-------------------------------------------------------------------------------
'End of Getting Current Users Email address (By Justin Kruger)
'-------------------------------------------------------------------------------
%>
--------------------------------------------------------%>----------------------------------
This should be at the end of the file unless you have added other bits.
Let me know if that works.
Cheers
Justin
Edited by jckruger - 07 June 2006 at 11:34pm
Topic Options
Post Options
Thanks(0)
