hjælp..?

Det virker med access2000 db i PWS, men efter jeg har uploadet det til server og konverteret db om til 97 virker det ikke mere...
Jeg ved ikke om det har noget med det at gøre...??

Do Until Godkendt > UBound(test, 1)

skal da kun være UBound(test)

prøver lige

Det er ik det...

Har du kontrolleret at UBOUND(Test, 1) ikke er lig 0 el. -1 ?

I så fald vil den aldrig loope.

Den er 1

dvs den kun looper 1 gang eller hvad??

Så prøv at tilføje Godkendt = 0 før din do.

hvad med:

test = split(Request.Form("UsersNormal"), ",")
Do
    strSQL = "UPDATE branche SET godkendt = True WHERE branche_id2 LIKE '%" & test(Godkendt) & "%'"
    Connect.execute strSQL
    Godkendt = Godkendt + 1
    if Godkendt > UBound(test) Then Exit Do
Loop

Hvis den looper, bør den gøre det 2 gange, da du kontrollerer på større end og du først inkrementerer godkendt i enden af dit loop.

invisibleman >> hej navnebroder. Er der noget tidspunkt man ikke kan finde dig herinde på ? Er der eks. evt. et par minutter i døgnet for du sover :-)

Det virker faktisk som om den looper...kan det ha noget med det der godkendt = True at gøre...??

Kan godt være jeg lige skal lave en test side så i kan se hvad den gør...lidt svært at forklare...

Jeg kan ikke huske præcist hvordan det er med true/false (boolean) felter I Access. Jeg ved at de er repræsenteret som -1 = true og 0 = false.

Men jeg vil mene at du burde få en fejl hvis det var årsagen.

Du kan evt. lave en lille test i dit loop, så du udskriver værdien af godkendt inde i loopet, så kan du kontrollere antal gennemløb.

Prøv lige den her...
http://129.142.84.17/test.asp

<% Response.Buffer = True

mode = Request.QueryString("mode")
Err_mess = Request.QueryString("Err_mess")

If mode = "update" Then

If Request.Form("UsersNormal") <> "" Then

strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/database/dgg.mdb")
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.open strDSN

Dim Godkendt
test = split(Request.Form("UsersNormal"), ",")
Godkendt = 0
Do Until Godkendt > UBound(test, 1)
strSQL = "UPDATE branche SET godkendt = True WHERE branche_id2 LIKE '%" & test(Godkendt) & "%'"
call Connect.execute(strSQL)
Godkendt = Godkendt + 1
Loop

Connect.close
set Connect = Nothing

End If

If Request.Form("UsersBlocked") <> "" Then

strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/database/dgg.mdb")
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.open strDSN

Dim Slet
test = split(Request.Form("UsersBlocked"), ",")
Do Until Slet > UBound(test, 1)
strSQL = "DELETE FROM branche WHERE branche_id2 LIKE '%" & test(Slet) & "%'"
call Connect.execute(strSQL)
Slet = Slet + 1
Loop

Connect.close
set Connect = Nothing

strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/database/dgg.mdb")
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.open strDSN

Dim Updater
test = split(Request.Form("UsersBlocked"), ",")
Do Until Updater > UBound(test, 1)
strSQL = "UPDATE register SET branche1 = 0 WHERE branche1 LIKE '%" & test(Updater) & "%'"
call Connect.execute(strSQL)
Updater = Updater + 1
Loop

Connect.close
set Connect = Nothing

Response.Redirect "test.asp"
End If

If Request.Form("UsersFavorits") <> "" Then

strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/database/dgg.mdb")
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.open strDSN

Dim Afvis
test = split(Request.Form("UsersFavorits"), ",")
Do Until Afvis > UBound(test, 1)
strSQL = "UPDATE branche SET godkendt = False WHERE branche_id2 LIKE '%" & test(Afvis) & "%'"
call Connect.execute(strSQL)
Afvis = Afvis + 1
Loop

Connect.close
set Connect = Nothing

End If
  Response.Redirect "test.asp"
End If
%>


<%
If mode = "addNew1" Then
If Request.QueryString("branche_navn") = "" OR Request.QueryString("kort_navn") = "" Then
Response.Redirect "test.asp?mode=addNew&Err_mess=1"
End If

    Randomize
    Str_ID=""
    Str_ID=Str_ID&(Int(100000*rnd)+1)


Set conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("/database/dgg.mdb")
conn.open DSN
sql = "SELECT * FROM [branche] ORDER BY branche_id"
Set add = Server.CreateObject("ADODB.Recordset")
add.Open sql, conn, 3, 3

  add.AddNew
  add("branche_navn") = Request.QueryString("branche_navn")
  add("kort_navn") = Request.QueryString("kort_navn")
  add("branche_id2") = Str_ID
  add.Update

  Loc  = "test.asp"
  Response.Redirect Loc

