Adding a CAPTCHA to an existing asp.net form

Adding a CAPTCHA to an existing asp.net email submission form and creating a solution that I can use in later projects.

I have an existing email form that works, but I don't know how to integrate a CAPTCHA.

## Deliverables

Here is code from the .asp page that is working as an email submission form:

<%

Const cdoSendUsingMethod = _

"[url removed, login to view]"

Const cdoSendUsingPort = 2

Const cdoSMTPServer = _

"[url removed, login to view]"

Const cdoSMTPServerPort = _

"[url removed, login to view]"

Const cdoSMTPConnectionTimeout = _

"[url removed, login to view]"

Const cdoSMTPAuthenticate = _

"[url removed, login to view]"

Const cdoBasic = 1

Const cdoSendUserName = _

"[url removed, login to view]"

Const cdoSendPassword = _

"[url removed, login to view]"

Dim objConfig ' As [url removed, login to view]

Dim objMessage ' As [url removed, login to view]

Dim Fields ' As [url removed, login to view]

Dim Eventname, Eventdate, Eventlocation, Eventprice, Eventdetails, Eventphone, Eventemail, Eventwebsite

Eventname = [url removed, login to view]("Eventname")

Eventdate = [url removed, login to view]("Eventdate")

Eventlocation = [url removed, login to view]("Eventlocation")

Eventprice = [url removed, login to view]("Eventprice")

Eventdetails = [url removed, login to view]("Eventdetails")

Eventphone = [url removed, login to view]("Eventphone")

Eventemail = [url removed, login to view]("Eventemail")

Eventwebsite = [url removed, login to view]("Eventwebsite")

' Get a handle on the config object and it's fields

Set objConfig = [url removed, login to view]("[url removed, login to view]")

Set Fields = [url removed, login to view]

' Set config fields we care about

With Fields

.Item(cdoSendUsingMethod) = cdoSendUsingPort

.Item(cdoSMTPServer) = "[url removed, login to view]"

.Item(cdoSMTPServerPort) = 25

.Item(cdoSMTPConnectionTimeout) = 10

.Item(cdoSMTPAuthenticate) = cdoBasic

.Item(cdoSendUserName) = ""

.Item(cdoSendPassword) = ""

.Update

End With

Set objMessage = [url removed, login to view]("[url removed, login to view]")

Set [url removed, login to view] = objConfig

With objMessage

.To = ""

.From = ""

.Subject = "Calendar of Events Submission"

.TextBody = "Calendar of Events Submission @ " & Now() & vbCrLf & vbCrLf & "Event Name: " & Eventname & vbCrLf & vbCrLf & "Date: " & Eventdate & vbCrLf & vbCrLf & "Location: " & Eventlocation & vbCrLf & vbCrLf & "Price: " & Eventprice & vbCrLf & vbCrLf & "Details: " & Eventdetails & vbCrLf & vbCrLf & "Contact Phone: " & Eventphone & vbCrLf & vbCrLf & "Contact Email: " & Eventemail & vbCrLf & vbCrLf & "Website: " & Eventwebsite

.Send

End With

Set Fields = Nothing

Set objMessage = Nothing

Set objConfig = Nothing

%>

ASP PHP

Ταυτότητα Εργασίας: #3025511

Σχετικά με την εργασία