<%@ language=VBScript %>
Visiontac Inc. -- User login and view products
<%
'if session("username") <> "" then
'' response.redirect("userlogin.asp")
'end if
dim mysql
dim mycon
dim rs1
dim rs2
dim errmessage
dim action
'define the parameters
dim username
dim password
dim u_level
session.Timeout = 120
username = request.Form("username")
password = request.Form("password")
Set mycon = server.CreateObject("ADODB.Connection")
mycon.Open "DSN=visiont_v"
'mycon.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&server.mappath("db/visiontac.mdb")
%>