add.Close
set add = nothing
conn.Close
set conn = nothing

End If
%>


<%
If mode = "" Then
mode = "main"
End If

If mode = "main" Then

Str_AllList="" 

  Set rs = Server.CreateObject("ADODB.RecordSet")
  strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/database/dgg.mdb")
  strSQL = "SELECT * FROM branche WHERE godkendt <> True ORDER BY branche_navn"
  rs.Open strSQL, strDSN, 1, 1

    If Not rs.EOF Then
      alldata=rs.getrows
      rs.close
      Set rs=nothing
      numcols=ubound(alldata,1)
      numrows=ubound(alldata,2)
      FOR rowcounter= 0 TO numrows
        branche_id=alldata(2,rowcounter)
        branche=alldata(1,rowcounter)
        Str_AllList=Str_AllList & "<option value=" & branche_id & ">&nbsp;" & branche & "</option>" & vbCrLf     
      Next
    else
      rs.close
      Set rs=nothing
    end if


Str_NewList=""

  Set rs = Server.CreateObject("ADODB.RecordSet")
  strSQL = "SELECT * FROM branche WHERE godkendt = True ORDER BY branche_navn"
  rs.Open strSQL, strDSN, 1, 1

  If Not rs.EOF Then
    alldata=rs.getrows
    rs.close
    Set rs=nothing
    numcols=ubound(alldata,1)
    numrows=ubound(alldata,2)
    FOR rowcounter= 0 TO numrows
      branche_id=alldata(2,rowcounter)
      branche=alldata(1,rowcounter)
      Str_NewList=Str_NewList & "<option value=" & branche_id & ">&nbsp;" & branche & "</option>" & vbCrLf     
    Next
  else
    rs.close
    Set rs=nothing
  end if
%>

<SCRIPT LANGUAGE="JavaScript">
<!-- // Add-Remove from field list
function deleteOption(object,index) {
  object.options[index] = null;
}
function addOption(object,text,value) {
  var defaultSelected = true;
  var selected = false;
  var optionName = new Option(text, value, defaultSelected, selected)
  object.options[object.length] = optionName;
}
function copySelected(fromObject,toObject) {
  for (var i=0, l=fromObject.options.length;i<l;i++) {
    if (fromObject.options[i].selected) {
      addOption(toObject,fromObject.options[i].text,fromObject.options[i].value);
    }
  }
  for (var i=fromObject.options.length-1;i>-1;i--) {
    if (fromObject.options[i].selected) {
      deleteOption(fromObject,i);
    }
  }
}
function UpdateUserList() {
  for (var i=document.FormUsers.UsersFavorits.options.length-1;i>-1;i--) { document.FormUsers.UsersFavorits.options[i].selected=true; }
  for (var i=document.FormUsers.UsersNormal.options.length-1;i>-1;i--) { document.FormUsers.UsersNormal.options[i].selected=true; }
  for (var i=document.FormUsers.UsersBlocked.options.length-1;i>-1;i--) { document.FormUsers.UsersBlocked.options[i].selected=true;
  }
  document.FormUsers.submit();
}

// -->
</SCRIPT>
<div align="left"><b>Rediger brancher.</b></div><br><br><br>
<table border="0" cellpadding="0" cellspacing="0">
<tr><td>
<form name="FormUsers" action="test.asp?mode=update" method="post">
<table border="0" cellpadding="2" cellspacing="0">
<tr>
<td align="center">
<table width="150" cellpadding="0" cellspacing="0">
<tr>
<td align="center"><b class="black">Slettes</b><br>
</td>
</tr>
</table>
<select name="UsersBlocked" size="13" MULTIPLE style="width: 150px;">
</select>
<table width="150" cellpadding="0" cellspacing="0">
<tr>
<td align="right"><button type="button" OnClick="if (document.images) copySelected(document.FormUsers.UsersBlocked,document.FormUsers.UsersFavorits);">Tilf&oslash;j &gt;&gt;</button></td>
</tr>
</table>
</td>
<td align="center">
<table width="150" cellpadding="0" cellspacing="0">
<tr>
<td align="center"><b class="black">Brancher</b><br></td>
</tr>
</table>
<select name="UsersFavorits" size="13" MULTIPLE style="width: 150px;">
<%=Str_AllList%>
</select>
<table width="150" cellpadding="0" cellspacing="0">
<tr>
<td align="left"><button type="button" OnClick="if (document.images) copySelected(document.FormUsers.UsersFavorits,document.FormUsers.UsersBlocked);">&lt;&lt; Slet</button></td>
<td align="right"><button type="button" OnClick="if (document.images) copySelected(document.FormUsers.UsersFavorits,document.FormUsers.UsersNormal);">Tilf&oslash;j &gt;&gt;</button></td>
</tr>
</table>
</td>
<td align="center">
<table width="150" cellpadding="0" cellspacing="0">
<tr>
<td colspan="2" align="center"><b class="black">Godkendt liste</b><br></td>
</tr>
</table>
<select name="UsersNormal" size="13" MULTIPLE style="width: 150px;">
<%=Str_NewList%>
</select>
<table width="150" cellpadding="0" cellspacing="0">
<tr>
<td align="left"><button type="button" OnClick="if (document.images) copySelected(document.FormUsers.UsersNormal,document.FormUsers.UsersFavorits);">&lt;&lt; Fjern</button></td>
</tr>
</table>
</td>
</tr>
<tr>
<td align="center" colspan="3">
</td>
</tr>
</table>
</form>
<form name="OmraadeErase" action="test.asp?mode=delete" method="post"></form>
</div>
<input type="button" value="Tilføj ny branche" OnClick="location.href='test.asp?mode=addNew'">&nbsp;<input type="button" value="Opdater liste" OnClick="UpdateUserList();" style="width: 115px;">
</td></tr>
</table>
<% End If %>


