1. How can I create MANDATORY FIELD status on existing field in registration?
2. RSS feeds doesn't support UTF8... Why?
3. In this script when user click on link the page opens in new window, but I need in the same window, what can i do?
<p style="text-align : face="Tahoma" : left; style="font-size: 9pt;color:#959595;">
<br />
<meta http-equiv="Content-Type" content="text/html; charset= utf-8">
<%
Dim strLastestPostsModForumPath
Dim intLastestPostsTotal
Dim intCharacters
Dim strLastestPostsModCon
Dim adoCon
Dim rsAll
Dim strSQL
Dim intLoopCounter
Dim strTID
Dim strSubject
Dim strPID
'The absolute path to the forum
strLastestPostsModForumPath = ""
'How many new topics to show
intLastestPostsTotal = 10
'How many characters to show from the Topic title?
intCharacters = 255
'Database connection
'Default connection - adjust to suit
strLastestPostsModCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & "F:\Database\mydatabase.mdb"
Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open strLastestPostsModCon
Set rsAll = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT TOP " & intLastestPostsTotal & " "
strSQL = strSQL & " Topic_ID, Subject, Last_thread_ID "
strSQL = strSQL & " FROM tblTopic "
strSQL = strSQL & "ORDER BY Last_Thread_ID DESC;"
'open the connection
rsAll.Open strSQL, adoCon
'if there are records put into an array then close the connection
If NOT rsAll.EOF Then strArrayAll = rsAll.getRows()
rsAll.Close
Set rsAll = Nothing
adoCon.Close
Set adoCon = Nothing
'Loop through the array of forum posts
For intLoopCounter = 0 TO UBound(strArrayAll, 2)
'strArrayAll array lookup table
'0 = Topic_ID
'1 = Subject
'2 = Last_thread_ID
strTID = strArrayAll(0, intLoopCounter)
strSubject = strArrayAll(1, intLoopCounter)
strPID = strArrayAll(2, intLoopCounter)
'if someone uses a single quote in the title like: Where's
'the quote is stored as ' which is normally Ok unless the line gets truncated.
'I had a l
Topic Options
Post Options
Thanks(0)
