<% Call MakePageHeader("MyRemoteIP.com Links","MyRemoteIP.com Links")%>
<%
'*************************************************************************************************************
'GetPackages
'*************************************************************************************************************
'
Dim pRS, lFlag, nCtr
If Not lConnected Then
lFlag = True
Call conOpen
End If
sSQL = "SELECT * FROM `mri_user_link`"
Set pRS = oConn.Execute ( sSQL )
IF Not (pRS.EOF And pRS.BOF) Then
%>
| |
|
<%
nCtr = 0
While Not pRS.EOF
nCtr = nCtr + 1
Response.Write ""
Response.Write ("| " & pRS("mri_link_text") & " | ")
Response.Write ("" & pRS("mri_link_description").Value & " | ")
Response.Write " "
pRS.MoveNext
Response.Write "| | |
|---|
"
Wend
%>
| |
|
|
<%
Else
%>
Sorry, there are no links available at this moment.
<%
End If
%>
<%
If lFlag Then
Call ConClose
End If
'
'*************************************************************************************************************
%>
<% Call MakePageFooter %>