Newsgroup: it.comp.lang.visual-basic
Titolo: passare una variabile ASP a uno script vb esterno

scusate, ma come si fa?
ho un file asp: default.asp
nell'asp c'è scritto
<% var=request("var")
%>
la variabile arriva ok
poi c'è scritto
<script language="vbscript" scr="file esterno">
</script>
come si passa var allo script?
Grazie anticipate


se ho capito bene la tua richiesta, puoi
1
mettere il valore della variabile in un campo nascosto e nello script lato
client mi riferirei ad esso per ottenerne il valore.
<input type=hidden id=fldVar value=<%=var%>>
nello script poi ti riferisci a document.fldVar.value per leggerne il valore
2
passare la variabile come parametro di una funzione
spero di averti risposto correttamente anche se credo l'argomento sia  OT
(attendo conferme o smentite)

 (attendo conferme o smentite)
CONFERMO!!!

Prova cosi':
<% var request("var")%>
<script language="vbscript" scr="file esterno">
var esterna=<%=var%>
</script>
Potrebbe funzionare...
Ciau Ciau

<% var=Request.Form("var")%>
ora funziona!
PS:il .Form velocizza la ricerca, anche se non è fondamentale!
----
Bye
Ro<*¿*>berto

 wrote in message
7nitj6$jlq$1...@diesel.cu.mi.it...


sei OT, in it.comp.lang.asp probabilmente,
cmq ti posto un modo "generale".. devi solo mettere nella dir data
il database mdb e passargli le variabili "giuste" che volendo invii con
metodo get o post... DB=nomedb TB=nomeTB
sql=query eventuale ecc.!
Sub  CONNDB_RS_V_Crea(Style,Submit,MasIn,Campi,Return,DB,TB,Sql)
 'Crea e controlla la conessione al database
 If  IsObject(vConnDB)=false And DB<>"" And FILE_Esiste(DB) Then
     Set vConnDB = Server.CreateObject("ADODB.Connection")
     On Error Resume Next
  'vConnDB.ConnectionString ="Driver={Microsoft Access Driver
(*.mdb)};DBQ="&
left(Request.ServerVariables("PATH_TRANSLATED"),instr(UCASE(Request.ServerVa
riables("PATH_TRANSLATED")),"INTERDB.ASP")-1) & DB
  vConnDB.ConnectionString ="Driver={Microsoft Access Driver (*.mdb)};DBQ="&
Server.MapPath(DB)
  vConnDB.ConnectionTimeout=10
  'vConnDB.DefaultDatabase
  'vConnDB.Mode=adModeRead
     vConnDB.open
  'Se non si passa il nome del Database o lo si passa errato si evidenzia un
msg. di errore
  If Err Then
   call ERRORE_GESTISCI("Database","Errore in fase di apertura DATABASE")
   Exit Sub
  End if
 Elseif DB="" Then
  call ERRORE_GESTISCI("Database","Non è indicato nessun DATABASE")
  Exit Sub
 Elseif FILE_Esiste(DB)=False Then
  call ERRORE_GESTISCI("Database","File del DATABASE non trovato")
  Exit Sub
 End If
 'Si Istanzia l'sql per interrogare la tabella
 If  vSql="" And (TB<>"" or Sql<>"") Then
  if TB<>"" then vSql="SELECT * FROM [" & TB & "]"
  if Sql<>"" then vSql=Sql
 Elseif TB="" or Sql="" Then
  call ERRORE_GESTISCI("Tabella","Non è indicata nessuna TABELLA o nessun
valore SQL al Database")
  Exit Sub
 End if
 'Crea e controlla la conessione alla tabella
 'istanzia il numero totale dei record alla prima apertura del RS
 If  VTRec=0 Then
  Call RS_Crea( vSql ,"")
  if Err or Errore then
   Exit Sub
  End if
  VTRec=vRS.RecordCount
 End if
 'Istanzia del motore della maschera di interrogazione e
 'Gestione Errore nella maschera di interrogazione per i campi
 if Submit="MascheraInterrogazione" or(Submit="Interroga" And MasIn)Then
  if  vIntTable="" And Session("sIntTable")="" then
   if Campi="" Then
    call ERRORE_GESTISCI("Campi","Non è indicato nessun CAMPO da
interrogare")
    Exit Sub
   Else
    vIntTable=FORM_Interroga(Campi)
    if vIntTable="" Then
     call ERRORE_GESTISCI("Campi","Nessun CAMPO trovato per la creazione
della maschera di interrogazione")
     'Call ERRORE_Gestisci("Campi","Non si possono interrogare i campi Memo
o OLE 201 di type ")
     Exit Sub
    End if
    Session("sIntTable")=vIntTable
   End if
  Elseif  vIntTable="" And Session("sIntTable")<>"" then
   vIntTable=Session("sIntTable")
  End if
 End if
 'Variabile che produce il riferimento al foglio di style se supportato
 If vStyle ="" then
  If  Style<>""  and Session("sStyle")="" Then
   vStyle=Style
   'con Metscape il foglio di style è con una N davanti
   if FILE_Esiste(vStyle)And FILE_Esiste("N" & vStyle) then
    if isMSIE=False then vStyle="N"& vStyle
    Session("sStyle")=vStyle
   Else
    'vStyle=""
    if FILE_Esiste(vStyle)=False then
     call ERRORE_GESTISCI("Style","File di STYLE non trovato")
     Exit Sub
    Elseif FILE_Esiste("N" & vStyle)=False then
     call ERRORE_GESTISCI("Style","File di STYLE per Netscape non trovato")
     Exit Sub
    End if
   End if
  Elseif  vStyle =""  and Session("sStyle")<>"" Then
   vStyle=Session("sStyle")
  End if
 End if
 'Si istanzia il link per rilanciare la pagina dell'interrogazione al DB
 If  vGoToFormInt ="" and  Session("sGoToFormInt")="" then
  if Return<>"" then
   vGoToFormInt=Return
  Elseif Submit="MascheraInterrogazione"  and Campi<>"" then
   vGoToFormInt=vUrl &"?"& Request.ServerVariables("QUERY_STRING")
  end if
   Session("sGoToFormInt")=vGoToFormInt
 Elseif Session("sGoToFormInt")<>"" then
  vGoToFormInt=Session("sGoToFormInt")
 End if
End sub
PS: sicuro per le asp??  stai imparando e
ti posso dire che se i database o gli script sono "pesi"
è più veloce l'isapi!
