pues que me ha marcado error, de nuevo !!
Error Type:
Microsoft VBScript compilation (0x800A03F2)
Expected identifier
/expos/HTML/enviar.asp, line 78, column 48
set rs = server.createobject("ADODB.RecordSet").
Dim rs
Set cn = Server.CreateObject("ADODB.Connection")
set rs = server.createobject("ADODB.RecordSet").
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & ";Data Source=" & Server.Mappath("\db\" + "stands.mdb") & ";" & "Persist Security Info=False;Jet OLEDB:Database Password="
rs.Execute "SELECT * FROM stands " & " WHERE stand IN (" & request.form("combo") & ")"