<%@ Page aspcompat=true Debug=true %>
    <%
    Dim oConn, oRs
    Dim qry, connectstr
    Dim db_name, db_username, db_userpassword
    Dim db_server

    db_server = "OS3-EC69267A548\SQLEXPRESS"
    db_name = "master"
    db_username = request.form("username")
    db_userpassword = request.form("password")

    On Error Resume Next
    connectstr = "Driver={SQL Server};SERVER=" & db_server & ";DATABASE=" & db_name & ";UID=" & db_username & ";PWD=" & db_userpassword
    oConn = Server.CreateObject("ADODB.Connection")
    oConn.Open(connectstr)

    If Err.Number <> 0 Then
    	Response.Write("ACCESS DENIED")
    Else
    	Response.Write("ACCESS GRANTED<br/>")
    	qry = "SELECT @@VERSION;"
    	oRS = oConn.Execute(qry)
    	Response.Write(oRs.GetString())
    	oRs.Close
    End If

    oRs = nothing
    oConn = nothing
    %>