---
title: "Orättvisa !!!!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/6206-orättvisa"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Gaski"
published: "2000-08-06T19:29:00.000Z"
updated: "2000-08-06T21:10:00.000Z"
replies: 4
views: 260
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/6206-orättvisa"
---

# Orättvisa !!!!

## #1 — Gaski, 2000-08-06T19:29Z

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!

Permalänk: https://www.webforum.nu/p/6206

## #2 — @nders, 2000-08-06T19:33Z

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

Permalänk: https://www.webforum.nu/p/244995

## #3 — Gaski, 2000-08-06T19:37Z

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") & ";"
%>
```

Permalänk: https://www.webforum.nu/p/244996

## #4 — emission, 2000-08-06T20:02Z

Du kan inte stänga rsNoje

rsNoje.close

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

Permalänk: https://www.webforum.nu/p/244997

## #5 — cf, 2000-08-06T21:10Z

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.

Permalänk: https://www.webforum.nu/p/244998

---

Tråden på webben: https://www.webforum.nu/amne/asp/6206-orättvisa