--- title: "Konstigt..." type: "forum-thread" url: "https://www.webforum.nu/amne/asp/11883-konstigt" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "ReloadMaster" published: "2001-10-01T14:10:00.000Z" updated: "2001-10-01T14:11:00.000Z" replies: 1 views: 178 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/11883-konstigt" --- # Konstigt... ## #1 — ReloadMaster, 2001-10-01T14:10Z Någon som kan hitta felet här: ``` <% ID = Request.Querystring("ID") fid = Request.Querystring("FID") oldamne = Request.Querystring("rubrik") upd = Request.Form("dummy") If Len(oldamne) > 0 Then samne = oldamne Else samne = Request.Form("Amne") End If snamn = Request.Form("Namn") sinlagg = Request.Form("Inlagg") If Len(oldamne) > 0 Then Sorig = 0 Else Sorig = 1 End If %> Community - _ _ _ _ _ _.nu

Tillbaka till forumet
<% If Len(upd) > 0 Then Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& Server.MapPath("communitydb.mdb") If Len(id) < 1 Then id = "0" ssql = "Insert Into forum (Iid, Rubrik, ORIG, [Namn],Meddelande, " ssql = ssql & "[datum]) values (" & cInt(id) & ",'" & samne & "'," & Sorig & ",'" & snamn & "','" & sinlagg & "',now())" Connect.BeginTrans If Len(oldamne) > 0 Then supdate="UPDATE forum SET Antal=Antal + 1 WHERE ID = " & fid Connect.Execute supdate End If Connect.Execute ssql,,128 Connect.CommitTrans Response.Write "Inlägg Sparat!" Else %>

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

<%Else%>

<%End If %> <% Set Connect2 = Server.CreateObject("ADODB.Connection") Connect2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& Server.MapPath("communitydb.mdb") SQL = "SELECT * FROM medlemmar WHERE ID="&ID&"" Set RecSet = Connect.Execute(SQL) an = RecSet("anvandarnamn") lo = RecSet("losenord") %> Namn:

Inlägg:

<% End If %> <% RecSet.Close Set RecSet = Nothing Connect2.Close Set Connect2 = Nothing %> ``` Felmeddelande: Körningsfel i Microsoft VBScript fel '800a01a8' Objekt krävs.: '' Permalänk: https://www.webforum.nu/p/11883 ## #2 — Vide, 2001-10-01T14:11Z Du försöker att använda ett objekt som du inte skapat ännu, kolla på vilken rad så ser du. :) Permalänk: https://www.webforum.nu/p/287808 --- Tråden på webben: https://www.webforum.nu/amne/asp/11883-konstigt