<% ip = Request.ServerVariables("remote_addr")%>
<%'********************************************************************************
'***** Set Connection ***********************************************************
'********************************************************************************
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DSN=CANCOM; DATABASE=Jessie; UID=Jessie; PWD=starpony;"
Set uAgent= Request.ServerVariables("HTTP_USER_AGENT")
%>
<%
sqlLast = "SELECT * FROM HITS order by NUMBER DESC"
sqlHits = "SELECT COUNT(Number) iCount from HITS"
Set rsLast = Server.CreateObject("ADODB.RECORDSET")
rsLast.Open sqlLast,Conn,3,3
Set rsHits = Server.CreateObject("ADODB.RECORDSET")
rsHits.Open sqlHits,Conn,3,3
%>
My Homepage
ENTER
<%conn.close%>