<%
Session.timeout = 15
Set conn =Server.CreateObject("ADODB.Connection")
conn.open "C:\K2 WEB","username","password"
Set Session("MyDB_conn") =conn
%>
<%
strSQLQuery = "SELECT * FROM KAR.ASP "
Set rs =Server.CreateObject("ADODB.Recordset")
rs.Open strSQLQuery, conn, 3,3
%>
<%= Request.ServerVariables("http_user_agent") %>
