ASP Problem under Windows 98

Du bliver nok nødt til at skrive lidt mere... Fejlmeddelelsen samt det sted i koden hvor der kommer en fejl...

kunne det være CHMOD?? Det bruger du til at vælge hvaforn nogle filer der skal kunne blive skrevet til. Altså Read/Write features...ligesom en diskette.

man kan ikke bruge CHMOD under win95/98/98SE/ME


HANSEN2000

Det kan være du ikke har det object den skal bruge, installeret på din maskine.

Her er fejlen:

Serverobjekt fejl \'ASP 0177 : 800401f3\'

Server.CreateObject blev ikke udført

/search.asp, linje 28

800401f3

Det skal siges at jeg er rimelig ny inden for faget, så det dur altså ikke hvis i kommer med en eller anden lang forklaring med en hel masse kode i!

Hvad er linie 28 ?

Ja tak, send os noget kode så man kan se problemet. Du kan jo heller ikke sige til en mekaniker \"Min bil kan ikke køre, hvad er problemet?\" for der kan jo være 1000 årsager :-)

Okay her er selve koden, det har ikke noget at gøre med hvaffor en version af IE man køre med.

<HTML>
<HEAD>
<LINK REL=\"stylesheet\" TYPE=\"text/css\" HREF=\"style.css\">
    <TITLE>.::TEST ::.</TITLE>
<script language=\"JavaScript\">
  function co(element,mode) {
    if (mode==\"in\") {
      cursortype = \'default\'
      colorval = \'#FFD700\'
    } else if (mode==\"out\") {
      cursortype = \'\'
      colorval = \'#FFFFEB\'
    }
  element.style.background=colorval;
  element.style.cursor=cursortype;
}
</script>
</HEAD>
<BODY TOPMARGIN=\"10\" LEFTMARGIN=\"10\">

<form action=\"search.asp\" method=\"post\">
    <table border=0 cellspacing=0 cellpadding=0>
        <tr><td><b class=\"text-search\">Søgeord:</font></td><td width=5></td><td><input type=\"text\" name=\"soeg\"></td><td width=5></td><td><input type=\"submit\" name=\"submit\" value=\"Search\"></td></tr>
    </table>
</form>
<br>
<%
If Request.Form(\"soeg\") <> \"\" then
    Set DB = Server.CreateObject(\"ADODB.Connection\")
    DBSti = \"DBQ=\" & Server.Mappath(\"soeg.mdb\")
    DB.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBSti
    SQL = \"select * from Soeg where varenummer like \'%\" & Request.Form(\"soeg\") & \"%\' or kategori like \'%\" & Request.Form(\"soeg\") & \"%\' or beskrivelse like \'%\" & Request.Form(\"soeg\") & \"%\'\"
    Set rs = db.Execute (SQL)
    If not rs.eof then
        Response.Write \"<table border=0 cellspacing=0 cellpadding=0>\"
        Response.Write \"<tr><td width=20></td><td width=100><b class=\'text-hl\'>VARENUMMER</b></td><td width=5></td><td width=100><b class=\'text-hl\'>CATEGORY</b></td><td width=5></td><td width=150><b class=\'text-hl\'>DESCRIPTION</b></td><td width=5></td><td width=80><b class=\'text-hl\'>PICTURE</b></td><td width=5></td><td width=55><b class=\'text-hl\'>URL</b></td></tr>\"
        Response.Write \"</table>\"
        Do until rs.eof
            Response.Write \"<table border=0 width=527 height=1 id=black cellspacing=0 cellpadding=0><tr><td></td></tr></table>\"
            Response.Write \"<table border=0 id=table-bg height=20 cellspacing=0 cellpadding=0 onmouseover=co(this,\'in\'); onmouseout=co(this,\'out\');>\"
            Response.Write \"<tr><td width=1 height=20 id=black><td width=20></td><td width=100><b class=\'text-vn\'>\" & rs(\"varenummer\") & \"</b></td><td width=5></td><td width=100><b class=\'text\'>\" & rs(\"kategori\") & \"</b></td><td width=5></td><td width=150><b class=\'text\'>\" & rs(\"beskrivelse\") & \"</b></td><td width=5></td><td width=80><a href=\'http://www.inec.dk/cat-pic/\" & rs(\"varenummer\") & \".html\' class=\'link-picture\'>\" & rs(\"varenummer\") & \".gif</a></td><td width=5></td><td width=55><a href=\'http://www.inec.dk/cat/\" & rs(\"varenummer\") & \".html\' class=\'link-url\'>\" & rs(\"varenummer\") & \"</a></td><td width=1 height=20 bgcolor=#000000></td></tr>\"
            rs.movenext
        Response.Write \"</table>\"
        Loop
            Response.Write \"<table border=0 width=527 height=1 bgcolor=#000000 cellspacing=0 cellpadding=0><tr><td></td></tr></table>\"
    Else
    Response.Write \"<table border=0 width=400 height=30 cellspacing=0 cellpadding=0 id=\'td-bg\'>\"   
    Response.Write \"<tr><td valign=middle align=center><b class=\'text-none\'>Der var intet der matchede dine søgekriterier!</b></td></tr>\"
    Response.Write \"</table>\"
    End if
End if

set db = Nothing

%>
</BODY>
</HTML>

Linie 28 er denne:

If Request.Form(\"soeg\") <> \"\" then

Hvis det kun er under win98 og ikke win2000, er det nok fordi du under \"din\" win98 ikke kan lave ADO objekter, er ikke helt sikker, men den hører vist ind under ODBC (I andre må sige til hvis det er forkert), så din ODBC driver kunne mangle? Men du må ikke spørge mig om hvor man får fat i den? ... tror du i win98 kan kigge i kontrolpanelet efter noget med ODBC, driveren skal ligge der hvis den er installeret

Microsoft Data Access Components (MDAC) kan downloades her

http://www.microsoft.com/data/download_260rtm.htm

strax har ret. Men ellers hvis du har Microsoft® Office med Access 2000 installeret så behøver du ikke installere MDAC.

stringbuffer >>> Okay nu har jeg installeret access 2000, og det virker stadigvæk ikke.