Web Wiz Forums Modifications - Pulling Quick Login to main ASP page

Print Page | Close Window

Pulling Quick Login to main ASP page

Printed From: Web Wiz Forums
Category: Web Wiz Web App Support Forums
Forum Name: Web Wiz Forums Modifications
Forum Description: Mod's and Add-on's for Web Wiz Forums.
URL: https://forums.webwiz.net/forum_posts.asp?TID=25606
Printed Date: 29 March 2026 at 11:03pm
Software Version: Web Wiz Forums 12.08 - https://www.webwizforums.com

Topic: Pulling Quick Login to main ASP page

Posted By: lodogg
Subject: Pulling Quick Login to main ASP page
Date Posted: 16 April 2008 at 2:04am

So I'm trying to pull the Quick Login to my main *.asp page, the only problem is I can not find the code to do so:\ I tried to the follow the link below and I'm receiving an error probably because I'm missing a few things any help would be much appreciated.

http://forums.webwiz.net/forum_posts.asp?TID=24952&KW=quick+login - http://forums.webwiz.net/forum_posts.asp?TID=24952&KW=quick+login


<%
'If the user has not logged in (guest user ID = 2) then show them a quick login form
 If lngLoggedInUserID = 2 AND blnWindowsAuthentication = False AND (blnMemberAPI = False OR blnMemberAPIDisableAccountControl = False) Then
    
    vbCrLf & "  <form method=""post"" name=""frmLogin"" id=""frmLogin"" action=""forum/login_user.asp" & strQsSID1 & """>" & strTxtQuickLogin & _
    vbCrLf & "   <input type=""text"" size=""10"" name=""name"" id=""name"" style=""font-size: 10px;"" tabindex=""1"" />" & _
    vbCrLf & "   <input type=""password"" size=""10"" name=""password"" id=""password"" style=""font-size: 10px;"" tabindex=""2"" />" & _
    vbCrLf & "   <input type=""hidden"" name=""NS"" id=""NS"" value=""1"" />" & _
    vbCrLf & "   <input type=""hidden"" name=""returnURL"" id=""returnURL"" value=""returnURL=forum/default.asp"" />" & _
    vbCrLf & "   <input type=""submit"" value=""" & strTxtGo & """ style=""font-size: 10px;"" tabindex=""3"" />" & _
    vbCrLf & "  </form>"
   
End If
 %>

-------------
Just trying to have some fun and learn in the process.
http://www.lodogg.com - Come have Some Fun

Replies:

Posted By: markradaba
Date Posted: 16 April 2008 at 5:19pm

You need to add a link to the common.asp file in your forums folder, like this:

You might have to change the path depending on where your files are located.

Posted By: lodogg
Date Posted: 16 April 2008 at 6:39pm

Error:

http://www.lodogg.com/test.asp - http://www.lodogg.com/test.asp

~~~~~~`

Microsoft VBScript compilation error '800a03ea'

Syntax error

/test.asp, line 10

vbCrLf & "  <form method=""post"" name=""frmLogin"" id=""frmLogin"" action=""forum/login_user.asp" & strQsSID1 & """>" & strTxtQuickLogin & _
-------^

<!--#include file="forum/common.asp" -->

<%

'If the user has not logged in (guest user ID = 2) then show them a quick login form
 If lngLoggedInUserID = 2 AND blnWindowsAuthentication = False AND (blnMemberAPI = False OR blnMemberAPIDisableAccountControl = False) Then
    
    vbCrLf & "  <form method=""post"" name=""frmLogin"" id=""frmLogin"" action=""forum/login_user.asp" & strQsSID1 & """>" & strTxtQuickLogin & _
    vbCrLf & "   <input type=""text"" size=""10"" name=""name"" id=""name"" style=""font-size: 10px;"" tabindex=""1"" />" & _
    vbCrLf & "   <input type=""password"" size=""10"" name=""password"" id=""password"" style=""font-size: 10px;"" tabindex=""2"" />" & _
    vbCrLf & "   <input type=""hidden"" name=""NS"" id=""NS"" value=""1"" />" & _
    vbCrLf & "   <input type=""hidden"" name=""returnURL"" id=""returnURL"" value=""returnURL=forum/default.asp"" />" & _
    vbCrLf & "   <input type=""submit"" value=""" & strTxtGo & """ style=""font-size: 10px;"" tabindex=""3"" />" & _
    vbCrLf & "  </form>"
   
End If

%>

-------------
Just trying to have some fun and learn in the process.
http://www.lodogg.com - Come have Some Fun

Posted By: StarDust
Date Posted: 16 April 2008 at 7:23pm

You need a Response.Write()

Here it is:

<!--#include file="forum/common.asp" -->
<%
'If the user has not logged in (guest user ID = 2) then show them a quick login form
 If lngLoggedInUserID = 2 AND blnWindowsAuthentication = False AND (blnMemberAPI = False OR blnMemberAPIDisableAccountControl = False) Then
    
    Response.Write(vbCrLf & "  <form method=""post"" name=""frmLogin"" id=""frmLogin"" action=""forum/login_user.asp" & strQsSID1 & """>" & strTxtQuickLogin & _
    vbCrLf & "   <input type=""text"" size=""10"" name=""name"" id=""name"" style=""font-size: 10px;"" tabindex=""1"" />" & _
    vbCrLf & "   <input type=""password"" size=""10"" name=""password"" id=""password"" style=""font-size: 10px;"" tabindex=""2"" />" & _
    vbCrLf & "   <input type=""hidden"" name=""NS"" id=""NS"" value=""1"" />" & _
    vbCrLf & "   <input type=""hidden"" name=""returnURL"" id=""returnURL"" value=""returnURL=forum/default.asp"" />" & _
    vbCrLf & "   <input type=""submit"" value=""" & strTxtGo & """ style=""font-size: 10px;"" tabindex=""3"" />" & _
    vbCrLf & "  </form>")
   
End If
 %>

lodogg wrote:

Error:

http://www.lodogg.com/test.asp - http://www.lodogg.com/test.asp

~~~~~~`

Microsoft VBScript compilation error '800a03ea'

Syntax error

/test.asp, line 10

vbCrLf & "  <form method=""post"" name=""frmLogin"" id=""frmLogin"" action=""forum/login_user.asp" & strQsSID1 & """>" & strTxtQuickLogin & _
-------^

