tks jan267 ma niente da fare .
a questo punto penso che sia un problema teorico
devo capire se è possibile luppare su pagina asp e passare dato/dati senza un form e riceverlio con il solo comando
Request("xxxx")
invio lo script
per il santo che avrà la pazienza di leggerlo
tks a tutti
<HTML>
<HEAD>
<title>ProvaFrancesco</title>
<%titolo="Prova pagina ASP "%>
</HEAD>
<body>
<%Response.write titolo%>
<% Dim DBConn
Set DBConn = Server.CreateObject("ADODB.Connection")
DBConn.Open "Catalogo"
Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
RecordsPerPagina="5"
page = Request("pag")
if page = "" then page = 1
strSQL = "SELECT * FROM Libri"
objRS.open strSQL, DBConn, 1
objRS.PageSize = RecordsPerPagina
objRS.AbsolutePage= page
if objRS.EOF = "True" or objRS.BOF = "True" then
Response.write "<p> nessun risultato </p>"
response.write objRS.EOF
Else
Response.write objRS.EOF
Response.write "<center><table border=1><tr><th>Nome prodotto</th><th>Tipo prodotto</th><th>colore</th> </tr>"
for i=1 to RecordsPerPagina
if Not objRS.EOF then
Response.write("<tr><td>" & objRS.fields("Idscrittore") & "</td>")
response.write("<td>" & objRS.fields("Idlibro") & "</td>")
response.write("<td>" & objRS.fields("Idcategoria") & "</td>")
response.write("<td>" & objRS.fields("titolo") & "</td>")
objRS.MoveNext
End if
Next
response.write ("</table></center>")
End if
response.write "<p><b>pagine;</b> "
For pag = 1 to objRS.PageCount
Response.write "<a href= 'test1.asp? page=" & pag & "'>"
Response.write pag
Response.write "</a>"
Next
Response.write "</p>"
objRS.Close
Set objRS=Nothing
DBConn.Close
Set DBConn=Nothing
%>
</body>
</HTML>
a questo punto penso che sia un problema teorico
devo capire se è possibile luppare su pagina asp e passare dato/dati senza un form e riceverlio con il solo comando
Request("xxxx")
invio lo script
per il santo che avrà la pazienza di leggerlo
tks a tutti
<HTML>
<HEAD>
<title>ProvaFrancesco</title>
<%titolo="Prova pagina ASP "%>
</HEAD>
<body>
<%Response.write titolo%>
<% Dim DBConn
Set DBConn = Server.CreateObject("ADODB.Connection")
DBConn.Open "Catalogo"
Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
RecordsPerPagina="5"
page = Request("pag")
if page = "" then page = 1
strSQL = "SELECT * FROM Libri"
objRS.open strSQL, DBConn, 1
objRS.PageSize = RecordsPerPagina
objRS.AbsolutePage= page
if objRS.EOF = "True" or objRS.BOF = "True" then
Response.write "<p> nessun risultato </p>"
response.write objRS.EOF
Else
Response.write objRS.EOF
Response.write "<center><table border=1><tr><th>Nome prodotto</th><th>Tipo prodotto</th><th>colore</th> </tr>"
for i=1 to RecordsPerPagina
if Not objRS.EOF then
Response.write("<tr><td>" & objRS.fields("Idscrittore") & "</td>")
response.write("<td>" & objRS.fields("Idlibro") & "</td>")
response.write("<td>" & objRS.fields("Idcategoria") & "</td>")
response.write("<td>" & objRS.fields("titolo") & "</td>")
objRS.MoveNext
End if
Next
response.write ("</table></center>")
End if
response.write "<p><b>pagine;</b> "
For pag = 1 to objRS.PageCount
Response.write "<a href= 'test1.asp? page=" & pag & "'>"
Response.write pag
Response.write "</a>"
Next
Response.write "</p>"
objRS.Close
Set objRS=Nothing
DBConn.Close
Set DBConn=Nothing
%>
</body>
</HTML>
