If Request("HaberBaslik") > "" Then
If Topic_Subject = "" Then
strSql = "SELECT TOPIC_ID, TOPIC_SUBJECT FROM " & strTablePrefix & "TOPICS WHERE TOPIC_ID=" & Request("HaberBaslik")
Set rsHB = my_Conn.Execute(strSql)
If Not rsHB.EOF Then
Topic_Subject = rsHB("TOPIC_SUBJECT")
rsHB.Close
End If
Set rsHB = Nothing
End If
Response.Redirect Request("HaberBaslik") & "=" & Topic_Subject
End If
That will work wherever you want it in the forum. If you place that in "topic.asp", it will use the TOPIC_ID of the topic you are looking at. If you place it anywhere else, you will have to provide the TOPIC_ID in Request("HaberBaslik").
If you just want "topic.asp" to redirect, then that is what you will need to edit.
"topic.asp"
Look for the following lines (appx 160-166):
if recTopicCount = "" then
if ArchiveView <> "true" then
Response.Redirect("topic.asp?ARCHIVE=true&" & ChkString(Request.QueryString,"sqlstring"))
else
Response.Redirect("default.asp")
end if
end if
Above those, insert these:
If (InStr(Request.ServerVariables("URL"), "topic.asp") > 0) Then
strPathway = Request.ServerVariables("URL") & "?" & Request.ServerVariables("Query_String")
If Request("TOPIC_ID") > 0 Then
If Topic_Subject = "" Then
strSql = "SELECT TOPIC_ID, TOPIC_SUBJECT FROM " & strTablePrefix & "TOPICS WHERE TOPIC_ID=" & Request("TOPIC_ID")
Set rsHB = my_Conn.Execute(strSql)
If Not rsHB.EOF Then
Topic_Subject = rsHB("TOPIC_SUBJECT")
rsHB.Close
End If
Set rsHB = Nothing
End If
End If
strPathway = strPathway & "&Subject=" & Topic_Subject
If Request("Subject") = "" Then Response.Redirect strPathway
End If
You are very good Now working I want to show within the forum / forum.asp When the mouse passes on any link And also a forum / default.asp Forum Forum Sub when the mouse passes to section
Posted - 08 April 2015 : 18:28:50
