Fjern komma til sidst i streng

"<%=(Recordset2.Fields.Item("tblFORSIDEBAGGRUND").Value)%>",

<%
lngLength = Len(Recordset2.Fields.Item("tblFORSIDEBAGGRUND").Value) -1
strStreng = Left(Recordset2.Fields.Item("tblFORSIDEBAGGRUND").Value,lngLength)
%>

//>Rune

Så kan du så udskrive din streng med:

<%
lngLength = Len(Recordset2.Fields.Item("tblFORSIDEBAGGRUND").Value) -1
strStreng = Left(Recordset2.Fields.Item("tblFORSIDEBAGGRUND").Value,lngLength)
Response.Write(strStreng)
%>

//>Rune

Den indsætter jo ikke komma imellem alle mine records.

Den opbygges - " - sti - " - , - " - sti - " .....

Altså der skal være komma mellem alle records og komma er ikke pladseret mellem "", men udenfor "",

Hvis du bare skal fjerne det sidste tegn, kan du gøre sådan:

streng = "<%=(Recordset2.Fields.Item("tblFORSIDEBAGGRUND").Value)%> %>",

streng = left(streng, len(streng) -1)

Det kan dog godt være det giver lidt problemer med ASP tegnene.

Hvordan skal det stå?

<%
streng = "<%=(Recordset2.Fields.Item("tblFORSIDEBAGGRUND").Value)%> %>",

streng = left(streng, len(streng) -1)
%>

Eller hvordan?

Hele koden ser pt. således ud:

<script>
billeder = new Array(<%
While ((Repeat1__numRows <> 0) AND (NOT Recordset2.EOF))
%>"<%=(Recordset2.Fields.Item("tblFORSIDEBAGGRUND").Value)%>", <%
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  Recordset2.MoveNext()
Wend
%>);
tilf = Math.floor(Math.random() * billeder.length);
document.write("<td height='298' width='780' background='" + billeder[tilf] + "'>");
</script>

Ja, hvis man kan det, jeg er ikke sikker på om de "<%" tegn kan stå i en streng.

Fungerer ikke!

hmm...

Prøv at skrive:

<%
streng = "'=(Recordset2.Fields.Item('tblFORSIDEBAGGRUND').Value)','"

streng = left(streng, len(streng) -1)
%>

og lav en response.write på den for at se resultatet...

Den finder intet i min array ved den kommando.

Resultatet bliver når jeg siger vis kilde:

=(Recordset2.Fields.Item('tblFORSIDEBAGGRUND').Value)','=(Recordset2.Fields.Item('tblFORSIDEBAGGRUND').Value)','=(Recordset2.Fields.Item('tblFORSIDEBAGGRUND').Value)','=(Recordset2.Fields.Item('tblFORSIDEBAGGRUND').Value)',

Hvor det burde være:
"picture1.jpg","picture2.jpg","picture3.jpg","picture4.jpg"

Øhh hvad er det LIGE der er galt med min kode???

//>Rune

Dit spørgsmål var: "Hvordan får jeg det sidste komma fjernet?"

Det er det min løsning gør. At du ikke er finder noget i dit array er jo et helt andet problem.

Ja, men det skal jo alt sammen virke sammen.

chrisrj> Øhh, min løsning var vidst den samme som din?! -Eller det mener du måske ikke?

//>Rune

mit_navn_er> Nej, kun ét spørgsmål pr. oprettet spørgsmål! -Det er reglerne!

//>Rune

I kan da bare få nogle flere point, hvis I kan løse mit problem!

Altså det var det sidste komma i dit recordset du vil ha' fjernet am i right?

<%
lngLength = Len(Recordset2.Fields.Item("tblFORSIDEBAGGRUND").Value) -1
strStreng = Left(Recordset2.Fields.Item("tblFORSIDEBAGGRUND").Value,lngLength)
Response.Write(strStreng)
%>

Se lige om det virker, hvis ikke så sig lige til, sig hvad den kommer med at fejl, osv!

//>Rune

medions -> Det var henvendt til mit_navn_er. Og ja, det er da nok rigtigt, men man har jo hver sin måde at løse problemerne på. :)

Den virker fint - pånær at mine records er billedefiler - billede.jpg - og din kode sletter det sidste g i jpg. Og den sætter ikke et " ind efter hver filnavn og heller ikke et komma.

medions -> Det som jeg har opfattet han(hun?) vil er at fjerne kommaet EFTER "

"<%=(Recordset2.Fields.Item("tblFORSIDEBAGGRUND").Value)%> %>",
--------------------------------------------------------------^

Sådan circa... :)

chris> Det her er en fejlmeddelse:

