%Response.Buffer=true %>
<%
'on error resume next
%>
<%
if request("action") = "captcha" then
response.Write(".")
'response.Write(request("captcha")&"---111 ")
'response.Write(session("captcha")&"++++111 ")
'response.End()
if cstr(request("captcha")) = cstr(session("captcha")) then
' response.Write(request("captcha")&"3333 ")
' response.Write(session("captcha")&"2222 ")
response.write "
"
session("captcha")=""
'response.End()
%>
<%
else
mess="Sorry, security code not match."
end if
end if
%>
<%
'Specify your captcha length here, this is the only configuration requirement
captchaLength = 5
Function captcha(captchaLength)
if captchaLength > 15 then captchaLength = 15
HighestValue = left(100000000000000,captchaLength)
lowestValue = left(999999999999999,captchaLength)
Randomize
intHighestNumber = Int((HighestValue - LowestValue + 1) * Rnd) + LowestValue
session("captcha") = Int(intHighestNumber)
x = 1
'response.write vbcrlf & "
" & vbcrlf & vbtab & "
Security Code:
" & vbcrlf
while x <= captchaLength
response.write vbtab & vbtab & "" & vbcrlf
x = x + 1
wend
'response.write vbtab & "
" & vbcrlf & "
" & vbcrlf
End Function
%>
Easy2Source Trade Show Center - Promote Your Show
<%tradeleft%>
<%=request.querystring("exbname")%>
On-line Tradefair Inquiry :
Fields marked with asterisk ( *
) are mandatory
Contact
Information :
Please provide your contact information here. This
information will be provided to the recipient of this query
along with your requirement details.