select distinct sql

Hov glemte lige fejlmeldingen:

Fejltype:
Der opstod en Microsoft VBScript-kørselsfejl (0x800A01A8)
Et objekt er obligatorisk: 'rs2'
/Oz6hr/pages/dxlog/EDR30mhz.inc, line 386

Ved ikke om det er det, men skal der stå Contest og ikke Content ?

/Goose

Jep...Den er god nok. Der skal stå Contest.

Jeg kender intet til ASP, men mangler du ikke komma før rs2.open?

Det er en ny linie. Men ellers kunne det have været et godt bud

Hvor kommer rs2 fra ?

RS2 er det recordset der er defineret i strSQL2. Det er fordi jeg har mere end et racordset kørende.

strSQL2 er bare en streng. Hvor kommer rs2 fra?

Umiddelbart ser det ud til at RS2 aldrig er blevet defineret. Er du sikker på at du har en linie ala det her:

Set RS2 = Server.CreateObject("ADODB.RecordSet")

OK. Kan godt se der mangler lidt info derfor kommer hele smørren med 3 SQL'er. Det er normalt måden jeg laver det på. Har lige prøver at sætte den til en normal RS og ikke rs2. Hvilket bevirker at den virker men ikke de andre. Her er hvad der er skrevet . forklare måske lidt:

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../db/Dxlog.mdb")
Conn.Open DSN
strSQL2 ="SELECT count(*) FROM dxlog where Contest <> '' AND Dato=#" & date & "#"
Set rs2 = Conn.Execute(strSQL2)
strSQL3 ="SELECT * FROM dxlog where Contest <> '' AND Dato=#" & date & "#"
Set rs3 = Conn.Execute(strSQL3)
strSQL ="SELECT DISTINCT notat FROM [dxlog] where Contest <> '' AND Modulation='CW' AND Dato=#" & date & "#"
RS.OPEN STRsql, CONN, 3, 1

Når du bruger RS.Open skal dit RecordSet-object også altid være instantieret. Det er det jo ikke i dette tilfælde.

Så prøv at rette det til:

Set Conn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.RecordSet")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../db/Dxlog.mdb")
Conn.Open DSN
strSQL2 ="SELECT count(*) FROM dxlog where Contest <> '' AND Dato=#" & date & "#"
Set rs2 = Conn.Execute(strSQL2)
strSQL3 ="SELECT * FROM dxlog where Contest <> '' AND Dato=#" & date & "#"
Set rs3 = Conn.Execute(strSQL3)
strSQL ="SELECT DISTINCT notat FROM [dxlog] where Contest <> '' AND Modulation='CW' AND Dato=#" & date & "#"
RS.OPEN STRsql, CONN, 3, 1

...ved dine andre recordsets har du jo "Set RSx = ...", så de instantieres på samme tidspunkt som de fyldes med data. Sådan fungerer RS.Open desværre ikke :)

Kanon. Det virkede. Der er vist lang vej endnu inden jeg kan skrive nørd på mit visitkort.... HE..HE.

Lægger du lige et svar.
Har du tid til et lille tillagsspørgsmål ?

Hvis et RS skal bestå af tre tal men der kun er et i DB. FX. i DB står 22 men rs skal retunere 022. Eller 5 bliver til 005. Findes der en kommando til det.

Ikke umiddelbart, men man kan lave en funktioner der returnerer det. Kan da lige hurtigt smække noget sammen til dig...

Function doZero(data)
    If len(data) < 3 Then
        If len(data) = 2 Then
            doZero = "0" & data
        ElseIf len(data) = 1 Then
            doZero = "00" & data
        Else
            doZero = "000"
        End If
    Else
        doZero = data
    End If
End Function

Værsgo :)

Tak. Skal funktionen kaldes på en måde`?

Hvis jeg skriver Response.write rs3("qsonr") retunere den 7

Ja, du skal skrive:

Response.Write doZero(rs3("qsonr")). Så returnerer den 007.

Du kan vist nøjes med:

function doZero(data)
if CDbl(data) = 0 then data = "000"
if CDbl(data) > 0 and CDbl(data) < 10 then data = "00" & data
if CDbl(data) > 9 and data < 100 then data = "0" & data
doZero = data
end function

hmm.. måske burde denne function giv et ukorrekt resultat, da data-værdien før anden og tredje IF-sætning..

Men hverken spotguns script, eller mit script, tager højde for negative tal (f.eks. -5, -22). Man skal lige huske, at "-" optager 1 tegn i længden.. dvs "-5" er 2 tegn, "-22" er 3 tegn..

Hvis jeg ville check længden (som spotgun gjorde), ville jeg nok gøre sådan her:

function doZero(data)
if len(data) = 1 then
    data = "00" & data
elseif len(data) = 2 then data = "0" & data
end if
doZero = data
end function

eller sådan her:

function doZero(data)
select case len(data)
case 1
  data = "00" & data
case 2
  data = "0" & data
end select
doZero = data
end function

/theSurfer