recset

Servern generarar följande felmeddelande:

Error Type:
Server object, ASP 0177 (0x800401F3)
Invalid ProgID. For additional information specific to this message please visit the Microsoft Online Support site located at: [url]http://www.microsoft.com/contentredirect.asp.[/url] 
/hemsida/link.asp, line 5

Koden som jag kör är följande:

<%@ Language=VBScript%>
<!-- #INCLUDE FILE="dblink.asp" -->
<% Response.Buffer = True 

Set Connect = Server.CreateObject("ADODB.connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& Server.MapPath(db) &" "
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT namn, link, alt FROM lankar"
RecSet.Open SQL, Connect

do until RecSet.eof
response.write("<a href=" & RecSet("link") & ">" & RecSet("texten_som_skall_synas") & "</a>")
RecSet.movenext
loop
Set RecSet = connect.Execute(SQL)

RecSet.Update

RecSet.Close
Connect.Close
Set RecSet = Nothing
Set Connect = Nothing

%>

Tacksam för svar

Tycker jag provat allt här, är rätt nybörjare på ASP kanske ska tilläggas.

Vad vill du göra?
Du behöver varken ha med: Set RecSet = connect.Execute(SQL), eller RecSet.Update om du bara skall loopa ut några länkar.
Vill du uppdatera din databas så får du göra på annat vis.
Testa att söka på: "Invalid ProgID"

Jesper T skrev:

Vad vill du göra?
Du behöver varken ha med: Set RecSet = connect.Execute(SQL), eller RecSet.Update om du bara skall loopa ut några länkar.
Vill du uppdatera din databas så får du göra på annat vis.
Testa att söka på: "Invalid ProgID"

Vill ha alla länkar i databasen istället för att hårdvarukoda dem, så att sidan ska bli lätt administrera.

Den ska altså skriva ut alla länkar som finns i den aktuella tabellen.

<%@ Language=VBScript%>
<!-- #INCLUDE FILE="dblink.asp" -->
<% Response.Buffer = True 

Dim Connect, RecSet, SQL
Set Connect = Server.CreateObject("ADODB.connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& Server.MapPath(db) &" "
Set RecSet = Connect.Execute("SELECT namn, link, alt FROM lankar")

do until RecSet.eof
	response.write("<a href='" & RecSet("link") & "'>" & RecSet("texten_som_skall_synas") & "</a>")
RecSet.movenext
loop

Connect.Close
Set Connect = Nothing

%>

Nä, det hjälpte inte heller.

response.write("<a href='" & RecSet("link") & "'>" & RecSet("namn") & "</a>")

Jo det fungerar nu på min XP-server, men inte på Windows 2000.

Varför?

Skrev det i denna tråd för 2 min men vet inte var det inlägget tog vägen? :(

Testat att starta om servern?

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/csvr2002/htm/cs_mmc_troubleshooting_nizk.asp

Kan det kanske ha något att göra med konfigueringen av w2k-servern kanske?

cyprys skrev:

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/csvr2002/htm/cs_mmc_troubleshooting_nizk.asp

Kan det kanske ha något att göra med konfigueringen av w2k-servern kanske?

Nej, det är en standardinstalltion av w2k server, har kört igenom senaste windowsupdate och laddat hem nyaste iisfilerna, data och vbscript, detta hjälpte inte heller. mer tips? :r