Em Andamento

Adding a CAPTCHA to an existing [url removed, login to view] form

Adding a CAPTCHA to an existing [url removed, login to view] 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: get asp net, captcha code php, microsoft configuration, captcha projects, existing location, captcha code asp, adding fields, object form, email relay, schemas, 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, set net website server, net projects details, captcha code contact form, php captcha existing form, net calendar event, use contact form 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