Le Terre di Ransagor
Menu principale:
ammlink
Area riservata
<%
if session("LogIn")<> "Ok" then
response.redirect "login.htm"
End if
if session("abilitatolink")<>"1" then
response.redirect "login.htm"
end if
set con=Server.CreateObject("ADODB.Connection")
con.Provider="Microsoft.Jet.OLEDB.4.0"
con.Open Server.MapPath("mdb-database/database.mdb")
if request.querystring("aggiornalink")=1 then
id=request.querystring("ID")
s="UPDATE links SET Titolosito='"&request.form("titolo")&"',Descrizione='"&request.form("descrizione")&"',Banner='"&request.form("codice")&"',URL='"&request.form("url")&"',urltest='"&request.form("urltest")&"',emailavvisi='"&request.form("e-mail")&"',dateavvisi='"&request.form("dateavvisi")&",Modificato il profilo"& NOW &"' WHERE id="&id
SET rs=con.execute(s)
response.redirect("ammlink.asp")
End if
if request.querystring("nuova")=1 then
s="INSERT INTO links (titolosito,Descrizione,Banner,URL,urltest,approvato,testato,avviso,dateavvisi,oktest,emailavvisi) VALUES('MODIFICA QUI PER UN NUOVO LINK!','0','0','0','0','0','0','0','Link creato il"&now&"','0','0')"
SET rs=con.execute(s)
response.redirect("ammlink.asp")
End if
if request.querystring("approva")=1 then
id=request.querystring("id")
s="UPDATE links SET approvato=1 WHERE id="&id
set rs=con.execute(s)
response.redirect("ammlink.asp")
End if
if request.querystring("deapprova")=1 then
id=request.querystring("id")
s="UPDATE links SET approvato=0 WHERE id="&id
set rs=con.execute(s)
response.redirect("ammlink.asp")
End if
if request.querystring("cancella")=1 then
id=request.querystring("id")
s="DELETE FROM links WHERE id="&id
set rs=con.execute(s)
response.redirect("ammlink.asp")
End if
if request.querystring("avviso")=1 then
id=request.querystring("id")
s="UPDATE links SET avviso=1 WHERE id="&id
set rs=con.execute(s)
response.redirect("ammlink.asp")
End if
if request.querystring("deavviso")=1 then
id=request.querystring("id")
s="UPDATE links SET avviso=0 WHERE id="&id
set rs=con.execute(s)
response.redirect("ammlink.asp")
End if
if request.querystring("testautomatico")=1 then
id=request.querystring("id")
s="UPDATE links SET oktest=1 WHERE id="&id
set rs=con.execute(s)
response.redirect("ammlink.asp")
End if
if request.querystring("detestautomatico")=1 then
id=request.querystring("id")
s="UPDATE links SET oktest=0 WHERE id="&id
set rs=con.execute(s)
response.redirect("ammlink.asp")
End if%>
|
|
||||||||||||||||||||||||
