fejl på function ?

Den er der ikke umiddelbart noget galt med (hvis altså det er VBScript). Hvad står der i linierne inden denne funktion?

og for at gøre det hele lidt mere kryptisk så kan det godt køre på en win xp men ikke på en win 2003 server ?!?

/Websam

Det er VBscript kan der være forskel på xp og 2003 server ?

Er der andet ASP som kører på din 2003 server? Hvis ikke kan det være fordi IIS'en ikke tillader ASP (det skal sættes op, da det ikke er slået til som standard).

Hele systemet er lavet i asp og køre på samme server dog har jeg fået et test domæne, kan der være forskel på det ?

Har lige checket det af og der er sat flueben i "execute script" eller hvad den nu hedder ?!?

/Websam

Hvis ASP-koden på dit testdomæne i øvrigt kører, så er det nok noget mere specifikt i det modul du sidder med.

Kan du evt. vise noget mere kode?

Hele functionen kommer her :

function getProducts()
    Dim arrProducts
    Dim SqlProducts
    Dim RsProducts
    SqlProducts = "SELECT DISTINCT(varenavn3) FROM admindbprodukter WHERE (gruppe LIKE '" & varegruppe & "' OR gruppe2 LIKE '" & varegruppe & "') AND varenavn3 <> '' AND inetpris > 0 ORDER BY varenavn3 ASC"
    Set RsProducts = oConn.Execute(SqlProducts)
    arrProducts = RsProducts.GetRows()
    ReProducts.Close
   
    if request("v3") = "" AND request("startpos") = "" AND request("sort") = "" then
        menuvisesitop = "ja"
        With Response
            .Write("<table width=""458"" border=""0"" cellspacing=""0"" cellpadding=""3"">")
            .Write("<tr>")
            .Write("<td valign=""top"" width=""12"">")
            .Write("<div align=""right"">")
            .Write("<img src=""../basispic/bullet.gif"" alt="""" height=""10"" width=""10"" align=""absmiddle"" border=""0""></div>")
            .Write("</td>")
            .Write("<td><a href=""../main/index.asp?site=" & site & "&kat=" & kategori &"&v3=all&sort=" & Request.QueryString("sort") & """><font color=""#0059d1"">" & TRANSvisalle & " " & CMSoRs("overskrift") & "</font></a><br>")
            .Write("</td>")
            .Write("</tr>")
            .Write("</table>")
        End With
    end if
end function

/websam

Min mistanke går mere på, at der i de, for funktionen, forudgående linier er en eller anden fejl som resulterer i, at VBS-parseren fejler i din funktionsheader. Derfor er det egentlig de linier som går forud for funktionen jeg gerne vil se...

Ja du har så ganske ret, jeg har lavet en seperart fil der includeres i bunden af hele systemet så køre det.

Det er lidt svært at skulle sætte sig ind i et system jeg ikke selv har lavet fra starten af så det blev løsningen her og nu.

Men tak for hjælpen og smid et svar ;o)

/Websam

Velbekomme :)

Tak for point :)