passare le variabili

[ettorpa]

ciao a tutti,
ho un problema su come passare l'id di un record da una pagina asp all'altra.

nella pagina utenti.asp ho una serie di record estratti dal db
esempio: codice,ragionesociale,descrizione etc.

ora dovrei rendere questi record linkabili.
in effetti dovrei creare un link sul campo ragionesociale e fare in modo di passare l'id della ragionesociale sulla pagina "reg_rma_sea.asp" e visualizzare appunto solo il record specifico con i dati ad esso associati.

nella pagina utenti.asp ho creato anche delle session tipo:
Session("ragionesociale")= rs("ragionesociale")
Session("id")= rs("id")

es: <a href="reg_rma_sea.asp?id"><%response.write(ragione sociale)%>


credo di aver sbagliato qualcosa...qualcuno potrebbe darmi un aiutino?

non sono molto bravo con le asp... :-(

[Roby_72]

Quelle sessioni a cosa ti servono se nella pagina elenchi diverse ragioni sociali (e diversi id)?

ragionesociale = rs("ragionesociale")
id = rs("id")

<%response.write(ragionesociale)%> 

Roby

[ettorpa]

infatti non servono affatto roby...provo a correggere

[ettorpa]

<%response.write(ragionesociale)%>


perchè mi punta sempre sullo stesso id? va sempre sull'id1 (mario) e cioè il primo record

esempio:

id1=mario
id2=ettore
id3=antonio
etc.....

[Roby_72]

Ma il ciclo di estrazione dei record dal recordset l'hai fatto???

Roby

[ettorpa]

ti posto il codice della pagina reg_rma_sea.asp..ovviamente una parte del codice


<%
Dim conn
set conn=Server.CreateObject("adodb.connection")
conn.open"Driver={Microsoft Access Driver (*.mdb)}; dbq=" & server.MapPath("db/db.mdb")


Dim rs
set rs=Server.CreateObject("adodb.recordset")
rs.open "select id,ragionesociale,indirizzo,cap,citta,provincia,em ail from rma", conn




Do while NOT RS.EOF


Dim id,ragionesociale,indirizzo,cap,citta,provincia,em ail


id=rs("id")
ragionesociale=rs("ragionesociale")
indirizzo=rs("indirizzo")
cap=rs("cap")
citta=rs("citta")
provincia=rs("provincia")
email=rs("email")

%>

<table border="1" width="69%" id="table102" style="border-width: 0px">
<tr>
<td style="border-style: none; border-width: medium">
<p align="right" style="text-indent: 0px; margin-left: 10px">
<font size="2" color="#000080">Spett.le<%Response.Write(ragioneso ciale)%></font></td>
</tr>
</table>

<%


RS.MoveNext
Loop

rs.close

conn.close

set rs=nothing

set conn=nothing
%>

[Roby_72]

1) Le dim vanno fatte fuori dal ciclo
2) Il link che ti ho modificato prima è completamente sparito.
3) Testa che il recordset contenga qualcosa prima di tentare di scorrerlo:
if not rs.eof then
...
...
end if

Roby

[ettorpa]

va bene cosi' roby?

<%
Dim conn
set conn=Server.CreateObject("adodb.connection")
conn.open"Driver={Microsoft Access Driver (*.mdb)}; dbq=" & server.MapPath("db/db.mdb")


Dim rs
set rs=Server.CreateObject("adodb.recordset")
rs.open "select id,ragionesociale,indirizzo,cap,citta,provincia,em ail from rma", conn


Dim id,ragionesociale,indirizzo,cap,citta,provincia,em ail


Do while NOT RS.EOF


ragionesociale = rs("ragionesociale")
id = rs("id")


id=rs("id")
ragionesociale=rs("ragionesociale")
indirizzo=rs("indirizzo")
cap=rs("cap")
citta=rs("citta")
provincia=rs("provincia")
email=rs("email")

%>

