% %> <% Dim objConn, strConnect, sql Set objConn = server.CreateObject ("adodb.connection") set objCom = server.CreateObject ("adodb.command") set SceltaLinkRS = server.CreateObject ("adodb.recordset") strConnect = "DSN=SERVIZI_CONDIVISI_Generico; UID=SERVIZI_CONDIVISI_Generico; PWD=123ert678; DATABASE=VALCAV_Turismo" objConn.Open strConnect SceltaLinkRS.Open "Select * From SceltaLink Where Tipo = 'Dove Mangiare'", objConn %>
|
|
|
|||||||||||||||||||||||||||||||||||||||||||||||