%@ Language=VBScript %>
<% Response.Buffer = true %>
<% Server.ScriptTimeout=150 %>
<%
'on error resume next
'for each thing in Request.Form
' Response.Write "
" & thing & ":::" & Request.Form(thing)
'next
msubmit = Request.Form("Submit3")
success = "N"
if ( msubmit = "Submit" ) then
'set mymail = server.CreateObject("CDONTS.NewMail")
Const cdoSendUsingMethod = _
"http://schemas.microsoft.com/cdo/configuration/sendusing"
Const cdoSendUsingPort = 2
Const cdoSMTPServer = _
"http://schemas.microsoft.com/cdo/configuration/smtpserver"
Const cdoSMTPServerPort = _
"http://schemas.microsoft.com/cdo/configuration/smtpserverport"
Const cdoSMTPConnectionTimeout = _
"http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"
Const cdoSMTPAuthenticate = _
"http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"
Const cdoBasic = 1
Const cdoSendUserName = _
"http://schemas.microsoft.com/cdo/configuration/sendusername"
Const cdoSendPassword = _
"http://schemas.microsoft.com/cdo/configuration/sendpassword"
Dim objConfig ' As CDO.Configuration
Dim objMessage ' As CDO.Message
Dim Fields ' As ADODB.Fields
' Get a handle on the config object and it's fields
Set objConfig = Server.CreateObject("CDO.Configuration")
Set Fields = objConfig.Fields
' Set config fields we care about
With Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "smtp.on-lyne.com"
.Item(cdoSMTPServerPort) = 25
.Item(cdoSMTPConnectionTimeout) = 10
.Item(cdoSMTPAuthenticate) = cdoBasic
.Item(cdoSendUserName) = "webteam@on-lyne.com"
.Item(cdoSendPassword) = "On-lyne0"
.Update
End With
Set objMessage = Server.CreateObject("CDO.Message")
Set objMessage.Configuration = objConfig
With objMessage
.To = "webteam@on-lyne.com"
.from = Request.Form("email")
if not ( Request.Form("email") = "" ) then
.From = Request.Form("email")
end if
if not ( Request.Form("name") = "" ) then
.Subject = "Suggestions from : " & Request.Form("name")
else
.Subject = "Suggestion Form : on-lyne.info"
end if
mbody = ""
mbody = "
NAME : " & Request.Form("name") & "
" end if if not ( Request.Form("sex") = "M" ) then mbody = mbody & "SEX : " & "MALE
" end if if not ( Request.Form("sex") = "F" ) then mbody = mbody & "SEX : " & "FEMALE
" end if if not ( Request.Form("email") = "" ) then mbody = mbody & "EMAIL : " & Request.Form("email") & "
" end if if not ( Request.Form("city") = "" ) then mbody = mbody & "CITY : " & Request.Form("city") & "
" end if if not ( Request.Form("country") = "" ) then mbody = mbody & "COUNTRY : " & Request.Form("country") & "
" end if if not ( Request.Form("navigate") = "E" ) then mbody = mbody & "NAVIGATE : " & "EASY
" end if if not ( Request.Form("navigate") = "D" ) then mbody = mbody & "NAVIGATE : " & "DIFFICULT
" end if if not ( Request.Form("comment") = "" ) then mbody = mbody & "COMMENT : " & Request.Form("comment") & "
" end if if not ( Request.Form("inclusion") = "" ) then mbody = mbody & "TO INCLUDE : " & Request.Form("inclusion") & "
" end if if not ( Request.Form("suggestion") = "" ) then mbody = mbody & "SUGGESTION " & Request.Form("suggestion") & "
" end if .HTMLBody = mbody 'mymail.Importance = 1 'mymail.BodyFormat = 0 'mymail.MailFormat = 0 .Send End With success = "Y" Set Fields = Nothing Set objMessage = Nothing Set objConfig = Nothing end if %>
|
||||||||
|
||||||||
Copyright
© 2003, All rights reserved. Site designed and maintained by On-lyne Comtech (I) Pvt. Ltd. |