DaniWeb IT Discussion Community - ASP Tutorials

Request.QueryString Substring problem

ammwebmaster2 — Tue, 13 May 2008 13:52:06 GMT

I am having a world of problems with this can anyone please help. I don't know what I am doing wrong. Following the code is the error message I am getting. Here is the code I am using:


"http://www.w3.org/TR/html4/loose.dtd">









AMM | Unsubscribe 









  

    

  

  

    

  

  

    

  

  

  

    

  

  

    

  

  

    

  


        

            

                
By selecting this link you are requesting to stop receiving emails from the Association.
Member #<%Request.QueryString["donor"].ToString().Substring(1,9)%>
    <%(Request.QueryString("donor").ToString().Substring(10,4))%>
 
Would you like to continue receiving emails from us?


                

                ">

                          

                      

                                  

                      Yes, continue to send me emails.            


          

         

              

                

              No, remove me from your email list.

Here is the error message I am getting:

Member #
Microsoft VBScript runtime error '800a01a8'

Object required: 'Request'

/distribution/addorremovetest.asp, line 22

Any Help Please!

Photo Scrolling/ carousel similar as Flickr(using ajax +asp)

yenyen — Mon, 12 May 2008 14:49:16 GMT

Good Day
i need some help on some image/photo slide show display.
i would like to do a photo carousel function similar as the
http://www.flickr.com/photos/69864550@N00/320622773/

i wan to create a photo stream slideshow like the function in tis web which located at the right hand side, as image below:
http://i263.photobucket.com/albums/i...2008/image.jpg

let say in my album consists of 100 photo( from database). It will not load out all my 100 photos at the same time when the page is loaded. it will load the others photo when i click on the NEXT arrow button and Previous button. i need some help on tis function and implement it with ASP VBscript code. please help me....
i have do some research on it. but i duno how to implement the jcarousel with the asp vbscript.for example:
http://sorgalla.com/projects/jcarousel/

plz give me a hand. thank you very much

Sql server express 2000

vipinsgangwar — Mon, 12 May 2008 10:44:13 GMT

hi all,

I have two problems

1.
When i am updating the value of table manually.
i am facing the error :

The data in the row1 was not commited.
Error Source : .Net SQL Client Data Provider
Error Message : Time Out Expired

and Second one is also related to it:

I am inserting value in one table.
After insertion of the values i am updating the same table and getting the same error message:

Time Out Expired

Please help me

Please give the solution as soon as possible

checkbox checkchanged event not firing in datalist control

SANJISH — Fri, 09 May 2008 17:49:06 GMT

I have a checkbox inside a datalist control with Autopostback="True". When a user clicks the checkbox the associated event Handler is not firing.

My code is

In HTML :

         "myDataList" runat="server"  RepeatColumns="1"   RepeatDirection="Vertical" >
               
                   "chkid" runat="server" autopostback="True" />
                   <%#"Id " + Container.DataItem("CustomerID")%>
                   <%#"Name " + Container.DataItem("ContactName")%>

In Code behind :

Protected Sub myDataList_ItemCreated(ByVal sender As Object, ByVal e As  system.Web.UI.WebControls.DataListItemEventArgs) Handles myDataList.ItemCreated



        Dim alSelectedValues As New ArrayList



        For Each item As DataListItem In myDataList.Items

            'check the item isn't a header or footer

            If e.Item.ItemIndex > -1 Then

                Dim cb As CheckBox = e.Item.FindControl("chkid")

                AddHandler cb.CheckedChanged, AddressOf Me.checkboxclicked



                Dim value As String = cb.Text

                Dim checked As Boolean = cb.Checked

                 If checked Then

                    alSelectedValues.Add(value)

                End If

            End If



        Next

The checkboxclicked event Handler is not firing

Please help

Regards

Sanjish

Drop Down menu

jithusdani — Fri, 09 May 2008 09:49:48 GMT

i created a drop down menu in the following manner and its coming like horizontal menu with vertical sub menu.What i want is horizontal menu with horizontal sub menu can anybody can help me..here am attaching my cuurent code..

menu.html


 
href="menu.css" rel=stylesheet>
 href="menu.css" type=text/css 
rel=stylesheet>
 language=JavaScript 
src="menu.js">
 id=dmenu>
         class=topmenulifirst> class=topmenutitle 
        href="index.htm">Home

