Der er en syntaksfejl! Men hvor?

Du bør ikke have funktionen erklæret midt nede i koden - prøv at flytte hele MakeCode enten op forrest eller ned til allersidst

Du må ikke definere en funktion inde i et do ... loop (eller inde i noget andet statement for den sags skyld, bortset fra i en class)

okay jeg har sat funktionen helt op men den virker stadig ikke, kan i se om der er noget galt???

/Peppino

Hvilken fejlmeddelelse får du?

Er syntaxfejlen gået væk? Og hvis ja, hvad har du så for problemer?

Koden skal være ca. sådan. Men hvad gør koden. Laver den tilfældige varenumre der ikke må være ens. ?

<%
Dim aktiveringskode

function MakeCode(count)
  Dim randchars, s
  randchars = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ012345678901234567890123456789"
  s = ""
  Randomize
  For I = 0 To Count-1
    s = s & mid(randchars, Int((Rnd * Len(randchars))+1), 1)
  Next
  MakeCode = s
end function

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

sql = "select * from vare2"

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, Conn,1,3

do until rs.eof

  varenr3 = MakeCode(10)
  set rstjek = conn.Execute("select * from vare2 where varenr2 = '" & varenr3 & "'")
  If rstjek.EOF THEN
    rs.AddNew ' Vare findes ikke opret ny
    rs("varenr2") = varenr3
    rs.update
  else ' Vare findes ???
    rs("varenr2") = "Fejl"
    rs.update
  end if
 
  rs.movenext
loop
%>

coltau>> Jeg får den her fejl:

ADODB.Recordset fejl '800a0bb9'

Argumenterne har en forkert type eller er uden for det angivne område, eller der er opstået en konflikt mellem dem.

updatevarenr.asp, linje 23

Linje 23 er den her fra "din" kode
rs.Open SQL, Conn,1,3

/Peppino

ups det er den her fejl jeg får:

Microsoft OLE DB Provider for ODBC Drivers fejl '80004005'

[Microsoft][ODBC Microsoft Access-driver] Den valgte sætvise sortering understøttes ikke af operativsystemet.

updatevarenr.asp, linje 28

Linje 28:
set rstjek = conn.Execute("select * from vare2 where varenr2 = '" & varenr3 & "'")

Det kunne tyde på at feltet, varenr2 ikke er af typen tekst - men tal eller andet. ?

Coltau>>>> Det er et tekst felt

Lukket