<%@ Language=VBScript %>
<% Option Explicit %>
<%
' Esegue una query al db
Sub QueryDb (strsql)
set objRs = objConn.Execute (strsql)
End Sub
%>
<%
Dim Serie
Serie = Request.QueryString("Serie")
Dim parNomeFoto
parNomeFoto = Request.QueryString("NomeFoto")
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("mdb\ricerca.mdb")
' connessione a SQL server
' objConn.ConnectionString = "Provider=sqloledb; Data Source=Nome_computer; Initial Catalog=Nome_database; User Id=nome_user; Password=password;"
' connessione a database Access
' objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\web\luxuryflats.net\ricerca.mdb"
objConn.open
Dim objRS, strSQL, Conta
set objRS = Server.CreateObject("ADODB.Recordset")
strSQL = "select B.Serie, B.Evento, B.Data, A.Serie, A.Nomefoto from Foto A, Eventi B where A.Serie = B.Serie and A.Serie=" + cstr(Serie) + " ;"
objRS.open strSQL, objConn, 3, 3
%>
.: Photogallery :.