<%
On error resume next
Dim intNumSlide
Dim strSQLProdotto
Dim ConnDbValplastic
Dim blnSlide
Dim blnAv
Dim url
blnSlide = Cbool(Request.QueryString("rw"))
intNumSlide = Cint(Request.QueryString("slide"))
blnAv = Cbool(Request.QueryString("aw"))
if intNumSlide = 0 then
intNumSlide = 1
blnAv = true
End If
strSQLProdotto = "SELECT * FROM tblSlideProdotti"
strSQLProdotto = strSQLProdotto & " WHERE ID=" & intNumSlide
ConnString = Application("ConnDbValplastic_ConnectionString")'Da Global.asa Variabile Application
Set ConnDbValplastic = Server.CreateObject("ADODB.Connection")
ConnDbValplastic.Open ConnString
Set rsProdotti = SERVER.CreateObject("ADODB.Recordset")
rsProdotti.Open strSQLProdotto, ConnDbValplastic, adOpenStatic, adLockReadOnly, adCmdText
strdidascalia = rsProdotti.Fields("didascalia")
' Test Ultimo Rec
if rsProdotti.Fields("RecPos")="FIN" then
blnAv = false
End if
' Test 1° Rec
if rsProdotti.Fields("RecPos")="INZ" then
blnSlide = false
end if
url = rsProdotti.Fields("url")
rsProdotti.Close
set rsProdotti = nothing
%>
