|
<% If Session("blnLogin")= True then %>
<%
strSQL1 = "Select * From contact where status = '1' order by ID asc"
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRS = Server.CreateObject ("ADODB.Recordset")
objConn.Open strConnect
objRS.Open strSQL1, objConn, adoCon
While not objRS.EOF
Response.write("")
Response.write("| " & objRS("note") & " edit delete (Last updated by " & objRS("addfirstname") & " on " & objRS("adddate") & " at " & objRS("addtime") & ") | | ")
Response.write(" ")
Response.write("")
objRS.MoveNext
Wend
objRS.Close
Else
strSQL1 = "Select * From contact where status = '1' order by ID asc"
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRS = Server.CreateObject ("ADODB.Recordset")
objConn.Open strConnect
objRS.Open strSQL1, objConn, adoCon
While not objRS.EOF
Response.write("")
Response.write("| " & objRS("note") & " | | ")
Response.write(" ")
Response.write("")
objRS.MoveNext
Wend
objRS.Close
End If
%>
|
|
| |
|
<% If Session("blnLogin")= True then %>
<% End If %>
|
|
|
|