---
title: "Radera tomma poster automatiskt??"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/5583-radera-tomma-poster-automatiskt"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "tapani"
published: "2000-04-18T07:43:00.000Z"
updated: "2000-04-20T08:06:00.000Z"
replies: 4
views: 202
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/5583-radera-tomma-poster-automatiskt"
---

# Radera tomma poster automatiskt??

## #1 — tapani, 2000-04-18T07:43Z

Finns det något enkel kod för att ta bort tomma poster.

Koden jag använder mig av är väldigt lång så
jag lägger inte upp den här men när jag går
in för att lägga till en kund och avbryter
utan att lägga in uppgifter så skapas en
post ändå..

Så nu vill jag att posten tas bort på något
sätt automatiskt när jag typ loggar ur eller
går till ny sida..

Eller det kanske är enklast att rota i koden
och ta bort själva strängen som skapar posten?
Har försökt men får bara en massa felmeddelanden.

Har Ni några förslag?

Tack på förhand..

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

## #2 — emission, 2000-04-18T11:58Z

Visa kod.

;)

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

## #3 — tapani, 2000-04-18T13:02Z

Här är koden:
\---------------------------------------------

\<%
 Sub UpdateField(sField)
  On error resume next
  Data = Request.Form(sField)
  If Len(Data) = 0 Then
    rsContact(sField) = Null			
  Else
    rsContact(sField) = Data	
  End if
 End Sub
	
 If Len(Session("UserID")) \> 0 Then
   ContactID = Request.QueryString("contactid")

   CurrentTab = Request.Form("CurrentTab")
   If Len(CurrentTab)=0 Then
     CurrentTab = Request.Querystring("CurrentTab")
     If Len(CurrentTab)=0 Then CurrentTab = 0
   End If

   If Len(Request.Form("EmailEdit")) \> 0 AND Request.Form("EmailAddresses") Then
     Response.redirect "editemailaddress.asp?CurrentTab=" & CurrentTab & "&" & "EmailAddress=" & Request.Form("EmailAddresses") & "&Contact=" & ContactID
   End If

   Set objConn = CreateObject("ADODB.Connection")
   objConn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=I:\\Inetpub\\cgi-bin\\ha\\contact.mdb")
   If Len(ContactID) \> 0 Then
     Set rsContact = CreateObject("ADODB.Recordset")
     Set rsContact.ActiveConnection = objConn
     rsContact.Locktype = 2
     rsContact.Open("SELECT \* FROM Contacts WHERE ContactID=" & ContactID & " AND UserID=" & Session("UserID") )
     If rsContact.BOF AND rsContact.EOF Then
       Response.redirect "contacts.asp"			
     End If
			
     Set rsEmailAddresses = CreateObject("ADODB.Recordset")
     Set rsEmailAddresses.ActiveConnection = objConn
				    	
     If Len(Request.Form("EmailRemove")) \> 0 Then
       rsContact("DefaultEmail") = Null
       rsContact.Update
       objConn.Execute "DELETE FROM EmailAddresses WHERE EmailID=" & Request.Form("EmailAddresses") & " AND ContactID=" & ContactID & " AND UserID="  & Session("UserID")
     End If
     rsEmailAddresses.Locktype = 2
     rsEmailAddresses.Open("SELECT \* FROM EmailAddresses WHERE ContactID=" & ContactID & " AND UserID=" & Session("UserID"))
							
     If Len(Request.Form("AddEmail")) \> 0 Then ' Add an Email address
       If Len(Request.Form("txtAddEmail")) \> 0 Then
         rsEmailAddresses.AddNew
         rsEmailAddresses("EmailAddress") = Request.Form("txtAddEmail")
         rsEmailAddresses("ContactID") = ContactID
         rsEmailAddresses("UserID") = Session("UserID")
         rsEmailAddresses.Update
       End IF
     End If
	
       If Len(Request.Form("SaveChanges")) \> 0 Or Len(Request.Form("EmailSetDefault")) \> 0 Or  Len(Request.Form("EmailRemove"))\>0 Or Len(Request.Form("AddEmail")) \> 0 Then ' Update Database
         If Len(Request.Form("EmailSetDefault")) \> 0 Then
           If Len(Request.Form("EmailAddresses")) \> 0 Then
             rsContact("DefaultEmail") = Request.Form("EmailAddresses")
           End If
         End If
	' Name
         UpdateField "FirstName"
         UpdateField "MiddleName"
         UpdateField "LastName"
         UpdateField "Title"
         UpdateField "Nickname"
         UpdateField "Birthday"
         UpdateField "LastName"
         ' Home
         UpdateField "HomeStreetAddress"
         UpdateField "HomeCity"
         UpdateField "HomeProvince"
         UpdateField "HomeZipCode"
         UpdateField "HomeCountry"
         UpdateField "HomePhone"
         UpdateField "HomeFax"
         UpdateField "HomeMobile"
         UpdateField "PersonalWebPage"
         ' Work
         UpdateField "Company"
         UpdateField "WorkStreetAddress"
         UpdateField "WorkCity"
         UpdateField "WorkProvince"
         UpdateField "WorkZipCode"
         UpdateField "WorkCountry"

         UpdateField "JobTitle"
         UpdateField "Department"
         UpdateField "Office"
         UpdateField "WorkPhone"
         UpdateField "WorkFax"
         UpdateField "WorkPager"
         UpdateField "CompanyWebSite"
         UpdateField "Notes"				
			
	rsContact.Update
      End If
    					
      EmailAddresses =""
      DefaultEmailID = rsContact("DefaultEmail")
      If Not rsEmailAddresses.BOF Then rsEmailAddresses.MoveFirst

      Do While Not rsEmailAddresses.EOF
        EmailID = rsEmailAddresses("EmailID")
        EmailAddresses = EmailAddresses & "\<option value=""" & EmailID & """\>"

        If EmailID = DefaultEmailID Or IsNull(DefaultEmailID) Then
          If IsNull(DefaultEmailID) Then
            DefaultEmaiID =rsEmailAddresses("EmailID")
            rsContact("DefaultEmail") = DefaultEmaiID
            rsContact.Update    		   			
          End If
          EmailAddresses = EmailAddresses & "\* " 
          DefaultEmail =  rsEmailAddresses("EmailAddress")					
        End If
        EmailAddresses = EmailAddresses & rsEmailAddresses("EmailAddress")  & "\</option\>"
        rsEmailAddresses.MoveNext
      Loop
      rsEmailAddresses.close
      Set rsEmailAddresses = Nothing
     Else
       If Len(Request.QueryString("AddNew")) \> 0 Then
         Set rsContact = CreateObject("ADODB.Recordset")
         Set rsContact.ActiveConnection = objConn
         rsContact.Locktype = 2
         rsContact.Open("SELECT \* FROM Contacts WHERE 1=2")
         rsContact.AddNew
         rsContact("UserID") = Session("UserID")
         rsContact.Update
         ContactID = rsContact("ContactID")
       Else		
         Response.Redirect "contacts.asp"
       End If
  End If
 Else
   Response.Redirect "default.asp"
 End If
%\>			
\---------------------------------------------
Är det lättare nu ;)		

\[Redigerat av tapani den 18 apr 2000\]

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

## #4 — tapani, 2000-04-20T07:01Z

Ingen som har ett förslag eller vet?

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

## #5 — nanne, 2000-04-20T08:06Z

Det enda jag kommer på är att du sätter en DELETE WHERE nåtfält="" i SessionOnEnd i global.asa och i ditt logoutscript.

typ

liksom

barasådär

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/5583-radera-tomma-poster-automatiskt