Hvem kan hjælpe mig med at finde en fejl i koden

Hmmm prøv at sende den herind"! Så kan vi bedre hjælpe dig.

<%@LANGUAGE="VBSCRIPT"%>
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers=""
MM_authFailedURL="login.asp"
MM_grantAccess=false
If Session("MM_Username") <> "" Then
  If (true Or CStr(Session("MM_UserAuthorization"))="") Or _
        (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then
    MM_grantAccess = true
  End If
End If
If Not MM_grantAccess Then
  MM_qsChar = "?"
  If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"
  MM_referrer = Request.ServerVariables("URL")
  if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
  MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
  Response.Redirect(MM_authFailedURL)
End If
%>
<%
response.buffer = true
if Request.ServerVariables("REQUEST_METHOD") = "POST" then

uploadsti = server.mappath(".") & "\billeder"
uploadsti2 = uploadsti & "\"

Dim upl
Set upl = Server.CreateObject("aspSmartUpload.SmartUpload")
upl.Upload

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("data\indtast3.mdb") & ";UID=;PWD=;"
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From Resultater"
rs.Open strSQL, Conn, 1, 3
rs.AddNew
rs("ID1") = Server.HTMLEncode(upl.form("ID1"))
rs("Maerke") = Server.HTMLEncode(upl.form("Maerke"))
rs("Aargang") = Server.HTMLEncode(upl.form("Aargang"))
rs("Km") = Server.HTMLEncode(upl.form("Km"))
rs("Udstyr") = Server.HTMLEncode(upl.form("Udstyr"))
rs("Pris") = Server.HTMLEncode(upl.form("Pris"))
rs.Update
id = rs("id")
rs.Close
Set rs = Nothing

'Det er flere måder at lave dette tjek på, det afhænger lidt af serveren hvordan
'de opfører sig, eks. kan files.totalbytes somme tider blive 5 selvom der ikke er
'nogen fil til upload, donmt ask me why!
'Her er lige et par eksempler:
If upl.Files.totalbytes < 5 then
'If upl.Files.count => 1 then
'If upl.Files.Item(1).filename <> "" then
    billede = ""
else
    billede = id & ".jpg"
    save = uploadsti2 & billede
    'Jeg har ikke tjekket din sti, så muligvis den er gal. Har ikke testet dokumentet.
    upl.Files.Item(1).SaveAs(save)
    'upl.Form("billede").SaveAs save
    'Denne duer ikke da AspSmartupload ikke opfatter form feltet som en fil
    'Vil du oploade flere filer hedder de upl.files.item(1) og upl.files.item(2) osv.
    'I dette tilfælde vil du nok lave en "for each Item in upl.files" sætning.
end if

Conn.Execute("UPDATE DISTINCTROW Resultater SET billede = '" & billede & "' WHERE id = " & id)
Conn.Close
set Conn = Nothing
response.redirect ("vis.asp?id=" & id)

else

%>
<HTML>
<HEAD>
<TITLE>CK-Biler</TITLE>
</HEAD>
<BODY bgcolor="#FFFFFF">
<div align="center"><font size="5" face="Arial, Helvetica, sans-serif" color="#333333">Indtast
  en bil</font> </div>
<form enctype="multipart/form-data" method="post" action="indtast.asp" name="">
  <p><font color="CC0000">
    <% =request.querystring("fejl") %>
    </font><BR>
  </p>
  <table width="50%" border="0" cellspacing="10" align="center">
    <tr>
      <td width="10%">
        <div align="right"><font face="Arial, Helvetica, sans-serif">ID</font><font face="Arial, Helvetica, sans-serif">:</font></div>
      </td>
      <td width="21%"><font face="Arial, Helvetica, sans-serif">
        <input type="text" name="ID1" size="10">
        </font></td>
      <td width="9%">
        <div align="right"><font face="Arial, Helvetica, sans-serif">Udstyr:</font></div>
      </td>
      <td rowspan="2" width="60%"><font face="Arial, Helvetica, sans-serif">
        <textarea name="Udstyr" cols="30" rows="4"></textarea>
        </font><font face="Arial, Helvetica, sans-serif"> </font></td>
    </tr>
    <tr>
      <td width="10%">
        <div align="right"><font face="Arial, Helvetica, sans-serif">M&aelig;rke:</font></div>
      </td>
      <td width="21%"><font face="Arial, Helvetica, sans-serif">
        <input type="text" name="Maerke" size="30">
        </font></td>
      <td width="9%">
        <div align="right"></div>
      </td>
    </tr>
    <tr>
      <td width="10%">
        <div align="right"><font face="Arial, Helvetica, sans-serif">&Aring;rgang:</font></div>
      </td>
      <td width="21%"><font face="Arial, Helvetica, sans-serif">
        <input type="text" name="Aargang" size="10">
        </font></td>
      <td width="9%">
        <div align="right"><font face="Arial, Helvetica, sans-serif">Pris:</font></div>
      </td>
      <td width="60%"><font face="Arial, Helvetica, sans-serif">
        <input type="text" name="Pris" size="20">
        </font></td>
    </tr>
    <tr>
      <td width="10%">
        <div align="right"><font face="Arial, Helvetica, sans-serif">Km:</font></div>
      </td>
      <td width="21%"><font face="Arial, Helvetica, sans-serif">
        <input type="text" name="Km" size="20">
        </font></td>
      <td width="9%">
        <div align="right"><font face="Arial, Helvetica, sans-serif">Billede:</font></div>
      </td>
      <td width="60%">
        <input type="file" name="billede" size="30">
      </td>
    </tr>
    <tr>
      <td colspan="4" height="54">
        <div align="right"><br>
        </div>
        <font face="Arial, Helvetica, sans-serif"> </font>
        <div align="center">
          <input type="submit" value="Gem Indtastning" name="submit">
        </div>
      </td>
    </tr>
  </table>
  <p align="center">&nbsp;</p>
  <p align="center"><font size="1">&copy; Copyright 2001 CK-Biler, Danmark </font></p>
</form>
</BODY>
</HTML>
<% end if %>

Og hvad er fejlmeddelsen?

//>Rune

...Dette er filen "indtast.asp" hvis man ligge data ind i databasen, samt kan uploade et billede til folderen /billeder

Hviken fejl besked får du?

The page cannot be displayed
There is a problem with the page you are trying to reach and it cannot be displayed.

--------------------------------------------------------------------------------

Please try the following:

Click the Refresh button, or try again later.

Open the localhost home page, and then look for links to the information you want.
HTTP 500.100 - Internal Server Error - ASP error
Internet Information Services

--------------------------------------------------------------------------------

Technical Information (for support personnel)

Error Type:
Server object, ASP 0177 (0x800401F3)
Invalid class string
/ckbiler/indtast.asp, line 30


Browser Type:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; .NET CLR 1.0.3705)

Page:
POST 879 bytes to /ckbiler/indtast.asp

POST Data:
. . .

Time:
Sunday, January 05, 2003, 12:31:59 AM


More information:
Microsoft Support

Serveren har ikke længere dette komponenet "AspSmartUpload"

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: http://www.microsoft.com/contentredirect.asp.
/storebuilder/storebuilder/biuld/post.asp, line 73

Ups link virker ikke prøv den:
http://www.cfdev.com/resources/support/messages.cfm/id/5834

Lyder meget rigtigt, jeg skal lige tjekke med dem.

hylgaard>please look at this link!

http://www.eksperten.dk/spm/79734