%
m_reg = Request.QueryString("reg")
IF Trim(m_reg) = "" and Session("UserID") = "" THEN
Response.Redirect("login.asp")
END IF
Dim intSize, intMaxLength, intRows, intCols, strStyle, strTextAreaStyle, strSubmitStyle
'SUB BrowserCheck()
Dim Browser
Browser = Request.ServerVariables("HTTP_USER_AGENT")
IF InStr(Browser, "MSIE") THEN
intSize = 34
intMaxLength = 30
intRows = 4
intCols = 40
strStyle = " style=""FONT-SIZE: 8pt; BORDER-LEFT-COLOR: #339966; BORDER-BOTTOM-COLOR: #339966; BORDER-TOP-STYLE: solid; BORDER-TOP-COLOR: #339966; FONT-FAMILY: Arial; BORDER-RIGHT-STYLE: solid; BORDER-LEFT-STYLE: solid; BORDER-RIGHT-COLOR: #339966; BORDER-BOTTOM-STYLE: solid"" "
strTextAreaStyle = " style=""FONT-SIZE: 8pt; BORDER-LEFT-COLOR: #339966; BORDER-BOTTOM-COLOR: #339966; BORDER-TOP-STYLE: solid; BORDER-TOP-COLOR: #339966; FONT-FAMILY: Arial; BORDER-RIGHT-STYLE: solid; BORDER-LEFT-STYLE: solid; BORDER-RIGHT-COLOR: #339966; BORDER-BOTTOM-STYLE: solid"""
strSubmitStyle = "style=""FONT-SIZE: 8pt; BORDER-LEFT-COLOR: Gray; LEFT: -2px; BORDER-BOTTOM-COLOR: Gray; BORDER-TOP-STYLE: double; BORDER-TOP-COLOR: Gray; FONT-FAMILY: Arial; BORDER-RIGHT-STYLE: double; BORDER-LEFT-STYLE: double; TOP: 19px; BORDER-RIGHT-COLOR: Gray; BORDER-BOTTOM-STYLE: double;"" tabindex=""0"" "
ELSE
intSize = 14
intMaxLength = 30
intRows = 3
intCols = 29
strStyle = " "
strTextAreaStyle = " "
strSubmitStyle = " "
END IF
'END SUB
'CALL BrowserCheck()
%>
Request for Proposal
<%
If Request("submit") = "Submit Form" Then
Call ProcessForm()
Else
IF m_reg <> "no" THEN
Dim Conn, dbPath
dbPath = "D:\Websites\geosearchinc.com\GeosearchDB\GeoSearch.mdb"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & dbPath
SQL = "SELECT * FROM USERS WHERE UserID = " & Session("UserID") & ""
Set GetUser = Conn.Execute(SQL)
m_company = GetUser("Company")
m_email = GetUser("Email")
m_fax = GetUser("Fax")
m_methodofreply = GetUser("ReplyMethod")
m_contact = GetUser("Contact")
Set GetUser = nothing
Conn.Close
Set Conn = nothing
END IF
%>
<% end if %>
<% SUB ProcessForm() %>
<%
Dim strCompany
Dim strEmail
Dim strFax
Dim strReplyMethod
Dim strContact
Dim strDateRequest
Dim strSiteID
Dim strSiteAddress
Dim strSiteCity
Dim strSiteState
Dim strSiteZip
Dim strIntersection
Dim strStartDate
Dim strEstDuration
Dim strStartTime
Dim strRigRequest
Dim strDepth
Dim strDigSafeN
Dim strBedrock
Dim strDigSafeD
Dim strSubsurface
Dim strWells
Dim strBoringsN
DIM strWellType
Dim strWellDiameter
Dim strBoringsD
Dim strScreenLength
Dim strScreenSlot
Dim strSandSize
Dim strGroutFootage
Dim strManhole
Dim strConcrete
Dim strAirHammerR
Dim strAirHammerS
Dim strRockCoring
Dim strRockCoreSize
Dim strAdditionalReq
Dim strDotDrums
Dim strPoliceDetail
Dim strPolySheeting
Dim strPermitting
Dim txtSteamCleaning
Dim strAirVac
Dim strOtherReq
strCompany = Request.Form("txtCompany")
strCompany = Replace(strCompany, "'", "''")
strEmail = Request.Form("txtEmail")
strEmail = Replace(strEmail, "'", "''")
strFax = Request.Form("txtFax")
strFax = Replace(strFax, "'", "''")
strReplyMethod = Request.Form("txtReplyMethod")
strReplyMethod = Replace(strReplyMethod, "'", "''")
strContact = Request.Form("txtContact")
strContact = Replace(strContact, "'", "''")
strDateRequest = Request.Form("txtDateRequest")
DateRequest = Replace(strDateRequest, "'", "''")
strSiteID = Request.Form("txtSiteID")
SiteID = Replace(strSiteID, "'", "''")
strSiteAddress = Request.Form("txtSiteAddress")
SiteAddress = Replace(strSiteAddress, "'", "''")
strSiteCity = Request.Form("txtSiteCity")
SiteCity = Replace(strSiteCity, "'", "''")
strSiteState = Request.Form("txtSiteState")
SiteState = Replace(strSiteState, "'", "''")
strSiteZip = Request.Form("txtSiteZip")
SiteZip = Replace(strSiteZip, "'", "''")
strIntersection = Request.Form("txtIntersection")
Intersection = Replace(strIntersection, "'", "''")
strStartDate = Request.Form("txtStartDate")
StartDate = Replace(strStartDate, "'", "''")
strEstDuration = Request.Form("txtEstDuration")
EstDuration = Replace(strEstDuration, "'", "''")
strStartTime = Request.Form("txtStartTime")
StartTime = Replace(strStartTime, "'", "''")
strRigRequest = Request.Form("txtRigRequest")
RigRequest = Replace(strRigRequest, "'", "''")
strDepth = Request.Form("txtDepth")
Depth = Replace(strDepth, "'", "''")
strDigSafeN = Request.Form("txtDigSafeN")
DigSafeN = Replace(strDigSafeN, "'", "''")
strBedrock = Request.Form("txtBedrock")
Bedrock = Replace(strBedrock, "'", "''")
strDigSafeD = Request.Form("txtDigSafeD")
DigSafeD = Replace(strDigSafeD, "'", "''")
strSubsurface = Request.Form("txtSubsurface")
Subsurface = Replace(strSubsurface, "'", "''")
strWells = Request.Form("txtWells")
Wells = Replace(strWells, "'", "''")
strBoringsN = Request.Form("txtBoringsN")
BoringsN = Replace(strBoringsN, "'", "''")
strWellType = Request.Form("txtWellType")
WellType = Replace(strWellType, "'", "''")
strWellDiameter = Request.Form("txtWellDiameter")
WellDiameter = Replace(strWellDiameter, "'", "''")
strBoringsD = Request.Form("txtBoringsD")
BoringsD = Replace(strBoringsD, "'", "''")
strScreenLength = Request.Form("txtScreenLength")
ScreenLength = Replace(strScreenLength, "'", "''")
strScreenSlot = Request.Form("txtScreenSlot")
ScreenSlot = Replace(strScreenSlot, "'", "''")
strSandSize = Request.Form("txtSandSize")
SandSize = Replace(strSandSize, "'", "''")
strGroutFootage = Request.Form("txtGroutFootage")
GroutFootage = Replace(strGroutFootage, "'", "''")
strManhole = Request.Form("txtManhole")
Manhole = Replace(strManhole, "'", "''")
strConcrete = Request.Form("txtConcrete")
Concrete = Replace(strConcrete, "'", "''")
strAirHammerR = Request.Form("txtAirHammerR")
AirHammerR = Replace(strAirHammerR, "'", "''")
strAirHammerS = Request.Form("txtAirHammerS")
AirHammerS = Replace(strAirHammerS, "'", "''")
strRockCoring = Request.Form("txtRockCoring")
RockCoring = Replace(strRockCoring, "'", "''")
strRockCoreSize = Request.Form("txtRockCoreSize")
RockCoreSize = Replace(strRockCoreSize, "'", "''")
strAdditionalReq = Request.Form("txtAdditionalReq")
AdditionalReq = Replace(strAdditionalReq, "'", "''")
strDotDrums = Request.Form("txtDotDrums")
DotDrums = Replace(strDotDrums, "'", "''")
strPoliceDetail = Request.Form("txtPoliceDetail")
PoliceDetail = Replace(strPoliceDetail, "'", "''")
strPolySheeting = Request.Form("txtPolySheeting")
PolySheeting = Replace(strPolySheeting, "'", "''")
strPermitting = Request.Form("txtPermitting")
Permitting = Replace(strPermitting, "'", "''")
strSteamCleaning = Request.Form("txtSteamCleaning")
SteamCleaning = Replace(strSteamCleaning, "'", "''")
strAirVac = Request.Form("txtAirVac")
AirVac = Replace(strAirVac, "'", "''")
strOtherReq = Request.Form("txtOtherReq")
OtherReq = Replace(strOtherReq, "'", "''")
Dim Conn, dbPath
dbPath = "D:\Websites\geosearchinc.com\GeosearchDB\GeoSearch.mdb"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & dbPath
If Trim(Session("UserID")) = "" Then
SQL = "Insert Into Users (Name, Company, Email, Fax, ReplyMethod, Contact, DateTimeStamp)" _
& " Values ('"& m_name &"', '"& strCompany &"', '"& strEmail &"', '"& strFax &"', '"& strReplyMethod &"', '"& strContact &"', NOW)"
Set InsertUser = Conn.Execute(SQL)
SQL = "Select Max(UserID) from Users"
Set GetID = Conn.Execute(SQL)
m_id = GetID(0)
Session("UserID") = m_id
End if
SQL = "Insert Into RFP (UserID, DateRequest, SiteID, SiteAddress, SiteCity, SiteState, SiteZip, Intersection, StartDate, EstDuration, StartTime, " _
& "RigRequest, Depth, DigSafeN, Bedrock, DigSafeD, Subsurface, Wells, BoringsN, WellType, WellDiameter, BoringsD, " _
& "ScreenLength, ScreenSlot, SandSize, GroutFootage, Manhole, Concrete, AirHammerR, AirHammerS, RockCoring, " _
& "RockCoreSize, AdditionalReq, DotDrums, PoliceDetail, PolySheeting, Permitting, SteamCleaning, AirVac, OtherReq, DateTimeStamp)" _
& " Values ("& Session("UserID") &", '"& DateRequest &"', '"& SiteID &"', '"& SiteAddress &"', '"& SiteCity &"', '"& SiteState &"', '"& SiteZip &"', '"& Intersection &"', '"& StartDate &"', '"& EstDuration &"', '"& StartTime &"', " _
& " '"& RigRequest &"', '"& Depth &"', '"& DigSafeN &"', '"& Bedrock &"', '"& DigSafeD &"', '"& Subsurface &"', '"& Wells &"', '"& BoringsN &"', '"& WellType &"', '"& WellDiameter &"', '"& BoringsD &"', " _
& " '"& ScreenLength &"', '"& ScreenSlot &"', '"& SandSize &"', '"& GroutFootage &"', '"& Manhole &"', '"& Concrete &"', '"& AirHammerR &"', '"& AirHammerS &"', '"& RockCoring &"', " _
& " '"& RockCoreSize &"', '"& AdditionalReq &"', '"& DotDrums &"', '"& PoliceDetail &"', '"& PolySheeting &"', '"& Permitting &"', '"& SteamCleaning &"', '"& AirVac &"', '"& OtherReq &"', NOW)"
Set InsertUser = Conn.Execute(SQL)
' **********************************************
strHTML ="Company: " & strCompany & vbcrlf & vbcrlf &_
"Email Address: " & strEmail & vbcrlf & vbcrlf &_
"Fax Number: " & strFax & vbcrlf & vbcrlf &_
"Method of Reply: " & strReplyMethod & vbcrlf & vbcrlf &_
"Contact: " & strContact & vbcrlf & vbcrlf &_
"Date of Request: " & strDateRequest & vbcrlf & vbcrlf &_
"Site Identification: " & strSiteID & vbcrlf & vbcrlf &_
"Site Address: " & strSiteAddress & vbcrlf & vbcrlf &_
"Site City: " & strSiteCity & vbcrlf & vbcrlf &_
"Site State: " & strSiteState & vbcrlf & vbcrlf &_
"Site Zip: " & strSiteZip & vbcrlf & vbcrlf &_
"Nearest Intersecting Street: " & strIntersection & vbcrlf & vbcrlf &_
"Start Date: " & strStartDate & vbcrlf & vbcrlf &_
"Estimated Duration: " & strEstDuration & vbcrlf & vbcrlf &_
"Start Time: " & strStartTime & vbcrlf & vbcrlf &_
"Type of Rig Requested: " & strRigRequest & vbcrlf & vbcrlf &_
"Depth to G. W.: " & strDepth & vbcrlf & vbcrlf &_
"Dig Safe Number: " & strDigSafeN & vbcrlf & vbcrlf &_
"Depth to Bedrock: " & strBedrock & vbcrlf & vbcrlf &_
"Dig Safe Date: " & strDigSafeD & vbcrlf & vbcrlf &_
"Subsurface Description, (if available): " & strSubsurface & vbcrlf & vbcrlf &_
"Number of Wells: " & strWells & vbcrlf & vbcrlf &_
"Number of Additional Borings: " & strBoringsN & vbcrlf & vbcrlf &_
"Well Type: " & strWellType & vbcrlf & vbcrlf &_
"Well Diameter: " & strWellDiameter & vbcrlf & vbcrlf &_
"Depth of Wells/Borings: " & strBoringsD & vbcrlf & vbcrlf &_
"Screen Length: " & strScreenLength & vbcrlf & vbcrlf &_
"Screen Slot Size: " & strScreenSlot & vbcrlf & vbcrlf &_
"Sand Size: " & strSandSize & vbcrlf & vbcrlf &_
"Grout Footage Per Well: " & strGroutFootage & vbcrlf & vbcrlf &_
"Manhole Size/Type: " & strManhole & vbcrlf & vbcrlf &_
"2' x 2' Concrete Pad: " & strConcrete & vbcrlf & vbcrlf &_
"Air Hammer Required: " & strAirHammerR & vbcrlf & vbcrlf &_
"Air Hammer Size: " & strAirHammerS & vbcrlf & vbcrlf &_
"Rock Coring Required: " & strRockCoring & vbcrlf & vbcrlf &_
"Rock Core Size: " & strRockCoreSize & vbcrlf & vbcrlf &_
"Additional Requirements: " & strAdditionalReq & vbcrlf & vbcrlf &_
"DOT Drums: " & strDotDrums & vbcrlf & vbcrlf &_
"Police Detail: " & strPoliceDetail & vbcrlf & vbcrlf &_
"Poly Sheeting: " & strPolySheeting & vbcrlf & vbcrlf &_
"Permitting: " & strPermitting & vbcrlf & vbcrlf &_
"Steam Cleaning on Site: " & strSteamCleaning & vbcrlf & vbcrlf &_
"Air-Vacuum Excavator: " & strAirVac & vbcrlf & vbcrlf &_
"Special/Other Requirements: " & strOtherReq & vbcrlf & vbcrlf
' **********************************************
IF Session("LiveServer") Then
adminEmail = "jstamas@geosearchinc.com"
CCmail = "msecino@geosearchinc.com"
'CCmail = "admin@imsx.com"
ELSE
adminEmail = "tf@imsx.com"
CCmail = "admin@imsx.com"
END IF
Dim ObjSendMail
Set ObjSendMail = CreateObject("CDO.Message")
'This section provides the configuration information for the remote SMTP server.
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network).
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.axsne.net"
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Use SSL for the connection (True or False)
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
' If your server requires outgoing authentication uncomment the lines bleow and use a valid email address and password.
'ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication
'ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="somemail@yourserver.com"
'ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="yourpassword"
ObjSendMail.Configuration.Fields.Update
'End remote SMTP server configuration section==
ObjSendMail.To = adminEmail
ObjSendMail.Subject = "Feedback Form"
ObjSendMail.From = strEmail
' we are sending a text email.. simply switch the comments around to send an html email instead
'ObjSendMail.HTMLBody = "this is the body"
ObjSendMail.TextBody = strHTML
ObjSendMail.Send
Set ObjSendMail = Nothing
'Set objCDO = Server.CreateObject("CDONTS.NewMail")
'objCDO.To = adminEmail
'objCDO.CC = CCmail
'objCDO.Importance = 2
'objCDO.From = strEmail
'objCDO.Subject = "Feedback Form"
'objCDO.Body = strHTML
'objCDO.Send
'Set objCDO = Nothing
' **********************************************
%>
Thank You!
Your request has been processed. You will be contacted by a Geosearch Representative soon.
Close Window
|
<% END SUB %>