Orättvisa !!!!

Jag använder följande kod:

<!--#include file="conn.asp" -->
<%
 
  Dim SQLquery
  Dim rsNoje 

  Dim strStad, strDatum, strEven
  Dim strOldStad, strOldDatum, strOldEven
  Dim strToDo 

  strStad = request("stad")
  strDatum = request("datum")
  strEven = request("even")
  strOldStad = request("oldstad")
  strOldDatum = request("olddatum")
  strOldEven = request("oldeven")
  strToDo = request("todo")

  if strToDo = "delete" then
    Call DeleteInfo
  elseif strToDo = "add" then
    Call AddInfo
  elseif strToDo = "edit" then
    Call EditInfo
  else 
    Call UnknownInfo
  End if

Sub DeleteInfo
  SQLquery = "DELETE FROM data WHERE stad = '" & strStad & "' AND datum = '" & strDatum & "' AND even = '" & strEven & "'"
  set rsNoje = conn.Execute(SQLquery)
  response.write("Evenemanget deletades utan fel. <a href='admin.html'>Tillbaka</a>.")
End Sub

Sub AddInfo
  SQLquery = "INSERT INTO data (stad, datum, even) VALUES  ('" & strStad & "', '" & strDatum & "', '" & strEven & "')"
  set rsNoje = conn.Execute(SQLquery)
  response.write("Evenemanget lades till utan fel. <a href='admin.html'>Tillbaka</a>.")
End Sub

Sub UnknownInfo
  response.write("Something went wrong, please try again <a href='admin.html'>here</a>.")
End Sub

Sub EditInfo
  SQLquery = "UPDATE data SET stad = '" & strStad & "', datum = '" & strDatum & "', even = '" & strEven & "' WHERE stad = '" & strOldStad & "' AND datum = '" & strOldDatum & "' AND even = '" & strOldEven & "'"
  set rsNoje = conn.Execute(SQLquery)
  response.write("Evenemanget ändrades utan fel. <a href='admin.html'>Tillbaka</a>.")
End Sub

rsNoje.close
set rsNoje = nothing
%>

HTML filen ser ut så här:

<FORM METHOD="POST" ACTION="admin.asp" NAME="AddEven">
Stad:<BR><INPUT TYPE="text" NAME="stad"><BR>
Datum:<BR><INPUT TYPE="text" NAME="datum"><BR>
Evenemang:<BR><INPUT TYPE="text" NAME="even"><BR>
<INPUT TYPE="hidden" NAME="todo" VALUE="add">
<INPUT TYPE="SUBMIT" VALUE="Lägg till" NAME="skickarl">

Och jag får följande fel medelande:

Körningsfel i Microsoft VBScript fel '800a01a8' 

Objekt krävs.: '' 

/asp/linus/admin.asp, rad 56

Nä du! Det behövs inte alls något sådant tecken på rad 56!

Jag kräver rättvisa!

------------------
Gaski: Viktig IT-profil!!!

var har du skapat conn? kan det vara så att du glömt det?

------------------
don't follow your friends -- inflate them

conn.asp finns med och fungerar perfekt, har testat den med annan kod.

Ser ut så här:

<%	option explicit
	
	Dim conn    'connesione al database access
	
    Set conn = Server.CreateObject("ADODB.Connection")
	'DSN-less connection to access
    conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("databas.mdb") & ";"
%>

------------------
Gaski: Viktig IT-profil!!!

Du kan inte stänga rsNoje

rsNoje.close

om den inte skapats, och den skapas aldrig....fastän det kan se ut så....

Ja, du skulle väl rent av kunna låta bli att använda rsNoje. Ett recordset har du väl knappast något behov av eftersom du inte gör någon utsökning.