<% If Request.form("Delete")<> 1 then If IsNull(Request.form("LinkSerial")) or IsEmpty(Request.form("LinkSerial")) then %>

Delete a Link

 
Enter link number & user name:  
Link number:  
User name:  
   
<% Else intLinkSerial= Request.form("LinkSerial") strUserName= Request.form("UserName") SQL1= "SELECT * FROM Links WHERE LinkSerial = "& intLinkSerial &" AND UserName= '"& strUserName &"'" Response.write SQL1 set conn = server.createobject ("adodb.connection") conn.open strDataSourceLinks set RSLinks = conn.Execute (SQL1) ' RSAdvert("Category") ' RSAdvert("Headline") ' RSAdvert("Description") ' RSAdvert("BusinessName") ' RSAdvert("ContactName") ' RSAdvert("ContactName") ' RSAdvert("Email") ' RSAdvert("City") ' RSAdvert("State") ' RSAdvert("FileName") If Not RSLinks.EOF then %>
 
Link number: <%= intLinkSerial %> User Name: <%= strUserName %>
<% Do Until RSLinks.EOF %> <% RSLinks.MoveNext Loop %>
<% response.write RSLinks("Name")%>
<% response.write RSLinks("Description")%>
URL: <% response.write RSLinks("URL")%>
Click to permanently delete this link:

 

Links Home Page

<% Else %>
Invalid link number or user name. Check, and try again.
<% End If %> <% conn.Close Set conn = Nothing End If Else ' Delete record intLinkSerial= Request.form("LinkSerial") SQL1= "DELETE * FROM Links WHERE LinkSerial = "& intLinkSerial &"" Response.write SQL1 set conn1 = server.createobject ("adodb.connection") conn1.open strDataSourceLinks conn1.Execute (SQL1) %>
Link deleted.  
<% End If %>
Links Home Page