Radera tomma poster automatiskt??

Visa kod.

;)

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]

Ingen som har ett förslag eller vet?

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

------------------
Daniel Olsson - Vävkonsult

Personlig sida
KjAM Sekten Community

/N