<%
dim rs
dim sql
dim var_msg
dim action
dim org_login
dim org_password
action = request("action")
'-- submit --'
if action = "submit" then
org_login = replace(request.form("org_login"),"'","''")
org_password = replace(request.form("org_password"),"'","''")
set rs = createobject("adodb.recordset")
rs.open "select * from orgs where org_login='" & org_login & "' " &_
"and org_password='" & org_password & "'",strDSN,3,1
if not rs.eof then
session("org_id") = rs("org_id")
rs.close
set rs = nothing
response.redirect "org_menu.asp"
else
rs.close
set rs = nothing
response.redirect "org_signin.asp?action=fail"
end if
end if
'-- messages --'
if action = "fail" then
var_msg = "
Organization account info not located - please try again "
end if
%>
SEO One, Inc. Search Engine Optimization specialist.
Client Signin
Enter your Customer ID and Password in the fields provided
below to enter the Customer Service Center ... <%=var_msg%>
