function che passa il nome da un id

[tabarto]

ho provato a togliere il ; ma niente

<%
function estrainome (Idreq)
dim vName

sql= "SELECT [Staff.IdStaff], [Staff.Name], [MessageBoard.To], FROM Staff INNER JOIN MessageBoard ON [Staff.IdStaff] = [MessageBoard.IdStaff] where ((([MessageBoard.To]) = " & Idreq & "))"
'response.write(sql)
'response.end
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,1,3

do while not(rs.eof)
vName = vname & "," & rs.fields("Name")
rs.movenext
loop

rs.close
set rs=nothing

estrainome = vname

end function %>

questo e' l'errore che mi da....

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access Driver] The SELECT statement includes a reserved word or an argument name that is misspelled or missing, or the punctuation is incorrect.
/site/MessageBoard.asp, line 100

Ho provato a lanciare la query dal db ma niente....

[longline]

Io per sicurezza cambierei il nome al campo "To", visto l'errore...

[maximum]

Trovato il problema, la virgola prima del FROM:

sql= "SELECT [Staff.IdStaff], [Staff.Name], [MessageBoard.To] FROM Staff INNER JOIN MessageBoard ON [Staff.IdStaff] = [MessageBoard.IdStaff] where ((([MessageBoard.To]) = " & Idreq & "))"

Prova adesso e fammi sapere.

[tabarto]

giusto c'era una virgola di troppo, l'ho tolta ora mi da un altro errore....

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access Driver] Invalid bracketing of name '[Staff.IdStaff]'.
/site/MessageBoard.asp, line 100

Why? Cosa significa, secondo te?

[optime]

invece di [tabella.campo] prova ad usare [tabella].[campo]

[tabarto]

raga le cose migliorano con l'ultimo suggerimento delle parentisi quadre passa la query e la legge mi si pianta dopo e mi da questo errore:

Error Type:
Microsoft VBScript runtime (0x800A000D)
Type mismatch: 'rs'
/site/MessageBoard.asp, line 199

ecco la riga 199: <td align="left" valign="middle" class="style7"><span class="style7"><%=rs(3)% ></span></td>

Che ne dite?

[optime]

se nella funzione chiudi e distruggi il recordset, richiamarlo fuori dalla funzione ti darà *ovviamente* errore

[maximum]

Devi usare due recordset differenti.
Uno per la query dentro la funzione ed uno per quella che fai prima di invocare la funzione.

[tabarto]

sono due record differenti perche' il primo l'ho chiuso e subito dopo ho aperto l'altro....
Guarda il codice:

<%
function estrainome (Idreq)
dim vName

sql= "SELECT [Staff].[IdStaff], [Staff].[Name], [MessageBoard].[To] FROM Staff INNER JOIN MessageBoard ON [Staff].[IdStaff] = [MessageBoard].[IdStaff] where ((([MessageBoard].[To]) = " & Idreq & "))"
'response.write(sql)
'response.end
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,1,3

do while not(rs.eof)
vName = vname & "," & rs.fields("Name")
rs.movenext
loop

rs.close
set rs=nothing

estrainome = vname

end function %>
<%
sql= "SELECT * FROM MessageBoard where [To]="&Idreq&";"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,1,3
%>

<td align="left" valign="middle" class="style7"><span class="style7"><%=rs(2)%></span></td>
<td></td>
<td align="left" valign="middle" class="style7"><span class="style7<%estrainome(3)%> span></td>
<td></td>
<td align="left" valign="middle" class="style7"><span class="style7"><%=rs(3)%></span></td>
<td></td>
<td align="left" valign="middle" class="style7"><span class="style7"><%=rs(5)%></span></td>
<td></td>
<td align="left" valign="middle" class="style7"><span class="style7"><%=rs(6)%></span></td>
<%
rs.movenext
loop
rs.Close
set rs = Nothing

%>

Sono due diversi, no? Sbaglio.....

[maximum]

Stai sbagliando, fai così:

<%
function estrainome (Idreq) 
dim vName 

sql= "SELECT [Staff].[IdStaff], [Staff].[Name], [MessageBoard].[To] FROM Staff INNER JOIN MessageBoard ON [Staff].[IdStaff] = [MessageBoard].[IdStaff] where ((([MessageBoard].[To]) = " & Idreq & "))" 
'response.write(sql) 
'response.end 
Set rs2 = Server.CreateObject("ADODB.Recordset") 
rs2.Open sql, conn ,1,3 

do while not(rs2.eof) 
vName = vname & "," & rs2.fields("Name") 
rs2.movenext 
loop 

rs2.close 
set rs2=nothing 

estrainome = vname 

end function %>   

<% 
sql= "SELECT * FROM MessageBoard where [To]="&Idreq&";" 
Set rs = Server.CreateObject("ADODB.Recordset") 
rs.Open sql, conn ,1,3 
%>   

<td align="left" valign="middle" class="style7"><span class="style7"><%=rs(2)%></span></td> 
<td> </td> 
<td align="left" valign="middle" class="style7"><span class="style7><%=estrainome(3)%> </span></td> 
<td> </td> 
<td align="left" valign="middle" class="style7"><span class="style7"><%=rs(3)%></span></td> 
<td> </td> 
<td align="left" valign="middle" class="style7"><span class="style7"><%=rs(5)%></span></td> 
<td> </td> 
<td align="left" valign="middle" class="style7"><span class="style7"><%=rs(6)%></span></td> 
<% 
rs.movenext 
loop 
rs.Close 
set rs = Nothing 
%>