<%Response.Buffer = true%>
START International - Distribuidores
<%
Dim message
message = Request.QueryString("msg")
Select Case message
Case "nou" 'User name does not match
message = "La identificación inválida del Usuario"
Case "nop"
message = "La Contraseña inválida"
Case Else
message = ""
End Select
If request("dologin") = "Yes" then
Dim dconn, dsql, drs
Set dconn = Server.CreateObject("ADODB.Connection")
dconn.Open Application("ConnString")
dsql = "SELECT Password FROM Distributor WHERE UserID = '" & trim(Request("user")) &"' AND Status = 'A'"
Set drs = dconn.Execute(dsql)
If not drs.eof then
If trim(Request("password")) = trim(drs("Password")) then
Response.Redirect "distributoraccess.asp"
Else
Response.Redirect "distributor.asp?msg=nop"
End If
Else
Response.Redirect "distributor.asp?msg=nou"
End If
Set drs = nothing
dconn.Close
Set dconn = nothing
End If
%>
