---
title: "Databasen uppdateras inte! =("
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/7533-databasen-uppdateras-inte"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "hyperD"
published: "2000-12-28T20:42:00.000Z"
updated: "2000-12-29T20:50:00.000Z"
replies: 6
views: 152
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/7533-databasen-uppdateras-inte"
---

# Databasen uppdateras inte! =(

## #1 — hyperD, 2000-12-28T20:42Z

Hoppas att det finns någon vänlig själv som har lust att hjälpa mig med följande
problem, hittade en kodsnutt i en bok här hemma för att göra ett forum,
allting funkar, nästan, hur mycket jag än skriver och har mig så kommer det
nämligen inte in något inlägg i databasen. Någon som kan kolla vad felet är?

\<!--# INCLUDE FILE="Adovbs.Inc" --\>

\<%
id = Request.Querystring("inlaggID")

oldamne = Request.Querystring("amne")
upd = Request.Form("dummy")

If Len(upd) \> 0 Then

    If Len(oldamne) \> 0 Then
      samne = oldamne
 Else
      samne = Request.Form("Amne")
 End If

snamn = Request.Form("Namn")
sepost = Request.Form("Epost")
sinlagg = Request.Form("Inlagg")

End If
%\>

\<form method="post"
action="skapa_inlagg.asp?inlaggID=\<%=id%\>&Amne=\<%=Server.URLEncode(oldamne)%
\>" name="inlagg"\>
\<a href="forum.asp"\>tillbaka till forumet\</a\>

\<%
If Len(upd) \> 0 Then
   Set Conn = Server.CreateObject("ADODB.Connection")
   Conn.open "DRIVER={Microsoft Access Driver (\*.mdb)};
DBQ=d:\\hotell\\www\\rby\\johannis\\db\\bredband.mdb"
   Set Cmd = Server.CreateObject("ADODB.Command")
   Cmd.ActiveConnection = Conn
   ssql = " Insert Into forum (did,amne,orig,namn,epost,inlagg,datum) values
(?,?,?,?,?,?,?) "
   Response.Write ssql & "\<br\>"
   Cmd.CommandText = ssql
   Cmd.CommandType = adCmdText
   Response.Write "id = " & id & " \<br\> "
   If Len(id) \< 1 Then id = "0"
   Set prm = Cmd.CreateParameter (,adVarChar,,Len(samne),samne)
   cmd.Paratmeters.Append prm
   If Len(oldamne) \> 0 Then
      Sorig = False
   Else
       Sorig = True
   End If
   Set prm = Cmd.CreateParameter (,adBoolean ,,,cBool(Sorig))
   Cmd.Parameters.Append prm
   Set prm = Cmd.CreateParameter (,adVarChar ,,Len(snamn),snamn)
   Cmd.Parameters.Append prm
   If NOT (Len(sepost) \> 0) Then sepost = "ingen adress"
   Set prm = Cmd.CreateParameter (,adVarChar ,,Len(sepostn),sepost)
   Cmd.Parameters.Append prm
   Set prm = Cmd.CreateParameter (,adVarChar ,,Len(sinlagg),sinlagg)
   Cmd.Parameters.Append prm
   Set prm = Cmd.CreateParameter (,adDBDate ,,,date)
   Cmd.Parameters.Append prm
   Conn.BeginTrans
         If Len(oldamne) \> o Then
      supdate = "Update forum Set Antal = Antal + 1, senaste = #" & date
      supdate = supdate & "# Where IID = " & id
      Response.Write supdate & " \<br\> "
      Conn.Execute supdate
      End If
      Response.Write "Params: "
      For z = 0 To Cmd.Parameters.Count -1
         Response.Write Cmd.Paramteres.Item(z).Value & " "
      Next
      Response.Write "\<br\>"
      Cmd.Execute
 Conn.CommitTrans
 Response.Write "Sparad"

 Else
 %\>

 Ämne:
 \<%
 If Len(oldamne) \> 0 Then
 Response.Write oldamne
 %\>

 \<input type="hidden" name="Amne" size="20" Value="\<%=oldamne%\>"\>

 \<% else %\>

 \<input type="text" Name="Amne" size="20"\>

 \<% end if %\>

 Namn: \<input type="text" Name="namn" size="20"\>
 \<br\>
 Epost: \<input type="text" Name="Epost" size="20"\>
 \<br\>
 Inlägg: \<textarea rows="4" Name="Inlagg" Cols="40"\>\</textarea\>
 \<input type="hidden" Name="dummy" size="20"\>
 \<input type="submit" Value="Skicka" Name="B1"\>
 \<input type="Reset" Value="Återställ" Name="Reset"\>

 \</form\>

 \<% end if %\>

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

