<%
set my_Conn = Server.CreateObject("ADODB.Connection")
my_Conn.Open strConnString
strSql = "DROP TABLE " & strTablePrefix & "ONLINE"
on error resume next
my_Conn.Execute strSql
if err.number <> 0 then
err.number = 0
end if
strSql = "CREATE TABLE " & strTablePrefix & "ONLINE ( "
strSql = strSql & "UserID varchar (100) , "
strSql = strSql & "UserIP varchar (40) , "
strSql = strSql & "DateCreated varchar (100) , "
strSql = strSql & "LastDateChecked varchar (100) , "
strSql = strSql & "CheckedIn varchar (100) , "
strSql = strSql & "LastChecked varchar (100) , "
strSql = strSql & "M_BROWSE varchar (250) ) "
Response.Write "" & strSql & "
"
my_Conn.Execute strSql
response.write "Database set-up finish!!
"
my_Conn.Close
set my_Conn = nothing
Response.End
%>