Opdater database

Den skal opdatere et record samt poste det før, så man kan rette i den tekst der er i feltet i forevejen.

Jeg har tager et script fra et ligende spørgsmål herinde, men jeg kan ikke hitte ud af at få det tilpasset efter min database.

Scripet hedder opdater.asp
databasen hedder main
------------------------------------------
jeg har prøvet at rette lidt idet, men uden held.

jeg for denne fejltype:
Fejltype:
Der opstod en Microsoft VBScript-kørselsfejl (0x800A01A8)
Et objekt er obligatorisk: 'Conn'
/Temp/Ny mappe/opdater.asp, line 27



<html>

<head>


<%
if request.servervariables("REQUEST_METHOD") = "POST" then
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("Database.mdb")
Conn.Open DSN

strSQL="update main set "
strSQL=strSQL & "linkname='" & Request.Form("linkname") & "', "
strSQL=strSQL & "beskrivelse='" & Request.Form("beskrivelse") & "', "
strSQL=strSQL & "linkurl='" & Request.Form("linkurl") & "'"
strSQL=strSQL & "Where ID=" & Cstr(Session("ID"))

Set rs = Conn.Execute(strSQL)
end if

%>


<%
SQL = "SELECT * FROM main WHERE ID = " & Request.Querystring("ID")
Set rs = Conn.Execute(SQL)
%>


<form method="POST" action="HVAD SKAL DER STÅ HER, HVILKEN FIL??????">

<table border="0" width="100%" cellspacing="0" cellpadding="2">
        <tr valign="top">
          <td valign="middle" align="left" colspan="2"><br>Opdater venligst oplysningerne i følgende felter:<strong>
      <%=strError%></td>
        </tr>
        <tr valign="top">
          <td align="right"><p><b>Overskrift: </b></td>
          <td valign="middle" align="left">
<input type="text" name="Overskrift" size="40" value="<%Response.Write("Overskrift")%>"></td>
        </tr>
        <tr valign="top">
          <td align="right"><p><b>Nyhed: </b></td>
          <td valign="middle" align="left">
<textarea rows="10" name="Nyhed" cols="40"><%Response.Write("Nyhed")%></textarea>
</td>
        </tr>
        <tr valign="top">
          <td align="right"><p><b>Skrevet af:</b></td>
          <td valign="middle" align="left">
<input type="text" name="SkrevetAf" size="40"value="<%Response.Write("SkrevetAf")%>">
</td>
        </tr>
        <tr>
          <td><p align="center"><br>
          <input type="submit" value="Gem" name="Opdater"> <input type="button" value="Annuller" name="Annuller"

onClick="java script:location.href='elevpost.asp'"></p></td>
        </tr>
      </table>
</form>


</head>


<body>
</body>
</html>