quote:

---

Originally posted by EvilRick

How do I get the "portal.asp" to work outside the forum?

I love the layout of your UK MKIVS site and would like to have the similar layout, but as my homepage.

Any help/guidance would be greatly appreciated.

TIA

---

quote:

---

Originally posted by kep

Please help.

When i open my sites homepage after installing your mod i get:
Microsoft JET Database Engine error '80040e14'

Syntax error (missing operator) in query expression 'FORUM_CMS_CONTENT.CONT_ID ='.
/portal.asp, line 201
Ofcourse i'm not able tot open the portal config under admin section.

---

quote:

---

Originally posted by soxc

quote:

---

Originally posted by kep

Please help.

When i open my sites homepage after installing your mod i get:
Microsoft JET Database Engine error '80040e14'

Syntax error (missing operator) in query expression 'FORUM_CMS_CONTENT.CONT_ID ='.
/portal.asp, line 201
Ofcourse i'm not able tot open the portal config under admin section.

---

You should be able to open the forum admin page. It should not be affected by the mod.

---

sub DisplayGoogleSearch(byval Width)

	call StartTable(Width, "Search Google")

	Response.Write  "			<form method=""get"" action=""myowngoogle.asp"" onSubmit=""if (this.q.value != ''){return true}else{return false}"">" &vbCrLf &_
			"					<input type=""text"" name=""q"" style=""width:100%""><br>" &vbCrLf &_
			"					<input type=""hidden"" name=""page"" value=""1"">" & vbNewLine & _
			"					<input type=""submit"" value=""Search"" id=1 name=1><br>" &vbCrLf &_
			"					<div align=""center"">powered by <a href=""http://www.google.com/"" target=""_blank"">Google</a></div>" & vbNewLine & _		
			"			</form>" &vbCrLf
			
	call EndTable()

end sub


sub DisplayLogin(byval Width)

	call StartTable(Width, "Login")
	
	Response.Write  "			<form method=""post"" action="""& sThisPage &""" id=form1 name=form1>" &vbCrLf &_
			"			<input type=""hidden"" name=""Method_Type"" value=""login"">" & vbNewLine & _
			"			<input type=""text"" name=""Name"" style=""width:100%""><br>" &vbCrLf &_
			"			<input type=""password"" name=""Password"" style=""width:100%""><br>" &vbCrLf &_
			"			<input type=""checkbox"" class=""checkbox"" name=""SavePassWord"" value=""true"" tabindex=""-1"" CHECKED>Save password<br>" &vbCrLf &_
			"			<input type=""submit"" name=""btnSubmit"" value=""Login"">" &vbCrLf &_		
			"			</form>" &vbCrLf
			
	Call EndTable()

end sub


sub DisplayActiveTopics(byval Width, byval Count)

	dim strSql
	dim rsActive

	Call StartTable(Width, "Active Topics")

	strSql = "SELECT"
	strSql = strSql & " T.TOPIC_ID,"
	strSql = strSql & " T.T_SUBJECT"
	strSql = strSql & " FROM " & strTablePrefix & "TOPICS T," & strTablePrefix & "FORUM F"
	strSql = strSql & " WHERE T.FORUM_ID = F.FORUM_ID"
	strSql = strSql & " AND F.F_PRIVATEFORUMS = 0"
	strSql = strSql & " AND T.T_STATUS = 1"
	strSql = strSql & " ORDER BY T_LAST_POST DESC"
    
	Set rsActive = my_conn.Execute(TopSQL(strSql, Count))
	If NOT rsActive.EOF Then
		Do While NOT rsActive.EOF		

			Response.Write("<a href=""topic.asp?TOPIC_ID="& rsActive.fields("TOPIC_ID").value &""">"& rsActive.fields("T_SUBJECT").value & "</a><br><br>")
			
			rsActive.MoveNext
		Loop
	End If
	rsActive.Close
	Set rsActive = Nothing	
		
	Response.Write  "				<a href=""active.asp"">more active topics</a>" &vbCrLf
	
	Call EndTable()
	
end sub