ASP Free Forums - ASP Development http://forums.aspfree.com/ ASP Development forum discussing ASP related topics including coding practices, ASP tips, and more. Active Server Pages (ASP) enables you to empower your HTML pages dynamically with robust scripting options. en Thu, 23 May 2013 11:07:38 GMT vBulletin 60 http://forums.aspfree.com/images/misc/rss.png ASP Free Forums - ASP Development http://forums.aspfree.com/ <![CDATA[Needs Help With ASP page That Won't Respond To Recapatcha Correctly]]> http://forums.aspfree.com/asp-development-5/needs-help-asp-page-wont-respond-recapatcha-correctly-538521.html Tue, 21 May 2013 20:22:20 GMT I have built an asp web page to retrieve information from a submitted the form. It emails the results fine. But it won't display the error message when the verification words are not correct. It still emails the results of the form. I do not want this to happen. Maybe I made a typo somewhere. Please look at parts of my code that are in bold below.

Code:
<%Option Explicit %>

<html>

<body>

<%
dim Email
dim message, Subject
dim EmailBody, Name, State, Phone
dim Profession, DateDiagnosed
dim recaptcha_challenge_field, recaptcha_response_field
dim recaptcha_private_key, recaptcha_public_key
         
         
         
recaptcha_challenge_field  = Request("recaptcha_challenge_field")
recaptcha_response_field  = Request("recaptcha_response_field")
recaptcha_private_key      = "----"
recaptcha_public_key      = "-----------"

dim cTemp
cTemp = recaptcha_confirm(recaptcha_private_key, recaptcha_challenge_field, recaptcha_response_field)

If cTemp <> "" Then
%>
 
      <p><strong>An error occured with the recapture wording. Please try again.
        Please click on the back button to enter the two words for vertification.</strong></p>
      <% end if %>
          <%  - This will not do anything.

If Request.Form("Submit") <> "" Then

    Name = Request.Form("txtName")
    State = Request.Form("selState")
    Phone = Request.Form("txtPhone")
    Email = Request.Form("txtemail") 
    Profession = Request.Form("txtProfession")
    DateDiagnosed = Request.Form("txtDateDiagnosed")



If cTemp <> "incorrect-captcha-sol" Then



  dim MyMail
  Set MyMail = Server.CreateObject("CDO.Message")
 

 
      EmailBody = "Name: " & Name & " "
     
      EmailBody = EmailBody & vbCrLf & vbCrLf & "<p><b>State: </b>" & State & ""
          EmailBody = EmailBody & vbCrLf & vbCrLf & "<p><b>Email: </b>" & Email & ""

       
      EmailBody = EmailBody & vbCrLf & vbCrLf & "<p><b>Day Time Phone: </b>" & Phone & ""
      EmailBody = EmailBody & vbCrLf & vbCrLf & "<p><b>Profession and Years Worked: </b>" & Profession & ""
      EmailBody = EmailBody & vbCrLf & vbCrLf & "<p><b>Date Diagnosed with Lung Cancer: </b>" & DateDiagnosed & ""
 
     
          with MyMail               
      .From = Name & "<" & Email & ">"
      .To = ""

            .Subject = "Lung Cancer and Asbestos"
          .HTMLBody = EmailBody
          '.TextBody = EmailBody
          .Send()
End With

         
          set MyMail = Nothing 
         
          response.redirect "default.asp"
         
          else
        %>
          <p><strong>An error occured with the recapture wording. Please try again.
        Please click on the back button to enter the two words for vertification.</strong></p>
         
<% It won't do this when the vertification words are wrong. It sends the results to the email address.
        end if
        end if
         
          ' returns string the can be written where you would like the reCAPTCHA challenged placed on your page
function recaptcha_challenge_writer(publickey)
  recaptcha_challenge_writer = "<script type=""text/javascript"">" & _
  "var RecaptchaOptions = {" & _
  " theme : 'white'," & _
  " tabindex : 0" & _
  "};" & _
  "</script>" & _
  "<script type=""text/javascript"" src=""http://api.recaptcha.net/challenge?k=" & publickey & """></script>" & _
  "<noscript>" & _
  "<iframe src=""http://api.recaptcha.net/noscript?k=" & publickey & """ frameborder=""1""></iframe><br>" & _
  "<textarea name=""recaptcha_challenge_field"" rows=""3"" cols=""40""></textarea>" & _
  "<input type=""hidden"" name=""recaptcha_response_field"" value=""manual_challenge"">" & _
  "</noscript>"
end function

