<% intLinkSerial= Request.form("LinkSerial") strName= Request.form("Name") Call Apostrophe(strName) strURL= Request.form("URL") strEmail= Request.form("Email") strLocation= Request.form("Location") strDescription= Request.form("Description") Call Apostrophe(strDescription) strUserName= Request.form("UserName") strCategory= Request.form("Category") %> <% SQL1= "UPDATE Links SET Name= '"& strName &"'," _ &" URL= '"& strURL &"'," _ &" Email= '"& strEmail &"'," _ &" Location= '"& strLocation &"'," _ &" Description= '"& strDescription &"'," _ &" Category= '"& strCategory &"'," _ &" WHERE LinkSerial= "& intLinkSerial &"" Response.write "

SQL: "& SQL1 &"

" set conn = server.createobject ("adodb.connection") conn.open strDataSourceLinks conn.execute (SQL1) conn.Close Set conn = Nothing Response.write "

Update completed for link number "& intLinkSerial &".

" %>


<% ' Pause 'Pause= DateAdd("s", 3, Now) 'Do until Pause= Now 'Loop ' Retrieve last record, get advertisement number 'set conn = server.createobject ("adodb.connection") ' conn.open strDataSource 'set RSAdvert = conn.Execute("SELECT AdvertSerial FROM Advert ORDER BY AdvertSerial Desc") 'intNewAdvertNum= RSAdvert("AdvertSerial") 'conn.Close 'Set conn = Nothing 'Set RSAdvert= Nothing %>
Edit Link - 2

Link updated.
  <% ' =intNewAdvertNum %>
     
Return to Links Home Page
<% Function Apostrophe (string) string= Replace(string, "'", "''") End Function %>