|
|
|
|
#
|
Name
|
URL
|
<%
Set MyConn = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("\MMB.Mdb")
ConnectStr = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
MyConn.Open ConnectStr
SQL_Query1 = "SELECT * FROM Links ORDER BY Internal_ID;"
Set RS1 = MyConn.Execute(SQL_Query1)
TempStr = ""
NewColStr1 = ""
NewColStr2 = " | "
i = 1
while not(RS1.EOF)
Link_Name = RS1("Link_Name")
Link_URL = RS1("Link_URL")
if (i mod 2 = 0) then
TempStr = TempStr & " | "
else
TempStr = TempStr & " "
end if
TempStr = TempStr & NewColStr2 & "" & i & "" & "" & NewColStr1 & Link_Name & "" & _
NewColStr1 & "" & Link_URL & ""
TempStr = TempStr & " "
i = i + 1
RS1.MoveNext
wend
Response.Write(TempStr)
%>
|
|
|
|