function recaptcha_confirm(privkey,rechallenge,reresponse)
  ' Test the captcha field
  Dim VarString
  VarString = _
  "privatekey=" & privkey & _
  "&remoteip=" & Request.ServerVariables("REMOTE_ADDR") & _
  "&challenge=" & rechallenge & _
  "&response=" & reresponse
  Dim objXmlHttp
  Set objXmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP")
  objXmlHttp.open "POST", "http://api-verify.recaptcha.net/verify", False
  objXmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
  objXmlHttp.send VarString
  Dim ResponseString
  ResponseString = split(objXmlHttp.responseText, vblf)
  Set objXmlHttp = Nothing
  if ResponseString(0) = "true" then
    ' They answered correctly
    recaptcha_confirm = ""
  else
    ' They answered incorrectly
    recaptcha_confirm = ResponseString(1)
  end if
end function         
       
%>

</body>
</html>
]]> ASP Development Misty http://forums.aspfree.com/asp-development-5/needs-help-asp-page-wont-respond-recapatcha-correctly-538521.html Storing information in a database using ASP http://forums.aspfree.com/asp-development-5/storing-information-database-using-asp-538510.html Mon, 20 May 2013 15:55:49 GMT Good afternoon

I am in the process of building a system that will enable my users to take literature orders for some of our telephone-based campaigns.

So far I've successfully managed to set up a system whereby they can create a new order record and add the callers name & address details. So far, so good.

My next desire is to present them with a table containing the names of each item that they can request for the caller. What the user would see is the name of the item, a brief description of it where appropriate, a field to enter the number of copies of that item that the caller wants and a button which would enable them to place the order. This means that if there are 14 separate literature items available for selection, there would be 14 names, 14 descriptions, 14 quantity fields and 14 confirmation buttons.

I can get everything laid out on the page, and I can get to the point where each confirmation button will trigger the reloading of the page, with the appropriate (and hidden) ItemID value being presented. However, I can't get my head around how to pass the quantity information along with it.

Any help would be greatly appreciated (assuming I've made sense with my question.

TIA



Ian Henderson ]]> ASP Development ianbhenderson73 http://forums.aspfree.com/asp-development-5/storing-information-database-using-asp-538510.html Insert long string into Access Database using parametrised query in classic ASP http://forums.aspfree.com/asp-development-5/insert-long-string-into-access-database-using-parametrised-query-classic-asp-538500.html Fri, 17 May 2013 13:18:51 GMT Hi

Sorry if this is a duplicate, I tried to create this post and it seems to have disappeared into the ether.

I'm trying to update a classic ASP application and as part of the update I've tried to replace dynamic SQL using string concatenation with a parametrised query.

The problem is that the parameters won't accept a value which is longer than 210 characters.

I get the following error...

Quote:
ADODB.Parameter error '800a0d5d'

Application uses a value of the wrong type for the current operation.

/admin/Save_product_subcategories.asp, line 30
My first attempt looks like this...

Code:
SQLString = "UPDATE Product_SubCategories
    SET SubCategory=?, Description=?
    WHERE SubCategoryID=?"

Set courseCommand = Server.CreateObject("ADODB.Command")
courseCommand.ActiveConnection = objConn
courseCommand.CommandText = SQLString

courseCommand.Parameters(0).value = cleanCategory
courseCommand.Parameters(1).Value = cleanDescription
courseCommand.Parameters(2).value = cleanSubCategoryId
I've tried manually setting the parameter type and increasing the size of the parameter...

Code:
courseCommand.Parameters(1).Type = 203
courseCommand.Parameters(1).Size = 300
courseCommand.Parameters(1).Type = adLongVarWChar
I've also tried creating a parameter with the command.CreateParameter method but that gives the same error.

Code:
param = courseCommand.CreateParameter(,,,,cleanDescription)
'or
param = courseCommand.CreateParameter(,adLongVarWChar,,,cleanDescription)
'or
param = courseCommand.CreateParameter(,adLongVarWChar,,300,cleanDescription)
courseCommand.Parameters(1) = param
I tried to Append the parameter instead of adding it to the collection using the array index but none of the parameters worked after that.

Quote:
Provider error '80020005'

Type mismatch.

/admin/Save_product_subcategories.asp, line 31
I'm beginning to think that my only option is to go back to dynamic sql.

