%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
If (cStr(Request.Form("Log In.x")) <> "") Then
Dim WA_AuthParameter100 : Set WA_AuthParameter100 = Server.CreateObject("Scripting.Dictionary")
WA_AuthParameter100.Add "connection" , MM_ADMSubs_STRING
WA_AuthParameter100.Add "tableName" , "dbo.EZineUsers"
WA_AuthParameter100.Add "columns" , Split("EmailAddress"&WA_Auth_Separator&"PWD", WA_Auth_Separator)
WA_AuthParameter100.Add "columnValues" , Split("" & cStr(cStr(Request.Form("username"))) & ""&WA_Auth_Separator&"" & cStr(cStr(Request.Form("userpassword"))) & "", WA_Auth_Separator)
WA_AuthParameter100.Add "columnTypes" , Split("200"&WA_Auth_Separator&"200", WA_Auth_Separator)
WA_AuthParameter100.Add "columnSizes" , Split("50"&WA_Auth_Separator&"20", WA_Auth_Separator)
WA_AuthParameter100.Add "sessionColumns" , Split("UserID"&WA_Auth_Separator&"EmailAddress", WA_Auth_Separator)
WA_AuthParameter100.Add "sessionNames" , Split("UserID"&WA_Auth_Separator&"EmailAddress", WA_Auth_Separator)
WA_AuthParameter100.Add "successRedirect" , "ADMEZINE/admezine.asp"
WA_AuthParameter100.Add "failRedirect" , "EZineUsers_EmailPW.asp"
WA_AuthParameter100.Add "gotoPreviousURL" , False
WA_AuthParameter100.Add "keepQueryString" , False
WA_AuthenticateUser WA_AuthParameter100
End If
%>
<%
if session("ad")=3 then
session("ad")=1
else
session("ad")=session("ad")+1
end if
%>
Log In
menu
ADM
Online
Welcome to the ADM E-zine (On-Line PDF Publication) ADM E-Zine is a free on-line PDF publication available for anyone who registers. Register here. If you already registered, you can log in below to access the EZine PDF download.
ADM E-Zine is NOT designed to replace ADVANCED DIVER MAGAZINE (the hard copy printed magazine). Both publications will contain their own separate editorial, photography, and illustrations. Our goal here at ADVANCED DIVER MAGAZINE is to reach the rest of the world divers, dive facilities, and manufactures by the use of the World Wide Web. ADM E-Zine is designed to work side by side with ADVANCED DIVER MAGAZINE (hard-copy magazine) by promoting up-coming ADM sponsored events, ADM Expeditions, ADM advertisers specials, etc…