"<%=(Recordset2.Fields.Item("tblFORSIDEBAGGRUND").Value)%> %>",
--------------------------------------------------------------^

Den hentyder til at afslutningen er forkert! Man skal gøre sådan her:

<%=(Recordset2.Fields.Item("tblFORSIDEBAGGRUND").Value)%> %>

I din efterligning af min gør du sådan her:
<%
streng = "'=(Recordset2.Fields.Item('tblFORSIDEBAGGRUND').Value)','"

streng = left(streng, len(streng) -1)
%>

-det er forkert, du skal gøre sådan her:

<%
streng = Recordset2.Fields.Item("tblFORSIDEBAGGRUND").Value)

streng = left(streng, len(streng) -1)
%>

//>Rune

Rune det virker på samme måde som før. Jeg har fjernet det overflødige %> - forlængst!

mit_navn_er ->underskyld jeg spammer...

medions -> den "fejlmeddelse" er ikke en fejlmeddelse, det var bare et forsøg på at vise hvilket tegn "mit_navn_er" ville have fjernet....

Og desuden har jeg aldeles ikke lavet en "efterligning" af dit forslag!

Det er taget fra min egen kode!

chrisrj> Jeg undskylder, jeg formulerede mig forkert, hvad jeg alt i alt mener er bare at din kode er virkemæssigt den samme som min!

mit_navn_er> Øhh, du er nødt til at forklare lidt hvad det er der præcist er galt nu! -for jeg forstår dig ik' længere!

//>Rune

medions -> ok, så trækker jeg mine udråbstegn tilbage. ;)

Koden skal se således ud:

<script>
billeder = new Array("billede1.jpg","billede2.jpg","billede3.jpg");
tilf = Math.floor(Math.random() * billeder.length);
document.write("<td height='298' width='780' background='" + billeder[tilf] + "'>");
</script>

Men det jeg kan få den til er:

<script>
billeder = new Array("billede1.jpg","billede2.jpg","billede3.jpg",);
tilf = Math.floor(Math.random() * billeder.length);
document.write("<td height='298' width='780' background='" + billeder[tilf] + "'>");
</script>

Kommaet til sidst i new array skal fjernes.

De kode jeg har brugt til det sidst resultat ser således ud:

<script>
billeder = new Array(<%
While ((Repeat1__numRows <> 0) AND (NOT Recordset2.EOF))
%>"<%=(Recordset2.Fields.Item("tblFORSIDEBAGGRUND").Value)%>", <%
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  Recordset2.MoveNext()
Wend
%>);
tilf = Math.floor(Math.random() * billeder.length);
document.write("<td height='298' width='780' background='" + billeder[tilf] + "'>");
</script>

Hvis jeg var dig, ville jeg først ligge billederne ind i en streng og derefter udskrive den streng.

Hvordan?

noget i stil med:

streng = billede1 + billede2 + billede3 ... ovs. ovs.

eller hvis du kører i en løkke:

streng = ""
i = 1
do while etellerandet

streng = streng + billede & i

loop

det virker sikkert ikke hvis copy/paste'r det, men det er på den måde det gøres. :)

Nu er jeg ikke så stærk i det med strenge - så jeg vil gerne have et fuldt eksempel på hvordan jeg skal sætte det ind?

så må du vise noget mere kode - bla. der hvor du conneter til dv'en

Jeg mener blot skal det sættes ind med <% %> og skal det ligge i head eller inden i koden.

<%
Dim Recordset2__MMColParam
Recordset2__MMColParam = "1"
If (Request.QueryString("VIRKSOMHED") <> "") Then
  Recordset2__MMColParam = Request.QueryString("VIRKSOMHED")
End If
%>
<%
Dim Recordset2
Dim Recordset2_numRows

Set Recordset2 = Server.CreateObject("ADODB.Recordset")
Recordset2.ActiveConnection = MM_cforsidecontent_STRING
Recordset2.Source = "SELECT * FROM tblFORSIDEBAGGRUND WHERE tblVIRKSOMHED = '" + Replace(Recordset2__MMColParam, "'", "''") + "'"
Recordset2.CursorType = 0
Recordset2.CursorLocation = 2
Recordset2.LockType = 1
Recordset2.Open()

Recordset2_numRows = 0
%>

