<%@LANGUAGE="VBSCRIPT"%> <% ' FileName="Connection_odbc_conn_dsn.htm" ' Type="ADO" ' DesigntimeType="ADO" ' HTTP="true" ' Catalog="" ' Schema="" Dim MM_dctsNew_STRING MM_dctsNew_STRING = "dsn=database;uid=dctsadmin;pwd=aad129;" %> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_dctsNew_STRING Recordset1.Source = "SELECT * FROM Links" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows %> DCTS - Students
Home Students Academics Career & Technical Adult Education Administration

Student Handbook
Admissions
New Student Info
Summer School
Guidance Office
Student Assistance Program
Lunch Menu
Calendar
Helpful Links

HELPFULL LINKS

<% While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) %>

<%=(Recordset1.Fields.Item("Linktitle").Value)%>
<%=(Recordset1.Fields.Item("Linktext").Value)%>
" target="_blank" ><%=(Recordset1.Fields.Item("URL").Value)%>

<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Recordset1.MoveNext() Wend %>

© 2005 Dauphin County Technical School | 6001 Locust Lane, Harrisburg, PA 17109
Phone: (717) 652-3170 Fax (717) 541-9639

 

<% Recordset1.Close() Set Recordset1 = Nothing %>