Thanks
Ben ]]> ASP Development B3nCr http://forums.aspfree.com/asp-development-5/insert-long-string-into-access-database-using-parametrised-query-classic-asp-538500.html How to display All States in a Dropdown box http://forums.aspfree.com/asp-development-5/how-display-all-states-dropdown-box-538489.html Wed, 15 May 2013 00:41:10 GMT Hey guys i need some help please :) I need to display all the 50 states in a drop-down box instead of a check-box so that it makes it easy for the user to select his/her state I already did some coding but i need to do some editing ... i mean change the check box to a drop down list: Code:... Hey guys i need some help please :)
I need to display all the 50 states in a drop-down box instead of a check-box so that it makes it easy for the user to select his/her state
I already did some coding but i need to do some editing ... i mean change the check box to a drop down list:

Code:
dim rs
dim state
dim rss
dim mp, rm, wb, srp


set dbconn = Server.CreateObject("ADODB.Connection")
dbconn.ConnectionString = strConn
dbconn.Open

'response.write "<DIV style='position: absolute; top:200px; left:550px; width:300px; height:25px'>"
'response.write "<P>&emsp;&emsp;&emsp;<input type='submit' value='Select States'></div></form>"

sql = "select State from Prospect Group by State Order by State ;"

set rs = dbconn.execute(sql)

'Select Source
response.write "<FORM NAME='x' METHOD='POST' ACTION='Getlistbe.asp'>"

'Product
response.write "<select Name='Product' Size='1'>"
response.write"<option Value='Select'>Select Product</Option>"
response.write "<Option Value='MP'>MP</option>"
response.write "<Option Value='RM'>RM</option>"
response.write "<Option Value='WB'>WB</option>"
response.write "<Option Value='SRP'>SRP</option></select><P>"
response.write "<select Name='Source' Size='1'>"
response.write"<option Value='Select'>Select Source</Option>"

do while NOT rss.EOF

'Select Product
response.write "<FORM NAME='x' METHOD='POST' ACTION='Getlistbe.asp'>"


'Source
response.write "<Option " & " Value='" & rss("Source") & "'>" & rss("Source") & " </option>"



rss.MoveNext
loop
response.write "</Select><P>"
rss.close
set rss=nothing

do while not rs.eof

response.write rs ("State") & "<input type='checkbox' value='~" & rs ("State") & "~' name='State'><br>"
        rs.MoveNext
loop

response.write "<input type ='Submit' value = 'Create list'></form>"
       
        set rs = nothing
        dbconn.close
        set dbconn = nothing
        response.write ""


Can someone help please
Thank you guys :) ]]> ASP Development Sammy_Alonzo http://forums.aspfree.com/asp-development-5/how-display-all-states-dropdown-box-538489.html Simplify SQL Statement http://forums.aspfree.com/asp-development-5/simplify-sql-statement-538487.html Tue, 14 May 2013 02:40:25 GMT If I have this array of numbers, is there a way to simplify this in the sql statement rather than having to repeat it like the sql statement below?
(1,2,5,7,9,11,12,18,20,21)

Code:
SQL = "select * from TableName where  id= '" & 1 &" ' or  id= '" & 2 &" ' or  id= '" & 5 &" ' or id= '" & 7 &" ' or  id= '" & 9 &" ' or  id= '" & 11 &" ' or  id= '" & 12 &" ' or  id= '" & 18 &" ' or  id= '" & 20 &" ' or  id= '" & 21 &" ' order by id"
Thank You. ]]> ASP Development phoenixaz http://forums.aspfree.com/asp-development-5/simplify-sql-statement-538487.html Anchor tag downloads file but cannot open in separate window http://forums.aspfree.com/asp-development-5/anchor-tag-downloads-file-but-cannot-open-separate-window-538486.html Tue, 14 May 2013 00:00:24 GMT Howdy all.

In my project, have an ASP page that displays the file name in an HTML anchor tag.
I can download the file but cannot open it in a separate window even using the target="_blank" attribute.
Adding a type="image/jpeg" does nothing.

Appreciate your suggestions.

Thanks,

Rey

Code:
<td id="imgFile1">&nbsp;
                                       
<% response.write "<a href=" & Server.Mappath("glupload/" & strImageFile1) & " target=""""_blank"""" type=""image/jpeg"" " & ">" & strImageFile1 & "</a>" %>                                                               
                                       
</td>
]]> ASP Development reycbx http://forums.aspfree.com/asp-development-5/anchor-tag-downloads-file-but-cannot-open-separate-window-538486.html Very long statement with many underscores http://forums.aspfree.com/asp-development-5/very-long-statement-many-underscores-538484.html Mon, 13 May 2013 16:40:07 GMT Hi, I got error because (I think) of a long statement with more than 30 underscores. I tried to reduce the number of the underscores and the error disappeared. After that, I found a even long statement with even more underscores (50, I think) in a function of another page, but without causes... Hi,

