| 1825 W. Baker Ave.
Englewood, CO 80110
p 303-922-8821
f 303-922-0124 |
|
<%
lpage = GetHTMFile( u_basepath + "/ASP_TEMPLATE/signup1.htm" )
if Not (InStr( lpage, u_Form ) > 0 ) Then
ErrorString "No Form Statement", lpage
End if
lbeginlen = InStr( lpage, u_Form)
ltoppage = Mid( lpage, 1, lbeginlen - 1)
lendpage = Mid( lpage, lbeginlen + len(u_Form))
Response.Write( ltoppage )
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.ConnectionTimeout = u_ConnectionTimeout
Connection.CommandTimeout = u_CommandTimeout
Connection.Open u_ConnectionString, u_RuntimeUserName, u_RuntimePassword
Set cmdTemp = Server.CreateObject("ADODB.Command")
Set RS = Server.CreateObject("ADODB.Recordset")
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = Connection
if Request("NUMBER") > 0 Then
cmdTemp.CommandText = _
"SELECT * FROM Email WHERE E_NUMBER= " + Request("NUMBER")
RS.Open cmdTemp, , 1, 3
NUMBER = RS("E_NUMBER")
E_FNAME = RS("E_FNAME")
E_LNAME = RS("E_LNAME")
E_EMAIL = RS("E_EMAIL")
E_COMPANY = RS("E_COMPANY")
E_ADDRESS1 = RS("E_ADDRESS1")
E_ADDRESS2 = RS("E_ADDRESS2")
E_CITY = RS("E_CITY")
E_STATE = RS("E_STATE")
E_ZIP = RS("E_ZIP")
E_COUNTRY = RS("E_COUNTRY")
E_PHONE = RS("E_PHONE")
E_FAX = RS("E_FAX")
E_NOTES = RS("E_NOTES")
RS.Close
Else
E_FNAME = ""
E_LNAME = ""
E_EMAIL = ""
E_COMPANY = ""
E_ADDRESS1 = ""
E_ADDRESS2 = ""
E_CITY = ""
E_STATE = ""
E_ZIP = ""
E_COUNTRY = ""
E_PHONE = ""
E_FAX = ""
E_NOTES = ""
End if
%>
<%if Request("NUMBER") > 0 Then %>
<%End if%>
<%
Response.Write( lendpage )
%>
E-Mail Directory:
General Delivery- gdelivery@MisersAbatementServices.com
John Allen- jdallen@MisersAbatementServices.com
Mike Dirito- mdirito@MisersAbatementServices.com
Frank Visconti- fvsiconti@MisersAbatementServices.com
|
|
