<%@LANGUAGE="VBSCRIPT"%>
<%
Dim rslogin__varUsername
rslogin__varUsername = "burel"
if (Request("username") <> "") then rslogin__varUsername = Request("username")
%>
<%
Dim rslogin__varPassword
rslogin__varPassword = "burel"
if (Request("password") <> "") then rslogin__varPassword = Request("password")
%>
<%
set rslogin = Server.CreateObject("ADODB.Recordset")
rslogin.ActiveConnection = MM_connlogin_STRING
rslogin.Source = "SELECT * FROM login WHERE username= '" + Replace(rslogin__varUsername, "'", "''") + "' AND password='" + Replace(rslogin__varPassword, "'", "''") + "'"
rslogin.CursorType = 0
rslogin.CursorLocation = 2
rslogin.LockType = 3
rslogin.Open()
rslogin_numRows = 0
%>
:: MPM Studio :: Welcome
1025
BLACK HORSE PIKE, SUITE 107, WEST ATLANTIC CITY, NJ 08232
<%
rslogin.Close()
%> 
