Comma Replacing - ASP Free

ASP Free Forums Sponsor:

January 26th, 2004, 08:18 AM

janusz_monkey

Contributing User

Join Date: Oct 2003

Location: Birmingham, UK

Posts: 56

Time spent in forums: < 1 sec
Reputation Power: 7

Comma Replacing

PHP Code:


		
			
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<!--#include file="Connections/TEST.asp" -->

<%

Dim Books

Dim Books_numRows



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

Books.ActiveConnection = MM_TEST_STRING

Books.Source = "SELECT * FROM contacts"

Books.CursorType = 0

Books.CursorLocation = 2

Books.LockType = 1

Books.Open()



Books_numRows = 0

%>

<%

Dim Repeat1__numRows

Dim Repeat1__index



Repeat1__numRows = -1

Repeat1__index = 0

Books_numRows = Books_numRows + Repeat1__numRows

%>

<HTML>

<HEAD>

<TITLE>Book Lists</TITLE>

<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">

</HEAD>



<BODY>

<P><STRONG>A List of Books</STRONG></P>

<TABLE WIDTH="75%" BORDER="0" CELLSPACING="2" CELLPADDING="2">

    <TR>

        <TD WIDTH="25%">Title</TD>

        <TD>Description</TD>

        <TD WIDTH="25%">URL</TD>

      </TR>

    <% 

        While ((Repeat1__numRows <> 0) AND (NOT Books.EOF)) 

    %>

    <TR>

           <TD WIDTH="25%"><%=(Books.Fields.Item("BookTitle").Value)%></TD>

           <TD><%=(Books.Fields.Item("BookDescription").Value)%></TD>

           <TD WIDTH="25%"><%=(Books.Fields.Item("Links").Value)%></TD>

    </TR>

    <% 

  Repeat1__index=Repeat1__index+1

  Repeat1__numRows=Repeat1__numRows-1

  Books.MoveNext()

Wend

%>



</TABLE>

</BODY>

</HTML>

<%

Books.Close()

Set Books = Nothing

%>

I have the above code... the output is rows from the DB as wxpected, but the entries are:

,one,two,three,four

and so on,

How do I get rid of the commas?

Janusz

January 26th, 2004, 09:02 AM

Memnoch

Unholy Moderator

ASP Free God 15th Plane (12000 - 12499 posts)

Join Date: Oct 2003

Location: In hell, where did you think?

Posts: 12,024

Time spent in forums: 3 Weeks 6 Days 12 h 21 m 9 sec
Reputation Power: 628

you can do it 2 different ways

Code:

values = rs("fieldName")

Response.write(removeCommas(values))

Function removeCommas(value)
   value = Replace(value, ",", "")

   removeCommas = value
End Function

Code:

dbValues = rs("fieldName")

values = Split(dbValues, ",")

For i = 0 To UBound(values)
   Response.write(values(i) & "<br>")
Next

January 26th, 2004, 09:07 AM

janusz_monkey

Contributing User

Join Date: Oct 2003

Location: Birmingham, UK

Posts: 56

Time spent in forums: < 1 sec
Reputation Power: 7

cool...

but where in the original code would it go - newbie alert!

Janusz

January 26th, 2004, 09:11 AM

janusz_monkey

Contributing User

Join Date: Oct 2003

Location: Birmingham, UK

Posts: 56

Time spent in forums: < 1 sec
Reputation Power: 7

Well...

PHP Code:


		
			
function displaylinks()



sqlstring= "SELECT Links, BookTitle, BookDescription FROM contacts WHERE Ref = "& Session("UserRef") &" "

SET RS = Con.Execute( sqlString )  

Links2 = RS("Links")

Title2 = RS("BookTitle")

Description2 = RS("BookDescription")

%>



<%IF NOT IsNull(Links2)  THEN



arrLinks = Split(Links2,",")

arrBookTitle = Split(Title2,",")

arrBookDescription = Split(Description2,",")



For i = LBound(arrLinks)+1 to UBound(arrLinks)%>



<A target="_blank" href="<%=arrLinks(i)%>">Amazon Link:</A> <FONT size="2">"<%=arrBookTitle(i)%>"</FONT><BR>

<FONT SIZE="2"><STRONG>Description: </STRONG><%=arrBookDescription(i)%></FONT><BR>

<BR><%

Next

%>



</p>



<%end if



end function

I have the above for retrieving the row for the current user - how can I implement a loop in there so it'll go through all members?

TIA

January 26th, 2004, 09:48 AM

Memnoch

Unholy Moderator

Join Date: Oct 2003

Location: In hell, where did you think?

Posts: 12,024

Time spent in forums: 3 Weeks 6 Days 12 h 21 m 9 sec
Reputation Power: 628

you can combine them and do this

Code:

<%If NOT IsNull(Links2)  THEN
Response.write(splitValues(RS("Links")))
Response.write(splitValues(RS("BookTitle")))
Response.write(splitValues(RS("BookDescription")))
%>
Function splitValues(value)
   values = Split(value, ",")

   For i = 0 To UBound(values)
      newValues = newValues & values(i) & "<br>"
   Next

   splitValues = newValues
End Function

Viewing: ASP Free Forums > Programming > ASP Development > Comma Replacing

« Previous Thread | Next Thread »

Thread Tools	Search this Thread
Email this Page	Search this Thread: Advanced Search
Display Modes	Rate This Thread
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode	Rate This Thread:

Posting Rules
You may not post new threads You may not post replies You may not post attachments You may not edit your posts vB code is On Smilies are On [IMG] code is On HTML code is Off

View Your Warnings | New Posts | Latest News | Latest Threads | Shoutbox

Forum Jump

Free IT White Papers!

Create the Optimal Architecture for your Critical Applications
Warburton's the largest independently owned bakery in the UK faced a number of difficult challenges in providing the most robust yet efficient IT infrastructure for their organization's success. IBM's services combined with their xSeries servers created the perfect platform for their SAP environment with sufficient flexibility, and did so in very time effective fashion.

Five Best Practices for Deploying a Successful Service-Oriented Architecture
This white paper describes the benefits you can expect with SOA, and how IBM can help take your business there.

Gartner Magic Quadrant for Application Delivery Controllers
Gartner summarizes its view on Application Delivery Controllers, evaluates strengths and weaknesses of solutions, and provides Magic Quadrant reporting for a quick comparison across all vendors. Learn from Gartner how you can benefit from an all-in-one device like Citrix NetScaler that delivers the highest levels of availability, performance and security.

Knowledge is Power
What you don't know can hurt you, and is likely costing you money and increasing your security risks during an era of scarce resources. This white paper proposes six key strategies that enterprise security managers can use to improve their network defense posture.

Rationalizing the Multi-Tool Environment
The rationalized multi-tool approach is flexible, scalable and cost effective. It provides the necessary input to the IT service management business processes. It preserves prior investments in monitoring tools, empowers technologists to select the best tools with which to do their jobs, and enhances effective response to incidents.

More Free IT White Papers!