<% If mode = "addNew" Then %>
<div align="left"><b>Tilføj branche.</b><br><br>
<form name="ThisForm" method="GET" action="test.asp">
<input type="hidden" name="mode" value="addNew1">
<input type="hidden" name="katalog" value="<%= katalog %>">
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td class="black">
Flertal:&nbsp;
</td>
<td>
<input type="text" name="branche_navn" size="30">
</td>
</tr>
<tr>
<td class="black">
Ental:&nbsp;
</td>
<td>
<input type="text" name="kort_navn" size="30">
</td>
</tr>
</table>
<br><br>
<input type="reset">&nbsp;<input type="submit" value="Tilføj område">
</form>
<%
If Err_mess = "1" Then
Response.Write "<i class=""red"">FEJL: Du mangler at udfylde feltet!</i>"
End If
%>
</div>
<%
End If
%>

øhhhh...jah...vil i ha flere point??? :)

Jeg tror at konventeringen til 97 at det er der det går galt! Det er ikke så godt at konventere tilbage. Så jeg er 99% på at det er der fejlen ligger.

Forklar venligst hvad vi skal gøre på testsiden, for at vi ender i ovenstående kode...

Det hele går ud på at kunne tilføje nogle brancher og så flytte dem over i de forskellige bokse alt efter hvad der skal ske med dem...
Efter du har markeret alt det du vil og har flyttet det over i de bokse skal du trykke opdater liste...og så skulle de befinde sig der næste gang man trykker opdater el.

Prøv lige midlertidigt at udskifte denne blok:

Dim Updater
test = split(Request.Form("UsersBlocked"), ",")
Do Until Updater > UBound(test, 1)
strSQL = "UPDATE register SET branche1 = 0 WHERE branche1 LIKE '%" & test(Updater) & "%'"
call Connect.execute(strSQL)
Updater = Updater + 1
Loop

med denne:

Dim Updater
test = split(Request.Form("UsersBlocked"), ",")
response.write "entering do..."
Do Until Updater > UBound(test, 1)
response.write "Updater: " & "<BR>"
Updater = Updater + 1
Loop
response.write "ending do"

Hvorfor anvender du i øvrigt "call Connect.execute(strSQL)" og ikke blot "Connect.execute(strSQL)" ?

Jeg ved ikke hvoffor jeg bruger call...har tyv stjålet den her del fra en anden side...:)

Hvad skulle den gøre??

Call udfører en sub procedure, eks.

Sub Test
Response.Write "Resultat af Sub Procedure"
End Sub

Derefter kan den anvendes med

Call Test()

Connect.Execute derimod udfører execute metoden på Connect objektet.
Fjern Call fra din kode :-)

Hov, der mangler (), det skal være

Sub Test()
Response.Write "Resultat af Sub Procedure"
End Sub

mkay...har du nogen ide til hvad mit problem er?

Jeg har en ide om at den enten ikke kommer ind i loop'et, at den kun laver ét gennemløb eller at SQL statement'et ikke er korrekt.

Det var derfor jeg foreslog at du udskiftede ovenstående midlertidigt, så vi kan se om den kommer ind i loop'et og i så fald hvor mange gennemløb.

Det har jeg gjort, men der sker ikke noget...

hohoho....
Jeg er dum...tak tak..

Jeg fandt ud af det selv...
test = split(Request.Form("UsersBlocked"), ",")
skal være
test = split(Request.Form("UsersBlocked"), ", ")

:)
Tak for hjælpen...:)

Den splittede den op men der var stadig et mellemrum som den server jeg har uploadet til ikke overser ligesom min super PWS server gør :)

Nåå...men takker da for jeres tid :)
tmceu >> lav et svar og du får lidt point for din tid :)

ups...man kan ikke dele point ud mere?? :/

Stærkt.

Du behøver ikke give mig point, men hvis du insisterer... :-)