<%@ Language=VBScript%>
<%
DbNewMail1Body=""
%>
<%
REM server-side component
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Call Mailer_Server()
%>
<%
Sub Mailer_Server()
Mailer.FromName = "Web"
Mailer.FromAddress = "webmaster@usa-host.com"
Mailer.RemoteHost = "mail.pwebtech.com"
Mailer.AddRecipient "Jeff Belyk", "bellkeywireedm@voyager.net"
Mailer.Subject = Mailer.Subject & "Bell-Key Web Inquiry"
DbNewMail1Body = ""
IF ("1"="1") THEN DbNewMail1Body = DbNewMail1Body & Chr(13) & Chr(10)
DbNewMail1Body = DbNewMail1Body & "On Line Application Form"
IF ("1"="1") THEN DbNewMail1Body = DbNewMail1Body & Chr(13) & Chr(10)
IF ("High"="Medium") THEN Mailer.Priority = 1
IF ("High"="High") THEN Mailer.Priority = 2
IF (CStr(Request("Name1")) <> "") THEN
IF ("0" = "1") THEN DbNewMail1Body = DbNewMail1Body & Chr(13) & Chr(10)
IF ("1" = "1") THEN DbNewMail1Body = DbNewMail1Body & "Name1" + ": "
DbNewMail1Body = DbNewMail1Body & cStr(Request("Name1"))
IF ("1" = "1") THEN DbNewMail1Body = DbNewMail1Body & Chr(13) & Chr(10)
END IF
IF (CStr(Request("Email")) <> "") THEN
IF ("0" = "1") THEN DbNewMail1Body = DbNewMail1Body & Chr(13) & Chr(10)
IF ("1" = "1") THEN DbNewMail1Body = DbNewMail1Body & "Email" + ": "
DbNewMail1Body = DbNewMail1Body & cStr(Request("Email"))
IF ("1" = "1") THEN DbNewMail1Body = DbNewMail1Body & Chr(13) & Chr(10)
END IF
DbNewMail1From = "web"
IF (DbNewMail1To<>"") THEN DbNewMail1To =DbNewMail1To & ";"
DbNewMail1To = DbNewMail1To & "davidf@usa-host.com"
DbNewMail1Subject = DbNewMail1Subject & "web page inquiry"
IF (CStr(Request("Company_Name")) <> "") THEN
IF ("0" = "1") THEN DbNewMail1Body = DbNewMail1Body & Chr(13) & Chr(10)
IF ("1" = "1") THEN DbNewMail1Body = DbNewMail1Body & "Company_Name" + ": "
DbNewMail1Body = DbNewMail1Body & cStr(Request("Company_Name"))
IF ("1" = "1") THEN DbNewMail1Body = DbNewMail1Body & Chr(13) & Chr(10)
END IF
IF (CStr(Request("Phone_No")) <> "") THEN
IF ("0" = "1") THEN DbNewMail1Body = DbNewMail1Body & Chr(13) & Chr(10)
IF ("1" = "1") THEN DbNewMail1Body = DbNewMail1Body & "Phone_No" + ": "
DbNewMail1Body = DbNewMail1Body & cStr(Request("Phone_No"))
IF ("1" = "1") THEN DbNewMail1Body = DbNewMail1Body & Chr(13) & Chr(10)
END IF
IF (CStr(Request("City")) <> "") THEN
IF ("0" = "1") THEN DbNewMail1Body = DbNewMail1Body & Chr(13) & Chr(10)
IF ("1" = "1") THEN DbNewMail1Body = DbNewMail1Body & "City" + ": "
DbNewMail1Body = DbNewMail1Body & cStr(Request("City"))
IF ("1" = "1") THEN DbNewMail1Body = DbNewMail1Body & Chr(13) & Chr(10)
END IF
IF (CStr(Request("State")) <> "") THEN
IF ("1" = "1") THEN DbNewMail1Body = DbNewMail1Body & Chr(13) & Chr(10)
IF ("1" = "1") THEN DbNewMail1Body = DbNewMail1Body & "State" + ": "
DbNewMail1Body = DbNewMail1Body & cStr(Request("State"))
IF ("1" = "1") THEN DbNewMail1Body = DbNewMail1Body & Chr(13) & Chr(10)
END IF
IF (CStr(Request("Requirements")) <> "") THEN
IF ("0" = "1") THEN DbNewMail1Body = DbNewMail1Body & Chr(13) & Chr(10)
IF ("1" = "1") THEN DbNewMail1Body = DbNewMail1Body & "Requirements" + ": "
DbNewMail1Body = DbNewMail1Body & cStr(Request("Requirements"))
IF ("1" = "1") THEN DbNewMail1Body = DbNewMail1Body & Chr(13) & Chr(10)
END IF
IF (CStr(Request("FormButton1")) <> "") THEN
Mailer.BodyText = DbNewMail1Body
Mailer.SendMail
IF ("FormResponce.asp" <> "") THEN Response.Redirect(URLEscapeSpaces("FormResponce.asp"))
END IF
End Sub
%>
Bell-Key Reply Form