%
Dim aryFormItems
Dim arySingleItem
Dim strFormItemName
Dim i
Dim strFormInformation
'Response.Write Request.Form & "
"
If Request.Form <> "" Then
'grab all of the form items and split them into name,value pairs
aryFormItems = split(Request.Form,"&")
'loop through all of the pairs
For i = 0 To ubound(aryFormItems)
'split this pair into name and value
arySingleItem = split(aryFormItems(i),"=")
'if we got something before the = sign, set a value for name
if ubound(arySingleItem) >= 0 then
strFormItemName = arySingleItem(0)
end if
'show the values
'Response.Write "" & strFormItemName & " : " & request(strFormItemName) & "
"
strFormInformation = strFormInformation & "" & strFormItemName & " : " & request(strFormItemName) & "
"
Next
strFormInformation = "A REQUEST HAS BEEN SENT FROM THE GEONEXINTL.COM WEBSITE
" & strFormInformation
Set oMail = Server.CreateObject("Persits.MailSender")
With oMail
.Host = "mercury.brave.net"
.From = "international@geonexintl.com"' From address
.FromName = Request("Email") ' optional
.AddBCC "dduclos@brave.net"
.AddAddress "international@geonexintl.com"
.Subject = "A REQUEST HAS BEEN SENT FROM THE GEONEXINTL.COM WEBSITE"
.Body = strFormInformation
.IsHTML = true
End With
blnSent = oMail.Send
Set oMail = nothing
End If
%>
George NikiForov Inc. - International Export Management
|
|
|
|
Product Listing & Distributor
Application
|
|
|
|