Avatar billede kkd Nybegynder
04. maj 2003 - 13:31 Der er 2 kommentarer og
1 løsning

Ændre det sidste Response i en løkke!

Hej...

Hvordan får jeg efterfølgende script, til at ændre det sidste udskrevne svar fra
Response.write rs("latinnavn") & ";URL=http://www.blablabla.dk/side.asp?ID" & rs("ID") & ";TARGET=mainFrame|" & vbCrLf & ""
til
Response.write rs("latinnavn") & ";URL=http://www.blablabla.dk/side.asp?ID" & rs("ID") & ";TARGET=mainFrame"

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/db/database.mdb")
Conn.Open DSN

strSQL = "SELECT * FROM tabel WHERE opr='opr1'"
Set rs = Conn.Execute(strSQL)
Do
Response.write rs("latinnavn") & ";URL=http://www.blablabla.dk/side.asp?ID" & rs("ID") & ";TARGET=mainFrame|" & vbCrLf & ""
rs.MoveNext
Loop While Not rs.EOF
Conn.Close
Set Conn = Nothing
%>
Avatar billede eagleeye Praktikant
04. maj 2003 - 13:38 #1
Det er en god ide at bruge Do  While not rs:EOF og ikke vendte med at tjekke på rs.EOF tilsidst hvis du da man altid vil komme ind i do selvom recordsetet er tomt.

Når til spørgsmålet du kan udskrive det som altid skal udskrives og så lave tjek på rs.EOF og udsklrive de som kan skal udskrives når der er flere records. Så dit loop bliver:


Do While Not rs.EOF
  Response.write rs("latinnavn") & ";URL=http://www.blablabla.dk/side.asp?ID" & rs("ID") & ";TARGET=mainFrame|"

  rs.MoveNext
  if not rs.EOF then
    'Bliver ikke udskrevet ved sidste record
    Response.write vbCrLf
  end if
Loop
Avatar billede kkd Nybegynder
04. maj 2003 - 13:41 #2
Jeg vil også gerne have fjernet den sidste | efter mainFrame i den sidste record!
Avatar billede eagleeye Praktikant
04. maj 2003 - 13:42 #3
Hov, ja jeg fik ikke | med ned, jeg fik kun flyttet vbCrLf, den kan bare flyttes ned til hvor vbCrLf udskrives:


Do While Not rs.EOF
  Response.write rs("latinnavn") & ";URL=http://www.blablabla.dk/side.asp?ID" & rs("ID") & ";TARGET=mainFrame"

  rs.MoveNext
  if not rs.EOF then
    'Bliver ikke udskrevet ved sidste record
    Response.write "|" & vbCrLf
  end if
Loop
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester