<%
Dim strSQL, cval, bkcolor, str, fontcolor
If Request("SeekingName") <> "" Then
Call AddListing
End If
Const adOpenKeyset = 1
Const adLockPessimistic = 2
Const adCmdText = &H0001
Const intFontSize = 2
dim strDBpath
if Request.ServerVariables("SERVER_NAME") = "csserver" Then
strDBpath = "\blueheelers\dbs\dogs.mdb"
else
strDBpath = "\dbs\dogs.mdb"
end if
strSQL = "SELECT * FROM tblDogsSeeking ORDER BY [DateAdded] DESC"
Set rst = Server.CreateObject("ADODB.Recordset")
With rst
.Open strSQL, _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(strDBpath) & ";", adOpenKeyset, adLockPessimistic, adCmdText
if rst.recordcount = 0 then
response.write "No records found. Click 'Add a Listing' to add a record."
else
%>
| Date |
Name |
Location |
E-mail |
Phone |
Comment |
<%
.MoveFirst
Do while not .EOF
If bkcolor = "#EEEEEE" Then
bkcolor = "#FFFFFF"
Else
bkcolor = "#EEEEEE"
End If
Response.Write("| " & rst("DateAdded") & " | ")
Response.Write("" & rst("Name") & " | ")
Response.Write("" & rst("Location") & " | ")
If Len(rst("Email")) > 0 Then
Response.Write(" | ")
Else
Response.Write(" | ")
End if
Response.Write("" & rst("Phone") & " | ")
Response.Write("" & rst("Comment") & " | ")
.MoveNext
Loop
%>
|
<%
end if
End With
set rst=nothing
%>
|