|
|
|
Please start by selecting your area of interest below. |
|
|
<%
dim companyname
dim address
dim state
dim zipcode
dim country
dim phone
dim name
dim city
dim email
dim comments
dim userip
dim submitted
submitted = request.form("submitted")
companyname=request.form("cn")
address=request.form("a")
state=request.form("s")
zipcode=request.form("z")
country=request.form("c")
phone=request.form("p")
name=request.form("n")
city=request.form("cy")
email=request.form("e")
comments=request.form("com")
userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip = "" Then
userip = Request.ServerVariables("REMOTE_ADDR")
End if
companyname=request.form("cn")
address=request.form("a")
state=request.form("s")
zipcode=request.form("z")
country=request.form("c")
phone=request.form("p")
name=request.form("n")
city=request.form("cy")
email=request.form("e")
comments=request.form("com")
'response.write "companyname=" & companyname & "
"
'response.write "address=" & address & "
"
'response.write "state=" & state & "
"
'response.write "zipcode=" & zipcode & "
"
'response.write "country=" & country & "
"
'response.write "phone=" & phone & "
"
'response.write "name=" & name & "
"
'response.write "city=" & city & "
"
'response.write "email=" & email & "
"
'response.write "comments=" & comments & "
"
if submitted ="1" then
call rec_download_user
brc = send_notify_email
call show_confirm(brc)
else
call show_input
end if
function rec_download_user
sSQL = ""
sSQL = sSQL & " INSERT INTO express_cube_user ("
sSQL = sSQL & " ip, companyname,address,state,zipcode,country,phone, name,city, email,comments"
sSQL = sSQL & " ) VALUES ("
sSQL = sSQL & " '" & replace(userip,"'","''") & "',"
sSQL = sSQL & " '" & replace(companyname,"'","''") & "',"
sSQL = sSQL & " '" & replace(address,"'","''") & "',"
sSQL = sSQL & " '" & replace(state,"'","''") & "',"
sSQL = sSQL & " '" & replace(zipcode,"'","''") & "',"
sSQL = sSQL & " '" & replace(country,"'","''") & "',"
sSQL = sSQL & " '" & replace(phone,"'","''") & "',"
sSQL = sSQL & " '" & replace(name,"'","''") & "',"
sSQL = sSQL & " '" & replace(city,"'","''") & "',"
sSQL = sSQL & " '" & replace(email,"'","''") & "',"
sSQL = sSQL & " '" & replace(comments,"'","''") & "')"
ExecuteSQL sSQL
end function
%>
<%function show_input%>
<%end function%>
<%function show_confirm(pbOK)%>
<%
function send_notify_email
'This prevents the form from being Cached.
'Response.Expires = 0
'Response.Expiresabsolute = Now-1
'Create the MailSender Object
Set Mail = Server.CreateObject("Persits.MailSender")
'Specify your SMTP Mail Server
Mail.Host = "10.10.0.197"
'Specify the From Address and Name
Mail.From = "yproducts@expresscube.com"
Mail.FromName = "Product Information"
'Specify whom will get the message
Mail.AddAddress "gordon.cooper@expresscube.com", "gordon.cooper@cardinalcouriers.com"
'//Mail.AddAddress "gnavarro@rogers.com", "Amigo"
'Specify the Message Subject and Body
Mail.Subject = "Product Information"
Mail.Body = "
companyname=" & companyname & _
"
address=" & address & _
"
state=" & state & _
"
zipcode=" & zipcode & _
"
country=" & country & _
"
phone=" & phone & _
"
name=" & name & _
"
city=" & city & _
"
email=" & email & _
"
comments=" & comments & _
"
ip=" & userip
'Specify of the message is plain text or HTML
'Mail.IsHTML = False
Mail.IsHTML = True
'Catch All Errors
On Error Resume Next
'Try to send the message
Mail.Send
'If there is an error, print it out, if the message sends ok, show success!
If Err <> 0 Then ' error occurred
'//response.write("Message Error: " & Err.Description)
bRC = false
else
'//response.write("Your Message has been sent!")
bRC = true
End If
'Close the Message Object to clear it from memory
Set Mail = Nothing
send_notify_email = bRC
end function
%>
|
|
Address:
ExpressCube
400 Brunel Road
Mississauga, Ontario, Canada
L4Z 2C2
|
U.S. Address:
ExpressCube
32 Windham Ave
Grand Island, NY
14072, USA
Phone:
1 - 877- I Cube It
(1-877-428-2348)
|
Euro
Address:
ExpressCube.eu
Burg. Van Randwijckstraat
47A
Rossum,
NL-5328 AS
T +31 418 66 33 63
F +31 418 66 26 77
E info@expresscube.eu
www.expresscube.eu
|
|
|
|