<%@LANGUAGE="VBSCRIPT" CODEPAGE="1253"%> APPLICATION MANAGER <% if Session("LoginStatus")<>"yes" then response.Redirect("noauthority.asp") end if %> <% prod=request.QueryString("whichnew") objDB="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 set ets=server.CreateObject("adodb.recordset") ets.activeconnection=myconnection sql="select * from links where id=" & prod ets.open sql,myconnection session("currentnews")=prod %> <% Select Case request("typer") case "gif" %>
<% case "jpg" %>
<% case "swf" %>
<% end select %>