Advertisement
Advertisement
| 09.05.2008 at 03:08AM PDT, ID: 23705609 | Points: 500 |
|
[x]
Attachment Details
|
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: 44: 45: 46: 47: 48: 49: 50: 51: 52: 53: 54: 55: 56: 57: 58: 59: 60: 61: 62: 63: 64: 65: 66: 67: 68: 69: 70: 71: 72: 73: 74: 75: |
<html>
<body>
<%
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
Dim fname, course, email, tel_no, enquiry, keepUpToDate
fname = Request.Form("fname")
course = Request.Form("course")
email = Request.Form("email")
tel_no = Request.Form("tel_no")
enquiry = Request.Form("enquiry")
keepUpToDate = Request.Form("keepUpToDate")
' 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) = "assist-sql1.assist.local"
.Item(cdoSMTPServerPort) = 25
.Item(cdoSMTPConnectionTimeout) = 10
.Item(cdoSMTPAuthenticate) = cdoBasic
.Item(cdoSendUserName) = "USERNAME"
.Item(cdoSendPassword) = "PASSWORD"
.Update
End With
Set objMessage = Server.CreateObject("CDO.Message")
Set objMessage.Configuration = objConfig
With objMessage
.To = "info@assistsupport.co.uk, hello@jonsmithgraphics.co.uk"
.From = "info@assistsupport.co.uk"
.Subject = "Assist Academy Web Enquiry"
.TextBody = "Assist Academy Web Enquiry Sent @ " & Now() & vbCrLf & "fname: " & fname & vbCrLf & "course: " & course & vbCrLf & "email: " & email & vbCrLf & "tel_no: " & tel_no & vbCrLf & "enquiry: " & enquiry & vbCrLf & "keepUpToDate: " & keepUpToDate
.Send
End With
Set Fields = Nothing
Set objMessage = Nothing
Set objConfig = Nothing
Response.Redirect "thanks-academy2.html"
%>
</body>
</html>
|