inclusione file e jscript

[Diplodus]

Ciao a tutti...
Ho una domandona (per me che non so risolvere il problema).

Vorrei includere la pagina.asp che sta in un sottodominio http://sottodominio.dominio.com

Ora, con l'iframe non lo posso fare perchè altrimenti lo spider di google mi fa problemi e siccome non voglio avere problemi con google mi sono messo a cercare nel forum qlcs che faccia per me e ho trovato questo:

<%
set xmlhttp = Server.CreateObject("Microsoft.XMLHTTP")
xmlhttp.Open "GET", "http://www.sito.it/pagina.asp", false
xmlhttp.Send
response.write xmlhttp.responsetext
set xmlhttp = nothing
%

Solo che prima di questo codice ho inserito un altro codice come questo:

<%@LANGUAGE = JScript%>

</font>
<font face="Verdana" size="2" color="#000000">

<%
var Cn = new ActiveXObject("ADODB.Connection");
var Rs = new ActiveXObject("ADODB.Recordset");
Cn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" + Server.MapPath("mdb-database/db.mdb"));
Rs.Open("SELECT citazione FROM quote", Cn, 3, 3);
var Quanti = parseInt(Rs.RecordCount);
Rs.MoveFirst();
var Casuale = parseInt(Math.random() * Quanti);
Rs.Move(Casuale);
Response.Write(Rs("citazione") + "
")

%>

perchè mi interessa prendere a caso un record in un db.

Le due cose entrano in conflitto, come faccio?
C'è un modo in asp, java o qualsiasi altro modo che mi permetta di includere una pagina esterna senza l'iframe?

Grazie grazie, Gianluca.

[Roby_72]

Entrano in conflitto perché scritte in due linguaggi diversi, la prima in VBScript, la seconda in JScript.
Traduci la prima per renderla compatibile con la seconda o viceversa.

Roby

[Diplodus]

Ciao Roby, grazie per la risposta.

Sto cercando di standardizzare il codice e ho cercato tutta la note la funziona random o cmq il record casuale in asp, e qualcosa ho trovato, solo che non funziona.

Posto il codice sperando che mi possiate dare una mano


Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("mdb-database/db.mdb")
strSQLMax = "SELECT Max(ID) as MaxVal FROM quote ORDER BY ID"
strSQL = "SELECT Top 1 ID, titolo FROM quote Where ID = "
conn.Open strConn
Set rs = conn.Execute(strSQLMax)
intMax = rs("maxVal")
rs.Close
set rs = Nothing
Randomize()
intRandom = CInt ((Rnd() * intMax) + 1)
Set rs = conn.Execute(strSQL & intRandom)
%>
<%=rs(2)%>
<%
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
%>

e questo è il messaggio di errore:

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] You tried to execute a query that does not include the specified expression 'ID' as part of an aggregate function.

/Index.asp, line 373

[Roby_72]

Questa intanto è incompleta:

strSQL = "SELECT Top 1 ID, titolo FROM quote Where ID = "

Ma non riguarda l'errore.

Roby

[Diplodus]

roby?
è da ieri sera che provo tutti i codici per pescare un solo record casuale dal db e nessuno mi funziona.
Trovo o singoli pezzi oppure trovo il codice con vbscript che non fa al caso mio...

Ce l'hai uno pronto tu?
Altrimenti continuo a cercare e ti/vi faccio sapere.
Grazie

[Diplodus]

roby ho risolto
Ciao ciao e grazie come sempre...

[Pandolfo]

Posso chiederti come hai risolto? sto impazzendo...

[Alethesnake]

senza effettuare traduzioni di codice potevi semplicemente levare la definizione del linguaggio in testa alla pagina e racchiudere il codice tra i tag script e /script specificando runat=server

[Pandolfo]

come posso impostare la query inserendo ad esempio:

where aaa='bbb'

<%@LANGUAGE = JScript%> 

</font> 
<font face="Verdana" size="2" color="#000000"> 

<% 
var Cn = new ActiveXObject("ADODB.Connection"); 
var Rs = new ActiveXObject("ADODB.Recordset"); 
Cn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" + Server.MapPath("mdb-database/db.mdb")); 
Rs.Open("SELECT citazione FROM quote", Cn, 3, 3); 
var Quanti = parseInt(Rs.RecordCount); 
Rs.MoveFirst(); 
var Casuale = parseInt(Math.random() * Quanti); 
Rs.Move(Casuale); 
Response.Write(Rs("citazione") + "
") 

%>

[Pandolfo]

up