class=topmenuli> class=topmenutitle

href="javascript:;">About Us

class=submenuul>

class=submenuli>

href="#">Our Strategy

class=submenuli>

href="#">Our Business

class=submenuli>

href="#">Global Network

class=submenuli>

href="#">Quality Assurance

class=submenuli>

href="#">Awards And Recognition

class=topmenuli> class="topmenutitle"

href="javascript:;">Working With Us

class=submenuul>

class=submenuli>

href="salesenquiry.asp">Sales Enquiry

class=submenuli>

href="customercare.asp">Customer Care

class=submenuli>

href="jobenquiry.asp">Job Enquiry

class=submenuli>

href="newssubscription.asp">News Subscription

         
         class=topmenuli> class=topmenutitle 
        href="newsclientview.asp">News Room 
 
                 class=topmenuli> class="topmenutitle " 
        href="javascript:;">Investor Zone 
         class=submenuul>
           class=submenuli> 
          href="announceclientview.asp">Company Announcement 
           class=submenuli> 
          href="#">Financial Report 
           class=submenuli> 
          href="#">Analytical Report                             
        
                         class=topmenuli> class=topmenutitle 
        href="#">Online Ordering

menu.css

.topmenuul {
        PADDING-RIGHT: 25px; PADDING-LEFT: 1px; PADDING-BOTTOM: 100px; MARGIN: 1px; PADDING-TOP: 10px; LIST-STYLE-TYPE: none
}
.topmenuli {
        FLOAT: left; LIST-STYLE-TYPE: none; BACKGROUND-COLOR: #D5D5D5; WIDTH: 159px; font:"Trebuchet MS"
}
.topmenulifirst {
        FLOAT: left; LIST-STYLE-TYPE: none; BACKGROUND-COLOR: #D5D5D5 ; WIDTH: 165px; font:"Trebuchet MS"
}
.topmenuli A:hover {
        color:#FF0000
}
.topmenulifirst A:hover {
        color:#FF0000
}
.submenuul {
        PADDING-RIGHT: 1px; DISPLAY: none; PADDING-LEFT: 1px; PADDING-BOTTOM: 1px; MARGIN: 1px; PADDING-TOP: 1px; LIST-STYLE-TYPE: none; POSITION: absolute; TEXT-ALIGN: left
}
.submenuli A {
        DISPLAY: block; WIDTH: 150px; font:"Trebuchet MS"; font-size:11px
}
LI:hover UL {
        DISPLAY: block
}
LI.over UL {
        DISPLAY: block
}
UL {
        MARGIN-LEFT: 
}
UNKNOWN {
        LEFT: auto; TOP: auto
}
#content {
        CLEAR: left
}
#dmenu {
         FONT-SIZE: 11px; FONT-FAMILY: Garamond; color:#000000
}
.topmenutitle {
        PADDING-RIGHT: 35px; DISPLAY: block; PADDING-BOTTOM: 4px; COLOR: #444548; TEXT-INDENT: 0.2cm; LINE-HEIGHT: 5px; PADDING-TOP: 10px; TEXT-ALIGN: center; TEXT-DECORATION: none
}
.submenuul {
        BACKGROUND-POSITION: right 50%; BORDER-TOP: #ffffff 1px solid; MARGIN-TOP: -1px; BORDER-LEFT: #ffffff 1px solid; BACKGROUND-REPEAT: repeat-x; BACKGROUND-COLOR: #dcdcdc
}
.submenuli A {
        PADDING-RIGHT: 3px; PADDING-LEFT: 3px; PADDING-BOTTOM: 3px; COLOR: #444548; PADDING-TOP: 3px; TEXT-DECORATION: none
}
.submenuli A:hover {
        color:#FF0000
}
BODY{
        FONT-FAMILY:verdana;
        font-size:12px;        
        background-color: #F2F2F2;
}

menu.js

startList = function() {
                if (document.all && document.getElementById) {
                        navRoot = document.getElementById("dmenu");
                        //alert(navRoot.childNodes.length);
                        for (i=0; i < navRoot.childNodes.length; i++) {
                                node = navRoot.childNodes[i];
                                if (node.nodeName=="LI") {
                                        node.onmouseover=function() {
                                                this.className+=" over";
                                        }
                                        node.onmouseout=function() {
                                                this.className=this.className.replace(" over", "");
                                        }
                                }
                        }
                }
        }
 
        window.onload=startList;

