<%@ LANGUAGE=VBSCRIPT %> <%Option Explicit%> <% Select case request("page") case "sexual-abuse.html" DBQuery = "select * from links where linkid > 0 and practicearea1y = 1 and approved = 1 order by catid asc,pagerank asc" case "pornography.html" DBQuery = "select * from links where linkid > 0 and practicearea2y = 1 and approved = 1 order by catid asc,pagerank asc" case "same-sex-attraction.html" DBQuery = "select * from links where linkid > 0 and practicearea3y = 1 and approved = 1 order by catid asc,pagerank asc" case "sexual-promiscuity.html" DBQuery = "select * from links where linkid > 0 and practicearea4y = 1 and approved = 1 order by catid asc,pagerank asc" case "sexual-addiction-recovery.html" DBQuery = "select * from links where linkid > 0 and practicearea5y = 1 and approved = 1 order by catid asc,pagerank asc" case "spouse-porn-addiction.html" DBQuery = "select * from links where linkid > 0 and practicearea6y = 1 and approved = 1 order by catid asc,pagerank asc" case "escape-porn-industry.html" DBQuery = "select * from links where linkid > 0 and practicearea7y = 1 and approved = 1 order by catid asc,pagerank asc" case "sex-offender.html" DBQuery = "select * from links where linkid > 0 and practicearea8y = 1 and approved = 1 order by catid asc,pagerank asc" case "protect-your-family.html" DBQuery = "select * from links where linkid > 0 and practicearea9y = 1 and approved = 1 order by catid asc,pagerank asc" case else response.write "Wrong, Try Again!" response.end End Select 'open the database connection call connect() ' use the Recordset's Open method, telling the recordset the SQL string we want to execute objRS.Open DBQuery, objConn ' if the recordset is empty we will quit ' and display a message using a conditional ' if...then...else statement strDisplay = "" dim strDisplay1,strDisplay2,strDisplay3,strDisplay4 strDisplay1 = "" strDisplay2 = "" strDisplay3 = "" strDisplay4 = "" while not objRS.EOF if objRS("catid") = 1 then strDisplay1 = strDisplay1 & "" strDisplay1 = strDisplay1 & "" elseif objRS("catid") = 2 then strDisplay2 = strDisplay2 & "" strDisplay2 = strDisplay2 & "" elseif objRS("catid") = 3 then strDisplay3 = strDisplay3 & "" strDisplay3 = strDisplay3 & "" elseif objRS("catid") = 4 then strDisplay4 = strDisplay4 & "" strDisplay4 = strDisplay4 & "" end if objRS.MoveNext wend if strDisplay1 = "" then else strDisplay1 = "" & strDisplay1 end if if strDisplay2 = "" then else strDisplay2 = "" & strDisplay2 end if if strDisplay3 = "" then else strDisplay3 = "" & strDisplay3 end if if strDisplay4 = "" then else strDisplay4 = "" & strDisplay4 end if strDisplay = strDisplay & VBCRLF & strDisplay1 & VBCRLF & strDisplay2 & VBCRLF & strDisplay3 & VBCRLF & strDisplay4 & VBCRLF strDisplay = strDisplay & "

" & replace(objRS("description"),vbCrLf,"
") & "

" & objRS("title") & "

" & replace(objRS("description"),vbCrLf,"
") & "

" & objRS("title") & "

" & replace(objRS("description"),vbCrLf,"
") & "

Helpful Websites:

National Counseling Resources:

Helpful Articles:

Other Resources:

" DBQuery = "" objRS.close set objRS = nothing call disconnect() %> VictimAssistance.info - OTHER RESOURCES