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