<%Response.Buffer=True%> Untitled Document <% sProgram=Request.Querystring("ID") Dim sAdress Set Conn = Server.CreateObject("ADODB.connection") dTemp="DRIVER={Microsoft Access Driver (*.mdb)}; " ' dtemp=dTemp & ("DBQ=" &server.mappath ("db\lankar.mdb")) dtemp=dTemp & ("DSN=d5688_lankar;Password=dxt-53A5D") Conn.Open dTemp sTemp = "SELECT * from Programz_asp ORDER BY ID" Set Rs = Server.CreateObject("ADODB.Recordset") Rs.Open sTemp, Conn, 3, 3 sAdress="OK" If sAdress="OK" then Raknare=Rs(sProgram)+1 Else Raknare=Rs(sProgram)+0 End if If sProgram="Progfix" then sWhich="http://www.wintrix.net/Pppr/Progfix.zip" End if If sProgram="Progfix5" then sWhich="http://www.wintrix.net" End if If sProgram="TMV" then sWhich="http://www.wintrix.net" End if If sProgram="ADSL" then sWhich="http://www.wintrix.net" End if If sProgram="Fuling" then sWhich="http://www.wintrix.net" End if If sProgram="DAX" then sWhich="http://www.wintrix.net/Pppr/DAXsetup.exe" End if If sProgram="CFix" then sWhich="http://www.wintrix.net/Pppr/C_Fix.zip" End if Conn.execute("update Programz_asp SET "& sProgram &" ='"& Raknare &"' WHERE ID=1 ") Response.Redirect(sWhich) Conn.Close Rs.close Set Rs=Nothing Set Conn=Nothing Response.Redirect("http://www.wintrix.net/fel.htm") %>