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