Em Andamento

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

%>

Habilidades: ASP, PHP

Ver mais: asp net email form captcha, how to solution, how to get php projects, get asp net, captcha code php, microsoft asp.net, microsoft configuration, captcha projects, existing location, form net form, captcha code asp, adding fields, object form, email relay, schemas, submission form, net captcha, net send email, captcha name, integrate calendar php, form captcha code, asp cdo php, asp contact form net, set captcha website form, net events calendar

Acerca do Empregador:
( 13 comentários ) United States

ID do Projeto: #3025511

Premiar a:

sunshinelabs

See private message.

$55.25 USD em 2 dias
(8 Avaliações)
3.7

3 freelancers estão ofertando em média $52 para este trabalho

vw391686vw

See private message.

$85 USD in 2 dias
(50 Comentários)
6.3
rjryerson

See private message.

$15.3 USD in 2 dias
(1 Comentário)
0.0