<table border="1" width="69%" id="table102" style="border-width: 0px">
<tr>
<td style="border-style: none; border-width: medium">
<p align="right" style="text-indent: 0px; margin-left: 10px">
<font size="2" color="#000080">Spett.le<%Response.Write(ragioneso ciale)%></font></td>
</tr>
</table>

<%


RS.MoveNext
Loop

rs.close

conn.close

set rs=nothing

set conn=nothing
%>


p.s. il link che mi hai modificato sta nell'altra pagina

[ettorpa]

questa è la pagina che punta a reg_rma_sea.asp

<%Response.Buffer = false%>

<%


Set objConn = Server.CreateObject("ADODB.Connection")
objConn.open"Driver={Microsoft Access Driver (*.mdb)}; dbq=" & server.MapPath("/db/db.mdb")



strSQL = "select COUNT(ID) AS totaleRecord FROM rma"

Set objRs = Server.createObject("ADODB.Recordset")

objRs.Open strSQL, objConn


%>


<table border="1" width="640" id="table94" style="border-width: 0px">
<tr>
<td style="padding-left: 4px; padding-right: 4px" bordercolor="#C0C0C0">
<font color="#000080" face="Verdana" size="2">Cisono<%response.write(objRs("totaleRecord"))%>Richieste Rma</font></td>
</tr>
</table>


<%
objRs.Close
Set objRs = Nothing



Dim conn
set conn=Server.CreateObject("adodb.connection")
conn.open"Driver={Microsoft Access Driver (*.mdb)}; dbq=" & server.MapPath("/fpdb/resi.mdb")


Dim rs
set rs=Server.CreateObject("adodb.recordset")
rs.open "select datarichiesta,ragionesociale,indirizzo,email,fattu re,partitaiva,telefono,fax from rma",conn

Dim id,datarichiesta,ragionesociale,indirizzo,email,fa tture,partitaiva,telefono,fax

Do while NOT RS.EOF

ragionesociale = rs("ragionesociale")
'id = rs("id")



datarichiesta=rs("datarichiesta")
ragionesociale=rs("ragionesociale")
indirizzo=rs("indirizzo")
telefono=rs("telefono")
fax=rs("fax")
email=rs("email")
fatture=rs("fatture")
partitaiva=rs("partitaiva")

%>

<html>



<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>:::Registrazione Modulo Rma:::</title>
<style>
<!--
div.Section1
{page:Section1;}
-->
</style>
</head>

<body bgcolor="#D6DAE7" topmargin="0">



</p>
[b]<font size="3" face="Verdana">



<table border="1" width="640" id="table93" style="border-width: 0px">
<tr>
<td bgColor="#327ABE" width="79%">
<div style="border-style: solid; border-width: 1">
<span class="titbox">
<font size="2" face="Verdana" color="#FFFFFF">DATI ANAGRAFICI
</font></span></div>
</td>
</tr>
</table>

<table border="1" width="25%" id="table9" style="border-width: 0px">
<tr>
<td style="padding-left: 4px; padding-right: 4px" bordercolor="#C0C0C0" width="125" bgcolor="#D6DAE7">
<font size="2" color="#000080">Data:</font></td>
<td style="padding-left: 4px; padding-right: 4px" bordercolor="#C0C0C0">
<font color="#000080">
<font size="2"><%response.write(datarichiesta)%></td>
</tr>
</table>


<table border="1" width="640" id="table10" style="border-width: 0px">
<tr>
<td style="padding-left:4px; padding-right:4px" width="124" bordercolor="#C0C0C0" bgcolor="#D6DAE7">
<font color="#000080" size="2">Ragione Sociale:</font></td>
</font><font size="3">



<td style="padding-left:4px; padding-right:4px" bordercolor="#C0C0C0">
</font><font size="2"><font size="3">



<%response.write(ragionesociale)%></font><font size="3" face="Verdana" color="#000080"></font></font><font size="3" face="Verdana"></td>


</tr>
</table>

[ettorpa]

roby, ora funziona ma mi restituisce tutti i record