Fejl hvis det ikke matcher
Hejsajeg får en error '80020009'
med det her script
nogen der ved hvorfor ?
SCRIPT
...................
Set Conn = Server.createobject("ADODB.Connection")
Conn.open "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & server.mappath("../log/intranet.mdb")
Set RS = Server.createObject("ADODB.Recordset")
SQL = "Select tblcv2.bid, tblcv2.tekst, tblcv2.punktid, tblcv2.sort_num, tblpunkter.Overskrifts_ID, tblpunkter.overskrift"
SQL = SQL & " FROM tblcv2"
SQL = SQL & " LEFT JOIN tblpunkter ON tblcv2.punktid = tblpunkter.overskrifts_id"
SQL = SQL & " WHERE tblcv2.bid = " & brugerid
SQL = SQL & " AND tblcv2.punktid = " & txt
RS.Open SQL,conn
IF NOT RS.EOF THEN
response.write "<table>"
response.write "<form action='default.asp?action=6&handle=3&txt=" & txt & "' method='post'>"
response.write "<tr class='skrift'></td>" & Ucase(RS("overskrift")) & "</td></tr>"
response.write "<tr><td><textarea rows='8' cols='50' name='indhold'>" & RS("tekst") & "</textarea></td></tr>"
response.write "<tr><td align='right'><input type='submit' class='submit' value='Næste'></td></tr>"
response.write "</form>"
response.write "</table>"
ELSE
response.write "<table>"
response.write "<form action='default.asp?action=6&handle=3&txt=" & txt & "' method='post'>"
response.write "<tr class='skrift'></td>" & RS("overskrift") & "</td></tr>"
response.write "<tr><td><textarea rows='8' cols='50' name='indhold'></textarea></td></tr>"
response.write "<tr><td align='right'><input type='submit' class='submit' value='Næste'></td></tr>"
response.write "</form>"
response.write "</table>"
END IF
Rs.close
Set Rs = Nothing
conn.close
set conn = nothing
