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 %>