--- title: "On error....." type: "forum-thread" url: "https://www.webforum.nu/amne/asp/14128-on-error" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "Bj" published: "2002-02-01T06:35:00.000Z" updated: "2002-02-01T11:10:00.000Z" replies: 11 views: 218 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/14128-on-error" --- # On error..... ## #1 — Bj, 2002-02-01T06:35Z Nedanstående "On Error Resume Next" funkar på en WXp-maskin med IIS men inte på w98 och PWS samt på den sever där jag har scriptet. ¨Någon som veet vad det beror på? ``` On Error Resume Next Set Connect = Server.CreateObject("ADODB.Connection") Set RecSet = Server.CreateObject("ADODB.Recordset") Connect.Open "DSN=databasen;UID=;PWD=" Set RecSet = Server.CreateObject("ADODB.Recordset") Addera = "SELECT * FROM adressbok" RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic RecSet.AddNew RecSet("Kundnummer") = Request.Form("kundnummer") RecSet("Kundfornamn") = Request.Form("kundfornamn") RecSet.Update RecSet.Close Connect.Close If Err.Number<>0 then Response.redirect ("fel.asp") end if ``` Permalänk: https://www.webforum.nu/p/14128 ## #2 — @nders, 2002-02-01T07:01Z Vad menar du med att det inte funkar? Permalänk: https://www.webforum.nu/p/309002 ## #3 — Bj, 2002-02-01T07:09Z Om man fyller i ett kundnummer som redan finns skall man i stället för att komma till den "fula sidan" att dubletter inte tillåts komma till sidan "fel.asp" Detta funkar på xb-maskinen men inte på servern eller på en w98-maskin. På dessa maskiner kommer det bara att registreringen har lyckats. Permalänk: https://www.webforum.nu/p/309003 ## #4 — @nders, 2002-02-01T07:11Z Samma databas / primärnyckel i tabellen? Permalänk: https://www.webforum.nu/p/309004 ## #5 — Bj, 2002-02-01T07:21Z Ja det är en och samma databas. ID (Räknare) Primärnyckel Kundnummer (inga dubletter) kundfornamn osv osv \[Redigerat av Bj den 01 feb 2002\] Permalänk: https://www.webforum.nu/p/309005 ## #6 — @nders, 2002-02-01T07:42Z Ok, då tar vi och gör det på rätt sätt då, genom att först kontrollera att kundnumret är ledigt. Jag har antagit att kundnummer är ett talfält i din tabell. ``` Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "DSN=databasen;UID=;PWD=" strSQL = "SELECT 1 FROM adressbok WHERE kundnummer = " & Trim(Request.Form("kundnummer")) set RecSet = Connect.Execute (strSQL) if RecSet.eof then ' kundnumret ledigt! strSQL = "INSERT INTO adressbok(Kundnummer, Kundfornamn) VALUES (" & Trim(Request.Form("kundnummer")) & ", '" & Request.form("kundfornamn") & "')" Connect.execute strSQL,,128 else ' kundnumret är upptaget! fel = 1 end if RecSet.close Set RecSet = Nothing Connect.Close Set Connect = Nothing If fel<>"" then Response.redirect "fel.asp" ``` Mvh, Permalänk: https://www.webforum.nu/p/309006 ## #7 — Bj, 2002-02-01T09:17Z Tack @nders. Jag fick tyvärr ngt mismatch men det skall jag kolla igenom vad det beror på. Jag använder en liten annan metod när jag lägger in i databasen. Skickar med koden nedan.. Går det att göra på det sätt du visade Anders i mitt exempel nedan. ``` <% On Error Resume Next Set Connect = Server.CreateObject("ADODB.Connection") Set RecSet = Server.CreateObject("ADODB.Recordset") Connect.Open "DSN=databasen;UID=;PWD=" Set RecSet = Server.CreateObject("ADODB.Recordset") Addera = "SELECT * FROM adressbok" RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic RecSet.AddNew RecSet("Kundnummer") = Request.Form("kundnummer") RecSet("Kundfornamn") = Request.Form("kundfornamn") RecSet("Kundefternamn") = Request.Form("kundefternamn") RecSet("Kundadress") = Request.Form("kundadress") RecSet("Kundpnr") = Request.Form("kundpnr") RecSet("Kundort") = Request.Form("kundort") RecSet.Update RecSet.Close Connect.Close If Err.Number<>0 then Response.redirect ("fel.asp") end if %> Följande uppgifter har nu lagts till i kundregistret:

Kundnr: <% =Request.Form("kundnummer") %>
Förnamn: <% =Request.Form("kundfornamn") %>
Efternamn: <% =Request.Form("kundefternamn") %>
Adress: <% =Request.Form("kundadress") %>
Pnr: <% =Request.Form("kundpnr") %>
Ort: <% =Request.Form("kundort") %>
``` \[Redigerat av Bj den 01 feb 2002\] Permalänk: https://www.webforum.nu/p/309007 ## #8 — @nders, 2002-02-01T09:25Z Vad har du för datatyper på fälten då? Ja, allt går att göra med riktiga SQL-frågor, men beroende på vad fälten har för datatyper skriver man annorlunda. Mvh, Permalänk: https://www.webforum.nu/p/309008 ## #9 — Bj, 2002-02-01T10:10Z Det funkar fint när jag har "Tal" satt på Kundnummer. Problemet är nu att sedan jag ändrade Kundnummer i databasen till "Tal" i stället för "Text" så funkar inte allt det andra som jag är klar med. Då blir det mismatch där i stället....hmm Permalänk: https://www.webforum.nu/p/309009 ## #10 — @nders, 2002-02-01T10:11Z Där datatypen är text skall du ha apostrofer runt värdena i dina SQL-frågor. Därav min fråga om datatyper ovan. Mvh, Permalänk: https://www.webforum.nu/p/309010 ## #11 — Bj, 2002-02-01T10:26Z Oki. Men... lyckades inte... Var sätter man apostroferna? (Stackars @nders) Permalänk: https://www.webforum.nu/p/309011 ## #12 — @nders, 2002-02-01T11:10Z Enligt mitt första exempel: ``` strSQL = "INSERT INTO adressbok(Kundnummer, Kundfornamn) VALUES (" & Trim(Request.Form("kundnummer")) & ", [b]'[/b]" & Request.form("kundfornamn") & "[b]'[/b])" ``` Så, om du ska ha kundnummer som ett textfält också: ``` strSQL = "INSERT INTO adressbok(Kundnummer, Kundfornamn) VALUES ([b]'[/b]" & Trim(Request.Form("kundnummer")) & "[b]'[/b], [b]'[/b]" & Request.form("kundfornamn") & "[b]'[/b])" ``` Ska du ha mer fält är det bara att lägga till dem i frågan. :) Mvh, Permalänk: https://www.webforum.nu/p/309012 --- Tråden på webben: https://www.webforum.nu/amne/asp/14128-on-error