<%@LANGUAGE="VBSCRIPT"%>
<%
If cstr(Request.Form("User"))<>"" Then
If Request.form("checkbox") ="1" Then
Response.Cookies("suncoastus") = Request.Form("User")
Response.Cookies("suncoastpd") = Request.Form("Pass")
Response.Cookies("scrme") = "1"
Response.Cookies("suncoastus").expires = Date + 60
Response.Cookies("suncoastpd").expires = Date + 60
Response.Cookies("scrme").expires = Date + 60
Else
Response.Cookies("scrme") = ""
Response.Cookies("suncoastus") = ""
Response.Cookies("suncoastpd") = ""
End If
End If
%>
<%
Dim rs_login
Dim rs_login_numRows
Set rs_login = Server.CreateObject("ADODB.Recordset")
rs_login.ActiveConnection = MM_scsi_STRING
rs_login.Source = "SELECT MLogin, MPassword, Memberstat FROM members"
rs_login.CursorType = 0
rs_login.CursorLocation = 2
rs_login.LockType = 1
rs_login.Open()
rs_login_numRows = 0
%>
<%
' *** Validate request to log in to this site.
MM_LoginAction = Request.ServerVariables("URL")
If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Request.QueryString
MM_valUsername=CStr(Request.Form("User"))
If MM_valUsername <> "" Then
MM_fldUserAuthorization="Memberstat"
MM_redirectLoginSuccess="buddies/approved.asp"
MM_redirectLoginFailed="buddies/invaliduser.html"
MM_flag="ADODB.Recordset"
set MM_rsUser = Server.CreateObject(MM_flag)
MM_rsUser.ActiveConnection = MM_scsi_STRING
MM_rsUser.Source = "SELECT MLogin, MPassword"
If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization
MM_rsUser.Source = MM_rsUser.Source & " FROM members WHERE MLogin='" & Replace(MM_valUsername,"'","''") &"' AND MPassword='" & Replace(Request.Form("Pass"),"'","''") & "'"
MM_rsUser.CursorType = 0
MM_rsUser.CursorLocation = 2
MM_rsUser.LockType = 3
MM_rsUser.Open
If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then
' username and password match - this is a valid user
Session("MM_Username") = MM_valUsername
If (MM_fldUserAuthorization <> "") Then
Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)
Else
Session("MM_UserAuthorization") = ""
End If
if CStr(Request.QueryString("accessdenied")) <> "" And true Then
MM_redirectLoginSuccess = Request.QueryString("accessdenied")
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginSuccess)
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginFailed)
End If
%>
Suncoast Scuba Club | Tampa Florida | Scuba Dive Sunny Florida
An
Independent Scuba Club Serving Tampabay and surrounding communities.
The next Suncoast Scuba Club meeting will be
Tuesday, February 10, 2009 at Tampa Bay Tech.
The meeting will begin at 7:00 pm. Check the
"Meetings" link to the left if you
are not sure how to get to Tampa Bay Tech. Visitors
and guests are more than welcome.
Recent dive trip images
Members photographs from recent trips
and club events
Turtle
in San Salvador.
Brittle
star.
On
the prowl, in San Salvador
Monster
Grouper, Grand Turk.
Reef
scene in San Salvador
Visitors
are encouraged to attend one of our meetings
and check us out. We also encourage visitors
to join us on any of our planned dives. Simply
contact one of the officers and they will be
happy to set you up.
Member
Login
If
your new to our site, please take a moment to fill out
our survey.