## #2 — PelleJ, 2000-12-28T22:05Z

Gör det lite enklare för dig:

set con=server.createobject("adodb.connection")
con.open "mindsn","user","pw"

ssql = " Insert Into forum (did,amne,orig,namn,epost,inlagg,datum) values
(did,'" & amne & "','" & orig & "') "

con.execute ssql

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

## #3 — hyperD, 2000-12-28T22:07Z

ok, vad kan jag ta bort? och vad ska jag sätta in detta? \*undrar\*

tack!

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

## #4 — hyperD, 2000-12-28T23:32Z

provade att ändra

ssql = " Insert Into forum (did,amne,orig,namn,epost,inlagg,datum) values
(?,?,?,?,?,?,?) "

till det du sa, men fortfarande händer ingenting =( kollade även på din sida, där fanns ett forum, men hmm.. verkar va allt för "stort" för att jag ska behöva det, det enda jag vill ha är, ett enkelt forum, där man kan läsa inlägg, skriva ett nytt och besvara. ska de va så svårt =(

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

## #5 — hyperD, 2000-12-29T14:20Z

jag gav upp hoppet med den där forumet, provade en annan kodsnutt, men då så
får jag ett annat felmeddelande, nämligen.

ADODB.Recordset error '800a0cb3'
The operation requested by the application is not supported by the provider.
/johannis/bredband/forum/laggtill.asp, line 26

på följande kodsnutt:

\<%
  Dim RSAddMessage
  Dim SQL
  Dim Conn

  Set Conn = Server.CreateObject("ADODB.Connection")
  Conn.open "DRIVER={Microsoft Access Driver (\*.mdb)};
DBQ=d:\\hotell\\www\\rby\\johannis\\db\\bredband_forum.mdb"
  SQL = "SELECT \* FROM forum WHERE 1=2"
  Set RSAddMessage = Conn.Execute (SQL)
%\>

\<%
RSAddMessage.AddNew                     \<---------------------------------
rad 26
RSAddMessage("amne") = Request.Form("txtAmne")
RSAddMessage("namn") = Request.Form("namn")

      If Request.Form("epost") \> 0 Then
      RsAddMessage("epost") = Request.Form("epost")
      Else
      RsAddMessage("epost") = "ingen adress"
      End If

RsAddMessage("inlagg") = Request.Form("txtInlagg")
RsAddMessage("datum") = Now()

       If Request.Querystring("id") \> 0 Then
       RsAddMessage("orig") = TRUE
       Else
       RsAddMessage("orig") = FALSE
       End If

       If Request.Querystring("id") \> 0 Then
       supdate = "Update forum set antal = antal + 1, senaste = #" & Now() &
"# Where IID = " & Request.Querystring("id")
       Conn.Execute supdate
       End If

RsAddMessage.Update
%\>

kan någon hjälpa mig med hur jag ska skriva för att det ska funka, eller något annat sätt man kan göra det på så att det fungerar?

mvh / hyperD

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

## #6 — PelleJ, 2000-12-29T20:44Z

Om du skall använda .AddNew och .Update så måste du öppna recordsetet på ett annat sätt.. Läs även de kurser jag skrivit på SAND OnLine för att förstå skillnaderna..

rst.open "tabell", con, 3, 3

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

## #7 — hyperD, 2000-12-29T20:50Z

tackar för hjälpen! men i slutändan så visade sig att mitt webhotell helt plöstligt ändrat så jag inte hade några skrivrättigheter till databasen =(

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/7533-databasen-uppdateras-inte