<!--#include file="forum/common.asp" -->

<%

'If the user has not logged in (guest user ID = 2) then show them a quick login form
 If lngLoggedInUserID = 2 AND blnWindowsAuthentication = False AND (blnMemberAPI = False OR blnMemberAPIDisableAccountControl = False) Then
    
    vbCrLf & "  <form method=""post"" name=""frmLogin"" id=""frmLogin"" action=""forum/login_user.asp" & strQsSID1 & """>" & strTxtQuickLogin & _
    vbCrLf & "   <input type=""text"" size=""10"" name=""name"" id=""name"" style=""font-size: 10px;"" tabindex=""1"" />" & _
    vbCrLf & "   <input type=""password"" size=""10"" name=""password"" id=""password"" style=""font-size: 10px;"" tabindex=""2"" />" & _
    vbCrLf & "   <input type=""hidden"" name=""NS"" id=""NS"" value=""1"" />" & _
    vbCrLf & "   <input type=""hidden"" name=""returnURL"" id=""returnURL"" value=""returnURL=forum/default.asp"" />" & _
    vbCrLf & "   <input type=""submit"" value=""" & strTxtGo & """ style=""font-size: 10px;"" tabindex=""3"" />" & _
    vbCrLf & "  </form>"
   
End If

%>

-------------
http://board.ebizbd.net/">

Tips, mods and skins for WWF v9.x

Posted By: lodogg
Date Posted: 16 April 2008 at 8:25pm

StarDust you are awesome! Thanks.. Obviously I am a network guy not a programmer : \

I do have one more issue I am pulling the top 8 topics to my front page and when I add the code above it seems to break the page? The line that kills everything is the (include).

Here is a snippet of code I’m using to pull my topics.

<%
Dim rsLastestPosts
Dim strPosts
Dim adoCon
Dim strCon
Dim strSQL
Dim strRecentPosts

'Create a connection odject
Set adoCon = Server.CreateObject("ADODB.Connection")

'Database connection info and driver
strCon = "Provider=;Data Source=;Database=forum;User ID=;Password=;"

'Set an active connection to the Connection object
adoCon.Open strCon

Set rsLastestPosts = Server.CreateObject("ADODB.Recordset")

strSQL = "SELECT TOP 8 topic_ID,subject from tblTopic WHERE Forum_ID NOT IN(9,10,14,19,31) ORDER BY Last_Thread_ID DESC"

rsLastestPosts.Open strSQL, strCon

Do until rsLastestPosts.eof or rsLastestPosts.bof
strRecentPosts = strRecentPosts + ("<a href=""http://www.lodogg.com/forum/forum_posts.asp?TID=" & rsLastestPosts("topic_ID") & "&PN=1&TPN=1"">" & rsLastestPosts("subject") & "</a><BR>")
rsLastestPosts.movenext
loop

rsLastestPosts.close

<%= strRecentPosts %>

-------------
Just trying to have some fun and learn in the process.
http://www.lodogg.com - Come have Some Fun

Posted By: lodogg
Date Posted: 17 April 2008 at 7:35pm

Process of elimination, I removed the following and now I'm all good...

adoCon
Dim strCon
Dim strSQL

-lo

-------------
Just trying to have some fun and learn in the process.
http://www.lodogg.com - Come have Some Fun

Posted By: lodogg
Date Posted: 17 April 2008 at 7:58pm

Is there a way I can resize the Quick Login borders? The code above does not include any sizing and when I try to resize it with a CSS it begins the wrap the login boxes to the next row.

You can see me dilemma here.

http://www.lodogg.com - www.lodogg.com

-------------
Just trying to have some fun and learn in the process.
http://www.lodogg.com - Come have Some Fun

Posted By: StarDust
Date Posted: 18 April 2008 at 4:48am

Add this line

vbCrLf & _

After this line

Response.Write(vbCrLf & "  <form method=""post"" name=""frmLogin"" id=""frmLogin"" action=""forum/login_user.asp" & strQsSID1 & """>" & strTxtQuickLogin & _

Please open a new thread for issues other than quick login.

lodogg wrote:

Is there a way I can resize the Quick Login borders? The code above does not include any sizing and when I try to resize it with a CSS it begins the wrap the login boxes to the next row.

You can see me dilemma here.

http://www.lodogg.com - www.lodogg.com

-------------
http://board.ebizbd.net/">

Tips, mods and skins for WWF v9.x