I got error because (I think) of a long statement with more than 30 underscores. I tried to reduce the number of the underscores and the error disappeared.
After that, I found a even long statement with even more underscores (50, I think) in a function of another page, but without causes any error! Do you know why?

Thank you in advance. ]]> ASP Development makth http://forums.aspfree.com/asp-development-5/very-long-statement-many-underscores-538484.html <![CDATA[windows/asp -> create: forum + chat + social network]]> http://forums.aspfree.com/asp-development-5/windows-asp-create-forum-chat-social-network-538482.html Mon, 13 May 2013 06:40:03 GMT Dear all. I want to add to a site that work on windows/asp: 1. forum 2. chat 3. social network. Is there ready made script or plugins, or should i do the programming. Dear all.

I want to add to a site that work on windows/asp:

1. forum
2. chat
3. social network.

Is there ready made script or plugins, or should i do the programming.

If i need to do the programming: any leads or examples how i do the 3 above: forum + chat + social network.

Regards,

Edi ]]> ASP Development ppp2hhh http://forums.aspfree.com/asp-development-5/windows-asp-create-forum-chat-social-network-538482.html Reporting solution For ASP.NET http://forums.aspfree.com/asp-development-5/reporting-solution-asp-net-538474.html Fri, 10 May 2013 09:29:18 GMT Hi, Tell Me the which is best solution for *Reporting in ASP.net?* In Reporting i have to display images,tables,cross tables,chart, sub report. Also any open source reporting tool. Requires fast rendering ,exporting in many formats. Hi,
Tell Me the which is best solution for Reporting in ASP.net?
In Reporting i have to display images,tables,cross tables,chart, sub report.
Also any open source reporting tool.
Requires fast rendering ,exporting in many formats. ]]> ASP Development SAGAR_JAYBHAY http://forums.aspfree.com/asp-development-5/reporting-solution-asp-net-538474.html How to Delete Bad Emails From.... http://forums.aspfree.com/asp-development-5/how-delete-bad-emails-538468.html Wed, 08 May 2013 02:41:18 GMT Hi guys...i need help please i need to create a program that can delete bad emails from a table called Prospect using an SQL delete statement ... But before doing that...the email addresses are actually in an excel spread sheet...so before i import the emails into my database i need to spin... Hi guys...i need help please
i need to create a program that can delete bad emails from a table called Prospect using an SQL delete statement ...
But before doing that...the email addresses are actually in an excel spread sheet...so before i import the emails into my database i need to spin through the file and then delete from Prospect Table

So, i was working on this little code but its seems its not really deleting anything...

dim Email
dim rs
dim fso,

set dbconn = Server.CreateObject("ADODB.Connection")
dbconn.ConnectionString = strConn
dbconn.Open


sql = "DELETE FROM Prospect WHERE email = '" & email & "';"
set rs=dbconn.execute(sql)
Do while not rs.eof

response.write rs ("Email") & "<br>"
f.writeline rs ("Email")
rs.movenext


Loop
f.close
set fso=nothing
rs.close
set rs=nothing


dbconn.close
set dbconn=nothing


Help guys..im kinda stuck
Thank you ]]> ASP Development Sammy_Alonzo http://forums.aspfree.com/asp-development-5/how-delete-bad-emails-538468.html asp #include, and error console for asp? http://forums.aspfree.com/asp-development-5/asp-include-error-console-asp-538464.html Tue, 07 May 2013 09:59:49 GMT I've been doing html and javascript the last few months but I have very little experience with serverside scripting. I'm trying to get a grip of asp now but #include doesn't seem to work for some reason. I'm using IIS 7.5 (included with Win 7).

I have two .asp files in ..../wwwroot/MyWeb directory. I'm trying to #include FiboRecursive.asp in a file called test.asp. Both files work separately if I get rid of the #include. I have tried both virtual and file includes.

This is test.asp:

<%@ language="javascript" %>
<html>
<body>
<p>
<% //Response.Write(Request.ServerVariables("http_user_ agent"));%>
</p>
<p>
<%
var remoteAddr = Request.ServerVariables("REMOTE_ADDR");
remoteAddr += "";
if ((remoteAddr.length > 5) && (remoteAddr.substr(0,7)=="140.114") ) {
Response.Write("Hello there Tsingda student!");
}
else {
Response.Write("You're not a Tsingda student!");
}
%>
</p>

<form action="./FiboRecursive.asp" method="post">
<input type="submit" value="Calculate Fibbonacci numbers!" />
</form>

<!--#INCLUDE FILE="fiborecursive.asp" -->

</body>
</html>

This is the code in FiboRecursive.asp:

