---
title: "Hjälp asp"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/42923-hjälp-asp"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Anders Persson"
published: "2002-05-02T12:34:25.000Z"
updated: "2002-05-02T12:34:25.000Z"
replies: 0
views: 220
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/42923-hjälp-asp"
---

# Hjälp asp

## #1 — Anders Persson, 2002-05-02T12:34Z

Nedanstående ASP script code1 lägger till en ny användare i  databasen Access

Scriptet är på två sidor första sidan skriver jag bara in en ny användare. Sida två lägger till användaren i databasen.

Första sidan är byggt som ett formulär 
\<form action="update.asp?method=Add" method="Post"\>

Om jag inte skriver in en ny användare och klickar på submit får jag upp texten enligt code2

Istälet för error meddelandet vill jag komma tillbaka så att jag kan skriva in en ny användare.
Jag får inte if satsen att fungera som det är tänkt.

if satsen är tänkt. Om jag inte har skrivit in någon ny användare. När jag klickar på knappen submit  ska jag komma till sidan där jag skriver in en ny användare och inte få upp ett error meddelande som jag får nu.

'If UserName = "" Or FNAMN = "" Or ENAMN = "" Or ADRESS = "" Or POSTNR = "" Or ORT = ""  Or EPOST = "" Or 'PassWord = '"" Or Level '= "" Or ExpDate = "" Then Response.Redirect "Admin4.asp"

Field 'DELTAGARE.POSTNR' cannot be a zero-length string. 

Jag vill inte ändra på field egenskaperna.

Tacksam för svar: 

code1

Dim Method

Method = Request.QueryString("method")

Select Case Method
  Case "Add"
    Add(MyConn)
  Case "Edit"
    Edit(MyConn)
  Case "Delete"
    Delete(MyConn)
End Select

Sub Add(MyConn)

  Dim UserName, FNAMN, ENAMN, ADRESS, POSTNR, ORT, TELEFON, EPOST, FORETAG, BEFATTNING, KONTAKTPER, PassWord, Level, ExpDate, SQL, RS

 'If UserName = "" Or FNAMN = "" Or ENAMN = "" Or ADRESS = "" Or POSTNR = "" Or ORT = ""  Or EPOST = "" Or 'PassWord = '"" Or Level '= "" Or ExpDate = "" Then Response.Redirect "Admin4.asp"

'RS.AddNew

  UserName = Replace(Trim(Request.Form("UserName")), "'", "''")
  FNAMN = Replace(Trim(Request.Form("FNAMN")), "'", "''")
  ENAMN = Replace(Trim(Request.Form("ENAMN")), "'", "''")
  ADRESS = Replace(Trim(Request.Form("ADRESS")), "'", "''")
  POSTNR = Replace(Trim(Request.Form("POSTNR")), "'", "''")
  ORT = Replace(Trim(Request.Form("ORT")), "'", "''")
  TELEFON = Replace(Trim(Request.Form("TELEFON")), "'", "''")
  EPOST = Replace(Trim(Request.Form("EPOST")), "'", "''")
  FORETAG = Replace(Trim(Request.Form("FORETAG")), "'", "''")
  BEFATTNING = Replace(Trim(Request.Form("BEFATTNING")), "'", "''")
  KONTAKTPER = Replace(Trim(Request.Form("KONTAKTPER")), "'", "''")
  PassWord = Replace(Trim(Request.Form("PassWord")), "'", "''")
  Level = Trim(Request.Form("level"))
  ExpDate = Trim(Request.Form("expdate"))
  
  SQL = "INSERT INTO DELTAGARE (UserName, \[PassWord\], Clearance, FNAMN, ENAMN, ADRESS, POSTNR, ORT, TELEFON, EPOST, FORETAG, BEFATTNING, KONTAKTPER,  ExpireDate) Values('"&UserName&"', '"&PassWord&"', '"&Level&"', '"&FNAMN&"', '"&ENAMN&"', '"&ADRESS&"', '"&POSTNR&"', '"&ORT&"', '"&TELEFON&"', '"&EPOST&"', '"&FORETAG&"', '"&BEFATTNING&"', '"&KONTAKTPER&"', '"&ExpDate&"')"

(Rad 47)  Set RS = MyConn.Execute(SQL) 
 
'Rs.Update
  CleanUp2()
  
  Response.Redirect "admin11.asp"

End Sub

code2

Microsoft OLE DB Provider for ODBC Drivers error '80004005' 

\[Microsoft\]\[ODBC Microsoft Access Driver\] Field 'DELTAGARE.POSTNR' cannot be a zero-length string. 

/petertest/Anders/pw/update.asp, line 47

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/42923-hjälp-asp