Orättvisa !!!! — webForum

GaskiMedlem sedan juni 2000310 inlägg

Frågan6 aug. 2000 19:29#1

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!!!

@ndersMedlem sedan juni 200032 967 inlägg

6 aug. 2000 19:33#2

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

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

GaskiMedlem sedan juni 2000310 inlägg

6 aug. 2000 19:37#3

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!!!

emissionMedlem sedan dec. 19996 721 inlägg

6 aug. 2000 20:02#4

Du kan inte stänga rsNoje

rsNoje.close

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

cfMedlem sedan maj 2000376 inlägg

6 aug. 2000 21:10#5

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.