Søg
Avatar billede dragnor Juniormester
31. januar 2007 - 11:23 Der er 7 kommentarer og
1 løsning

vb array og asp

Hej eksperter

jeg har lavet følgende i en asp fil. Dvs. jeg henter en masse poster ud fra en database og ligger dem ind i en arrRecords (array).

<%
    '--- ÅBNER OBJECTER
    Set oConn        = CreateObject("ADODB.Connection")
    set oRs            = CreateObject("ADODB.recordset")
    Set objFs        = CreateObject("Scripting.FileSystemObject")


    oConn.Open Application("DSN")
   
    Dim strSQL
    Dim oRs
    Dim arrRecords
    Dim status
    Dim sagnr
   
    strSQL = "select SagsNummer from grunde where sagstatus = 1"
       
    set oRs = oConn.Execute(strSQL)
    if oRs.eof = false then
        arrRecords = oRs.GetRows()
    End if

    Set oRs = nothing
%>


jeg ønsker så at den skal teste for om indholdet i min tekstbox "Sag" findes i mit array før den laver nedenstående handling.

<INPUT onkeyup="if(event.keyCode == 13){window.open('/moduls/Fremvisning/default.asp?case=' + window.document.getElementById('Sag').value, 'Fremvisning','resizable=no,scrollbars=yes,status=no,left=2,top=2,width=470,height=700');}" type=text maxLength=63 size=34 name=Sag><br /><br /></TD>

kan nogen hjælpe mig med det?
Avatar billede cpufan Juniormester
31. januar 2007 - 11:52 #1
<%fundet = false
for i = 0 to Ubound(arrRecords)
if arrRecords(i) = request("Sag") then fundet = true
next

if fundet then%>
<INPUT onkeyup="if(event.keyCode == 13){window.open('/moduls/Fremvisning/default.asp?case=' + window.document.getElementById('Sag').value, 'Fremvisning','resizable=no,scrollbars=yes,status=no,left=2,top=2,width=470,height=700');}" type=text maxLength=63 size=34 name=Sag><br /><br /></TD>
<%end if%>
Avatar billede dragnor Juniormester
31. januar 2007 - 11:57 #2
jeg får en

Subscript out of range

/fremvisning.asp, line 84

linje 84 er :  if arrRecords(i) = request("Sag") then fundet = true
Avatar billede cpufan Juniormester
31. januar 2007 - 12:10 #3
for i = Lbound(arrRecords) to Ubound(arrRecords)
if arrRecords(i) = request("Sag") then fundet = true
next
Avatar billede dragnor Juniormester
31. januar 2007 - 12:48 #4
Jeg har været nødsaget til st skrive det sådan her ellers kommer tekstboksen og knappen ikke med, men det virker stadigvæk ikke.

<%fundet = false
                        for i = Lbound(arrRecords) to Ubound(arrRecords)
                        if arrRecords(i) = request("Sag") then fundet = true
                        next
                    %>
                    <TR>
                        <TD valign=top width="20%"><p>Sagsnummer</TD>
                        <TD valign=top colSpan=3 width="90%">
                        <INPUT type=text maxLength=63 size=34 name=Sag id=1><br /><br /></TD>
                        <%if fundet = true then%>
                        <INPUT id=1 onkeyup="if(event.keyCode == 13){window.open('/moduls/Fremvisning/default.asp?case=' + window.document.getElementById('Sag').value, 'Fremvisning','resizable=no,scrollbars=yes,status=no,left=2,top=2,width=470,height=700');}" ><br /><br /></TD>
                        <%end if%>
                    </TR>
                   
                    <TR>                       
                        <TD >
                        <INPUT type=image src="/images/buttons/sog_button.gif" border=0 name=Sog id=Image1></TD>
                        <%if fundet = true then%>
                        <INPUT id=2 onclick="window.open('/moduls/Fremvisning/default.asp?case=' + window.document.getElementById('Sag').value, 'Fremvisning','resizable=no,scrollbars=yes,status=no,left=2,top=2,width=470,height=700');"></TD>
                        <%end if%>
                    </TR>
Avatar billede cpufan Juniormester
31. januar 2007 - 13:00 #5
får du fejl?

eller hvad sker der?
Avatar billede dragnor Juniormester
31. januar 2007 - 13:01 #6
Problemet er jo at den først skal køre det her:

<%fundet = false
                        for i = Lbound(arrRecords) to Ubound(arrRecords)-1
                        if arrRecords(i) = request("Sag") then fundet = true
                        next
                    %>

Når der enten trykkes på enter eller med musen på knappen.
<INPUT id=1 onkeyup=
Avatar billede dragnor Juniormester
31. januar 2007 - 13:04 #7
lidt ligesom når jeg trykker på enter så
onkeyup="if(event.keyCode == 13){window.open('/moduls/Fremvisning/default.asp?case=' + window.document.getElementById('Sag').value, 'Fremvisning','resizable=no,scrollbars=yes,status=no,left=2,top=2,width=470,height=700');}" ><br /><br /></TD>

men den skal jo så køre det her
<%fundet = false
                        for i = Lbound(arrRecords) to Ubound(arrRecords)-1
                        if arrRecords(i) = request("Sag") then fundet = true
                        next
                    %>

inden den kører

<INPUT id=1 onkeyup="if(event.keyCode == 13){window.open('/moduls/Fremvisning/default.asp?case=' + window.document.getElementById('Sag').value, 'Fremvisning','resizable=no,scrollbars=yes,status=no,left=2,top=2,width=470,height=700');}" ><br /><br /></TD>
Avatar billede dragnor Juniormester
31. januar 2007 - 13:05 #8
Problemet er jo at den køre for tideligt
<%fundet = false
                        for i = Lbound(arrRecords) to Ubound(arrRecords)-1
                        if arrRecords(i) = request("Sag") then fundet = true
                        next
                    %>
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
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Persits.Upload Af bsn i ASP 8 17/09/202611:37 I dag 10:39
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 19:52 Libre office skriveprogram Af Frank i Office & Kontorpakker
17/0914:55 Hente WordPad til Windows 11 Af Strawberry i Andet software
17/0911:37 Persits.Upload Af bsn i ASP
16/0918:13 oprette et installationsmedie Af Malm i Windows
16/0913:11 Adapterstik stik på ladekabel til USB-C Af ErikHg i Andet software
White papers
Flere white papers »