This is my code to create the dropdown menu plz answer me asps..

Setting Array data

gcSean — Thu, 08 May 2008 16:30:42 GMT

I've created a method that returns 3 records in an array. This is being called in an asp page. I created a variable called PRODUCTINFO that is going to be taking those 3 records from the method and allow me to use it later on in the page. Below is the code that im using to create the object and then trying to assign the data to productinfo.

Set oAucEng = Server.CreateObject("Data.AuctionEngDB")'
PRODUCTINFO = oAucEng.GetProductInfo(gfv.Item("AUCTIONID"))

Right now PRODUCTINFO isn't declared as an array because I get a type mismatch error. I'm wondering what I need to do to populate an array with the results from the method? I want to be able to access that data like response.write PRODUCTINFO(0). Any help would be greatly appreciated

in .NET 2005

bhavna_816 — Thu, 08 May 2008 14:42:15 GMT

When I go to the design window and drag some control say label in that, I can't be able to see that.
When I switch to Source control, I can the tag like



ABCD

Also in properties window I can't see the control's property,

Can anybody have any idea?
How can I get the controls visible and see the properties?

Thanks in advance, :)

Problem Porting ASP app from MS-SQL to MySQL

aaronseidman — Wed, 07 May 2008 19:15:53 GMT

I am having a problem porting an application written in ASP, using an MS SQL Server database, to a different ISP using MySQL. Code that seems to run fine on the current site generates errors on the new site. My connection to the MySQL db is:

  set objConn = Server.CreateObject("ADODB.Connection")

  objConn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" & "SERVER=nn.nn.nn.nn PORT=3306; DATABASE=dbname;" & "UID=username; PWD=password; OPTION=3"

and using that I can embed SQL SELECT statements that work fine. However, when I try to do an INSERT or UPDATE the system barfs

Specifically with

sqlstr = UPDATE Emaillist SET Email='AAA@foo.com' WHERE ID = 5492

When I use the original ASP code:

objConn.Execute sqlStr

I get:

ADODB.Connection error '800a0e78'

Operation is not allowed when the object is closed.

/manage/manage.asp, line 61

If I substitute

ors.open sqlstr, objConn.ConnectionString

(which works fine with SQL SELECT statements)
the system returns:

Microsoft VBScript runtime  error '800a01a8'

Object required: ''

/manage/manage.asp, line 61

Included below is the module from which the above is taken

select case request("db")

        case "Deceased"

                fieldArr = Array("GradYear","FName","LName","BHSLName")

                goBack = "deceased.asp"

        case "Emaillist"

                fieldArr = Array("GradYear","FName","LName","BHSLName","Email")

                goBack = "emaillist.asp"

end select



if request("action") = "delete" then

        sqlStr = "DELETE FROM " & request("db") & " WHERE ID = " & request("record")

        objConn.Execute sqlStr

        response.redirect(goBack)

end if



if request("action") = "add" or request("action") = "edit" then

        'response.write "ADD"



        if request("go") = "go" then

                'response.write "GO"

                if request("action") = "add" then

                        sqlStr = "INSERT INTO " & request("db") & "("

                        for i = 0 to UBound(fieldArr)

                                sqlStr = sqlStr & fieldArr(i)

                                if i < UBound(fieldArr) then

                                        sqlStr = sqlStr & ","

                                end if

                        next

                        sqlStr = sqlStr & ") VALUES ("

                        for i = 0 to UBound(fieldArr)

                                temp = request(fieldArr(i))

                                temp = replace(temp,"'","''")

                                sqlStr = sqlStr & "'" & temp & "'"

                                if i < UBound(fieldArr) then

                                        sqlStr = sqlStr & ","

                                end if

                        next

                        sqlStr = sqlStr & ")"

                else

                        sqlStrUp = "UPDATE " & request("db") & " SET "

                        for i = 0 to UBound(fieldArr)

                                temp = request(fieldArr(i))

                                temp = replace(temp,"'","''")

                                sqlStr = sqlStr & fieldArr(i) & "='" & temp & "'"

                                if i < UBound(fieldArr) then

                                        sqlStr = sqlStr & ","

                                end if

                        next

                        sqlStr = sqlStr & " WHERE ID = " & CInt(request("record"))

                end if

                response.write "SQL: " & sqlStr

        // USE ONE OR THE OTHER OF THE NEXT TWO LINES

                'objConn.Execute sqlStr

                ors.open sqlstr, objConn.ConnectionString

                response.redirect(goBack)

        else

                if request("action") = "edit" then

                        Set ors = Server.CreateObject("ADODB.Recordset")

                        strQuery = "SELECT * FROM " & request("db") & " WHERE ID = " & Cint(request("record"))

                        'response.write strQuery

                        ors.Open strQuery, objConn.ConnectionString

                        Dim fieldValues(4)

                        for i = 0 to UBound(fieldArr)

                                'response.write "
