<%
Dim Conn,strSQL,objExec
Set Conn = Server.Createobject("ADODB.Connection")
Conn.Open "DRIVER={MySQL ODBC 5.1 Driver}; SERVER=localhost;port=3307;UID=root;pwd=usbw;database=Shop;option=16384;"
strSql ="SELECT * from admin where username = '" & Request.Form("username") & "' and password = '" & Request.Form("password") &"'"
Set objExec = Conn.Execute(strSQL)
if not objExec.EOF Then