jeg kan ikke liige gennemskue din kode, og jeg har desværre ikke tid til at sætte mig ind i den - ikke før næste uge. Beklager!! :(

Det der er ihvertfald ikke hele koden, jeg er nødt til at ha' det hele!

//>Rune

<SCRIPT>
img = new Image;

function changeImg(imgName, target) {
  img.src = imgName;
  document[target].src = img.src;
}

</SCRIPT>

?

Det er det eneste jeg kunne forstille mig jeg mangler, at vise af de relevante koder.

Jamen i den her kode har du jo overhovedet ikke ngoet med komma at gøre!

<%
Dim Recordset2__MMColParam
Recordset2__MMColParam = "1"
If (Request.QueryString("VIRKSOMHED") <> "") Then
  Recordset2__MMColParam = Request.QueryString("VIRKSOMHED")
End If
%>
<%
Dim Recordset2
Dim Recordset2_numRows

Set Recordset2 = Server.CreateObject("ADODB.Recordset")
Recordset2.ActiveConnection = MM_cforsidecontent_STRING
Recordset2.Source = "SELECT * FROM tblFORSIDEBAGGRUND WHERE tblVIRKSOMHED = '" + Replace(Recordset2__MMColParam, "'", "''") + "'"
Recordset2.CursorType = 0
Recordset2.CursorLocation = 2
Recordset2.LockType = 1
Recordset2.Open()

Recordset2_numRows = 0
%>

//>Rune

I min kommentar 25/10-2002 08:03:24 kan du se alle de koder jeg mener der skal bruges. Og som styrer det.

Ex. 1 er hvordan det skal se ud.

Ex. 2 er hvordan det ser ud.

og Ex. 3 er koden jeg har brugt til at få resultatet i Ex. 2

Ok, der hvor du får et komma for meget! -Prøv lige at giv mig det!

//>Rune

Øverste eksempel er det der står i kildekoderne. Nederste eksempel er den kode du bad om.


<script>
billeder = new Array("billede1.jpg","billede2.jpg","billede3.jpg",);
tilf = Math.floor(Math.random() * billeder.length);
document.write("<td height='298' width='780' background='" + billeder[tilf] + "'>");
</script>

Kommaet til sidst i new array skal fjernes.

De kode jeg har brugt til det sidst resultat ser således ud:

<script>
billeder = new Array(<%
While ((Repeat1__numRows <> 0) AND (NOT Recordset2.EOF))
%>"<%=(Recordset2.Fields.Item("tblFORSIDEBAGGRUND").Value)%>", <%
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  Recordset2.MoveNext()
Wend
%>);
tilf = Math.floor(Math.random() * billeder.length);
document.write("<td height='298' width='780' background='" + billeder[tilf] + "'>");
</script>

<%
  lngLength = Len(Recordset2.Fields.Item("tblFORSIDEBAGGRUND").Value)-1
  strConverted = Left(Recordset2.Fields.Item("tblFORSIDEBAGGRUND").Value,lngLength)
%>
<script>
billeder = new Array(<%
While ((Repeat1__numRows <> 0) AND (NOT Recordset2.EOF))
%>"<%= strConverted %>", <%
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  Recordset2.MoveNext()
Wend
%>);
tilf = Math.floor(Math.random() * billeder.length);
document.write("<td height='298' width='780' background='" + billeder[tilf] + "'>");
</script>

Prøv lige med denne!

//>Rune

Dette er resultatet. Det sidste komma er ikke væk!

<script>
billeder = new Array("engros1.jp", "engros1.jp", "engros1.jp", "engros1.jp", );
tilf = Math.floor(Math.random() * billeder.length);
document.write("<td height='298' width='780' background='" + billeder[tilf] + "'>");
</script>

*G* Ok, så prøver vi lige med denne:


<%
strPics = ""
While NOT Recordset2.EOF
    strPics = strPics & """ Recordset2.Fields.Item("tblFORSIDEBAGGRUND").Value) & ""","
  Recordset2.MoveNext()
Wend

    lngLength = Len(Pics) -1
    strPics = Left(strPics, lngLength)
%>


<script>
    billeder = new Array(<%= strPics %>);
    tilf = Math.floor(Math.random() * billeder.length);
    document.write("<td height='298' width='780' background='" + billeder[tilf] + "'>");
</script>

//>Rune

Virker ikke! Den brokker sig over tblFORSIDEBAGGRUND i 3. linje. Pg.a. "erne.

Prøv at bruge ' istadet for "

<%
strPics = ""
While NOT Recordset2.EOF
    strPics = strPics & """" Recordset2.Fields.Item("tblFORSIDEBAGGRUND").Value) & """","
  Recordset2.MoveNext()
Wend

    lngLength = Len(Pics) -1
    strPics = Left(strPics, lngLength)
%>


<script>
    billeder = new Array(<%= strPics %>);
    tilf = Math.floor(Math.random() * billeder.length);
    document.write("<td height='298' width='780' background='" + billeder[tilf] + "'>");
</script>

prøv nu!

//>Rune

???

Er det ikke på tide at afslutte dette spg???