<%@ language="javascript" %>
<%
Response.Write("Let's calculate some Fibbonacci numbers!");
%>

I'm sure it's basic and stupid, but please help me out!

Edit: Another thing: I always use web developer tools (error console) in firefox to check for errors in my code, but obvously that doesn't work too well when doing server side stuff. Any way to get some hints as to what's wrong from a console or similar? ]]> ASP Development Jack Hard http://forums.aspfree.com/asp-development-5/asp-include-error-console-asp-538464.html 301 and 404 re-directs on a Windows server http://forums.aspfree.com/asp-development-5/301-404-re-directs-windows-server-538458.html Thu, 02 May 2013 20:17:19 GMT I have a client with a fairly large shopping cart. Over the past few months they have been deleting a large number of pages from the website(500+). This is beginning to create some indexing issues so we need to do 301 and 404 re-directs for the search engines. The site is ASP and is hosted... I have a client with a fairly large shopping cart.

Over the past few months they have been deleting a large number of pages from the website(500+).
This is beginning to create some indexing issues so we need to do 301 and 404 re-directs for the search engines.

The site is ASP and is hosted on a server using Windows Server IIS ver6.
We have been told by the hosting company that the re-directs can only be done one at a time.
This is not a practical solution in terms of the client's resources.

Is there a faster, easier way to create this many re-directs on a Windows server.

I am not a programmer but have been told that with PHP you can write scripts to speed up the process. However, you cannot do this with ASP.

Any suggestions or comments would be greatly appreciated. My apologies if this is not the place for me to be asking this question. ]]> ASP Development steve_e http://forums.aspfree.com/asp-development-5/301-404-re-directs-windows-server-538458.html Reset (change) SessionID without Session.Abandon() http://forums.aspfree.com/asp-development-5/reset-change-sessionid-without-session-abandon-538457.html Thu, 02 May 2013 09:17:12 GMT Hi,

It's possible to reset (change) the SessionID without execute the Session.Abandon()?

thanks in advance. ]]> ASP Development Kyriakos http://forums.aspfree.com/asp-development-5/reset-change-sessionid-without-session-abandon-538457.html How to move an email address http://forums.aspfree.com/asp-development-5/how-move-email-address-538456.html Wed, 01 May 2013 23:49:14 GMT Hey guys i'm kinda stuck on something simple....I'm developing a web application
that ask the user to enter his/her email address & after s/he hit the search button
i want to place his/her email on another table and delete it from the current table :

this is the code : but when i execute it jumps straight to this message "Email is NOT in Prospect Table" and the email still exist on the prospect table without deleting it


dim emailAddress, strEmail

emailAddress = Request.Form("Email")

set dbconn = Server.CreateObject("ADODB.Connection")
dbconn.ConnectionString = strConn
dbconn.Open


on error resume next
sql = "SELECT Email FROM Prospect WHERE Email = '" & emailAddress & "';"
rs = dbconn.execute(sql)

strEmail = rs("Email")

'If the above statement returns an error, the Err.number value will not be 0
if Err.number <> 0 Then
set rs = nothing
dbconn.close
set dbconn = nothing
response.write "Email is NOT in Prospect Table"
response.end
stop
end if


'Place the email address into the DontSend Table Comment
sql = "INSERT INTO DontSend (Email, Name, Date) VALUES ('" & strEmail & "', 'unknown', '" & date() & "');"
dbconn.execute(sql)

'Now Delete the email address from the Prospect table Comemnt
sql = "DELETE FROM Prospect WHERE Email = '" & strEmail & "';"
dbconn.execute(sql)

dbconn.close
set dbconn = nothing

Can anyone please help....???
Thank you ]]> ASP Development Sammy_Alonzo http://forums.aspfree.com/asp-development-5/how-move-email-address-538456.html Changing website content dynamically http://forums.aspfree.com/asp-development-5/changing-website-content-dynamically-538448.html Tue, 30 Apr 2013 02:36:42 GMT Hello everyone, I am a newbie in ASP.net and am developing a website on astrology. For the front page, some section (div) of the page needs to change dynamically based on change of date. The corresponding content needs to be displayed as the current date change falls into new Zodiac sign.... Hello everyone,

I am a newbie in ASP.net and am developing a website on astrology.
For the front page, some section (div) of the page needs to change dynamically based on change of date. The corresponding content needs to be displayed as the current date change falls into new Zodiac sign. Please guide me on this.

Thanks in advance :) ]]> ASP Development aspbeginner01 http://forums.aspfree.com/asp-development-5/changing-website-content-dynamically-538448.html