Speciel Order-funktion

Hele koden kan ses her - for at give et lidt bedre overblik. (Den fungerer som den skal, bortset fra det der med apostrofferne!

<%
strSQL1 = "SELECT * FROM tabel WHERE NameID='none' Order by Code Asc"
Set rs = Conn.Execute(strSQL1)

Do While Not rs.EOF
  Response.write rs("Code") & ";URL=http://www.minside.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
%>

NameID og Code felterne er begge tekst-format.

Hvis det ikke er alle orderne der indeholder appostroffer så tror jeg ikke det kan lade sig gøre i ren SQL. Så skal du anvende en bobbel-sortering!

Men hvorfor er det lige at det er nødvendigt at de appostroffer er med?

Den rimeligste måde, synes jeg, er at du tilføjer yderligere et
felt. Deri indsætter du den tekst, der skal sorterets efter, som
du så laver med ASP.

  abekat bliver bare til abekat
  'hundestejler' bliver til hundestejler

Så kan bruge ORDER BY på det nye felt.

Apostrofferne er nødvendige, da de visuelt skal gøre det ud for gåseøjne ("), og koden er integreret i et java-script som ikke vil tolerere ".

Erikjacobsen's forslag er måske den eneste mulighed!

alt efter hvilken database du bruger kan du "replace" ' med ingenting...

REPLACE ( 'string_expression1' , 'string_expression2' , 'string_expression3' )

fx

strSQL1 = "SELECT REPLACE(feltmeddimser,'''','') FROM tabel WHERE NameID='none' Order by Code Asc"
Set rs = Conn.Execute(strSQL1)

;)

det jeg skrev er til microsoft sqlserver

Jeg bruger følgende kode til at åbne databasen:

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

så det er ikke sqlserver, vel?

hvis teksten i feltet brgynder med to ' og ikke " så kan du bruge replace:
<%

Set Conn=Server.CreateObject("ADODB.Connection")
Set rs=Server.CreateObject("ADODB.recordset")
Conn.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="&server.Mappath("streetracers.dk.mdb"))

strSQL1 = "SELECT * FROM tabel WHERE NameID='none' Order by Code Asc"
rs.Open strSQL1, conn, 1, 3

do while not rs.EOF
Response.Write replace(rs("code"),"''","")%><br>
<%
rs.MoveNext
loop%>

Efter lidt fiks-fakserier - meget banden og svovlen - ser det ud til at virke med hosseins ide - derfor point til ham!

Hvordan får du den til at sortere korrekt (som du beskriver i spørgsmålet)
med hosseins idé ?

Det troede jeg bare jeg havde fået den til... Jeg kiggede ikke ordentligt efter i resultatet - det virker ikke... Den skriver det på en mærkelig måde, flere gang efter hinanden. Jeg har opgivet, og benytter mig af erik's ide.
Da jeg desværre allerede har givet point, opretter jeg et nyt spørgsmål i denne katagori, så erikjacobsen kan få sine point, med titlen Point til erikjacobsen

Hvad mener du med: "Den skriver det på en mærkelig måde, flere gang efter hinanden."?
Den kode som jeg skrev til dig, har jeg selv testet, og outputet er uden ' og sorteres faldende.

Du skal ikke oprette den slags støjende spørgsmål - jeg frafalder point,
bare du får løst dit problem.