<%@ Language=VBScript %> <% If Request.Cookies("ENTRY_PAGE") = "" Then Response.Cookies("ENTRY_PAGE") = Request.ServerVariables("SCRIPT_NAME") Response.Cookies("ENTRY_PAGE").Expires = DateAdd("n", 60, Now) LogHit("C:\InetPub\adc_search_engine_entry_pages_hits.txt") End If Function LogHit(filespec) On Error Resume Next REMOTE_HOST = CStr(Request.ServerVariables("REMOTE_HOST")) If REMOTE_HOST <> "63.231.19.120" _ And REMOTE_HOST <> "63.231.19.121" _ And REMOTE_HOST <> "63.231.19.122" _ And REMOTE_HOST <> "63.231.19.123" _ And REMOTE_HOST <> "63.231.19.124" _ And REMOTE_HOST <> "63.231.19.125" _ And REMOTE_HOST <> "63.231.19.126" Then Dim fso, theFile, count, strLog, RemoteIP Set fso = CreateObject("Scripting.FileSystemObject") If Not (fso.FileExists(filespec)) Then fso.CreateTextFile(filespec) End If Set theFile = fso.OpenTextFile(filespec, 8) strLog = Date & "|" & Time & "|" & Request.ServerVariables("HTTP_REFERER") & "|" & Request.ServerVariables("SCRIPT_NAME") & "|" & Request.ServerVariables("REMOTE_HOST")& "|" & Request.ServerVariables("HTTP_USER_AGENT") & vbcrlf theFile.Write strLog theFile.Close End If On Error GoTo 0 End Function call OpenDBConnection() strSql = "sp_ADC_Catalog_DisplaySearchEnginePages '5042'" Set rsADC_ASSESSMENTS = DBConn.Execute(strSql) If rsADC_ASSESSMENTS.EOF Then Response.Redirect("/purchase/category.asp") End If %> <%=rsADC_ASSESSMENTS("NAME") & " - " & Application("BRANDING_HTML_TITLE")%> - Assessments.com - Online Testing - Action Plans - Outcome Reports"> ,assessments,tests,testing,online testing,online assessments,POSIT,MAYSI,Allvest,juvenile justice,juvenile assessments,youth screening,adolescent screening,substance abuse screening,SSBS,School Social Behavior Scales,Addication Severity Index,Outcome Measures,adult corrections,juvenile detention,high school assessment,depression screening,geriatric depression screening,hosted assessments,hosted surveys,hosted questionaires,Assessment ASP,assessment software system,Back on Track">
Assessments.com is a dynamic new website for administering assessments, tests, evaluations, surveys, and questionnaires over the Internet.
Online Assessment System for Individuals and Organizations
http://www.assessments.com - Click here for the Home Page

<% If Not IsNull(rsADC_ASSESSMENTS("NAME")) And Trim(rsADC_ASSESSMENTS("NAME")) <> "" Then %> <%=rsADC_ASSESSMENTS("NAME")%> <% End If %> <% If Not IsNull(rsADC_ASSESSMENTS("DESCRIPTION_SHORT")) And Trim(rsADC_ASSESSMENTS("DESCRIPTION_SHORT")) <> "" Then %> <%=rsADC_ASSESSMENTS("DESCRIPTION_SHORT")%> <% End If %> <% If Not IsNull(rsADC_ASSESSMENTS("SUMMARY")) And Trim(rsADC_ASSESSMENTS("SUMMARY")) <> "" Then %>

<%=rsADC_ASSESSMENTS("SUMMARY")%>

<% End If %> <% If Not IsNull(rsADC_ASSESSMENTS("DESCRIPTION_BODY")) And Trim(rsADC_ASSESSMENTS("DESCRIPTION_BODY")) <> "" Then %>

<%=rsADC_ASSESSMENTS("DESCRIPTION_BODY")%>

<% End If %> <% If Not IsNull(rsADC_ASSESSMENTS("DESCRIPTION_FOOTER")) And Trim(rsADC_ASSESSMENTS("DESCRIPTION_FOOTER")) <> "" Then %>

Notes: <%=rsADC_ASSESSMENTS("DESCRIPTION_FOOTER")%>

<% End If %>
<%'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>%> <% Dim DBConn Function OpenDBConnection Set DBConn = Server.CreateObject("ADODB.Connection") DBConn.ConnectionTimeout = Application("ADC_ConnectionTimeout") DBConn.CommandTimeout = Application("ADC_CommandTimeout") DBConn.CursorLocation = Application("ADC_CursorLocation") DBConn.Open Application("ADC_ConnectionString") End Function %>