<% if Session("LoginStatus")<>"yes" then response.Redirect("noauthority.asp") end if %>
SMALL CYCLADES MANAGER >LINKS MANAGER>VIEW/MODIFY ENTRIES
<% FUNCTION fixme(theString) fixme=REPLACE(theString,"'","`") END FUNCTION typer=request.Form("type") coder=request.Form("coder") desc=request.Form("desc") descen=request.Form("descen") link=request.Form("link") key=request.Form("key") keyen=request.Form("keyen") priority=request.Form("priority") hdd=request.Form("hd") myDSN="DRIVER={MySQL ODBC 3.51 Driver}; SERVER=smallcycl.ipowermysql.com; DATABASE=ferrari_default; UID=ferrari;PASSWORD=!antihack!; OPTION=3" set myconnection=server.createobject("adodb.connection") myconnection.open myDSN sql="UPDATE `links` SET `link` = '" & fixme(link) & "',`desc` = '" & fixme(desc) & "',`descen` = '" & fixme(descen) & "',`keywords` = '" & fixme(key) & "',`keywordsen` = '" & fixme(keyen) & "',`priority` = '" & fixme(priority) & "',`vtype` = '" & fixme(coder) & "',`type` = '" & fixme(typer) & "' WHERE `id` = " & hdd myconnection.execute sql %> CHANGE COMPLETE ON ENTRY NO <% response.Write (hdd) %>
>>VIEW/ MODIFICATE LINKS
>>LINKS MANAGER
>>MAIN MENU