" & i & " "

                                fieldValues(i) = ors(fieldArr(i))

                                'response.write fieldValues(i)

                        next

                end if

                response.write ""

                response.write ""

                for i = 0 to CInt(UBound(fieldArr))

                        if isArray(fieldValues) then temp = fieldValues(i)

                        response.write ""

                next

                response.write " "

                response.write ""

                if request("action") = "edit" then response.write ""

                response.write "
" & fieldArr(i) & " 
"

        end if

end if

%>

Is it possible to run ASP under LINUX

hostingcp — Wed, 07 May 2008 07:42:29 GMT

To make ASP run under Linux, PHP script files are saved as ASP extensions and are redirected to the PHP interpreter. So it looks like the server serves ASP files, but these are actually PHP scripts.

asp and SQL Server

GLT — Tue, 06 May 2008 15:45:26 GMT

Hi guys,

I was wondering if someone could help me please.
How do i query the database using ASP and Dreamweaver to return the field names of a table?

Thanks!
Any ideas greatly appreciated.

GLT

UPDATING database through textbox

yash777 — Sat, 03 May 2008 10:37:44 GMT

hello all,

i m trying to edit the values in database through textbox in ASP.

first i retrived the values from database and set those values to the value property of textboxes on the form so that user can see the old values.

now, i want him to enter new values in the same textboxes and when he click on update the new values should be updated in the database.

can any one tell what i have to do to get those new values????
when to submit the form????

Getting Started with asp.net

RandyRich — Fri, 02 May 2008 19:13:45 GMT

I'm just getting started with asp.net. Currently I'm using visual web developer express and sql server express.

I've created a small project but find when I run it in debug mode it works great. When I try to access it from another browser window I can as long as I use the same port and the sql server express is running and if I try to access it over the Internet I have nothing but trouble.

Can anyone tell me where to go from here? I'm figuring I'll need to purchase a regular copy of visual studio and sql server, but I need someone to point me in the right direction.

For Loop

pit1031 — Fri, 02 May 2008 17:46:20 GMT

How to I rearrange this so that only distance less than or equal to 25 are displayed?

For i = 1 to 20

               Display(rs)

               rs.MoveNext

               If rs.Eof Then Exit For

               If rs("distance")>25 Then Exit For

            Next

Please help me get started

Prabakar — Fri, 02 May 2008 14:27:10 GMT

I know nothing about ASP and I am intrested in learning it.
Please help me find a good means to start.

What is client side vbscript?

edmicman — Thu, 01 May 2008 19:25:26 GMT

I've just inherited some classic ASP code that apparently uses client side vbscript. The bulk of our code is classic ASP with server side VBScript, but I've always done any client side with Javascript, since as long as I can remember. I didn't even know there was client-side vbscript until the inherited site broke and wouldn't work because I was using Firefox.

Granted I'm relatively young I guess, but I've always tried to make my web application code as basic and browser agnostic as possible. I'll test it on a variety of browsers and try not to use any browser-specific functionality. This inherited code seems to be ripe with ActiveX controls and now this vbscript stuff. How pervasive is this? Can client vbscript be converted to javascript fairly easily? Do people still even actually develop with client vbscript functions?!? Anyone have any experience with this? Thanks!


By selecting this link you are requesting to stop receiving emails from the Association.
Member #<%Request.QueryString["donor"].ToString().Substring(1,9)%>	<%(Request.QueryString("donor").ToString().Substring(10,4))%>

Would you like to continue receiving emails from us?
"> Yes, continue to send me emails. No, remove me from your email list.

	" response.write "" if request("action") = "edit" then response.write "" response.write "
" & fieldArr(i) & "