<%@ Language=VBScript %> ARQUITECTURA EN LINEA - AGENDA DE ARQUITECTOS <% ' Variables Dim objConnection Dim objRecordset Dim strSQL sFile = request.ServerVariables("PATH_TRANSLATED") sSplit = split(sFile, "\") for iCtr = 0 to uBound(sSplit) - 1 sDir = sDir & sSplit(ictr) & "\" next 'sConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=//nawinfs02/home/users/web/b169/rh.arquitectura/database/arquitec.mdb" sConnString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=//nawinfs02/home/users/web/b169/rh.arquitectura/database/arquitec.mdb" ' Abrir el Data Source Set objConnection = Server.CreateObject("ADODB.Connection") objConnection.Open sConnString ' Consulta SQL statement strSQL = "SELECT * FROM Consulta_Agenda " strSQL = strSQL & "WHERE Zona = " & Request.QueryString("Zona") & " " strSQL = strSQL & "AND Letra = '" & Request.QueryString("Letra") & "' " ' Obtener Registros Set objRecordset = Server.CreateObject("ADODB.Recordset") objRecordset.Open strSQL, objConnection ' Variables Dim strId Dim strApellido Dim strNombres Dim strEstudio Dim strDomicilio Dim strLocalidad Dim strCiudad Dim strProvincia Dim strPais Dim strCPostal Dim strTeltrabajo Dim strFax Dim strEmail Dim strWeb Dim strPaga ' Armar el listado de rubros Do While Not objRecordset.EOF ' Asignar los valores strId = objRecordset("Id") & "" strApellido = objRecordset("Apellidos") & "" strNombres = objRecordset("Nombres") & "" strEstudio = objRecordset("Estudio") & "" strDomicilio = objRecordset("Domicilio") & "" strLocalidad = objRecordset("Localidad") & "" strCiudad = objRecordset("Ciudad") & "" strProvincia = objRecordset("Provincia") & "" strPais = objRecordset("Pais") & "" strCPostal = objRecordset("CPostal") & "" strTeltrabajo = objRecordset("Teltrabajo") & "" strFax = objRecordset("Fax") & "" strEmail = objRecordset("Email") & "" strWeb = objRecordset("Web") & "" strPaga = objRecordset("Paga") & "" %> <% ' Tomar nuevo rubro objRecordset.MoveNext Loop ' Cerrar database objRecordset.Close objConnection.Close Set objRecordset = Nothing Set objConnection = Nothing %>


<% if strPaga = true then Response.Write("" & strApellido & ", " & strNombres & " [" & strId & "]
" & VbCrLf ) Else Response.Write("" & strApellido & ", " & strNombres & " [" & strId & "]
" & VbCrLf ) End if if strEstudio <> "" then Response.Write ("Estudio: " & strEstudio & "
" & VbCrLf) End if 'if strDomicilio <> "" then 'Response.Write("Domicilio: " & strDomicilio & "
" & VbCrLf) 'End if if strLocalidad <> "" then Response.Write(strLocalidad & " - ") End if if strCiudad <> "" then Response.Write(strCiudad & " - ") End if if strProvincia <> "" then Response.Write(strProvincia & " - ") End if Response.Write(strPais & "
" & VbCrLf) 'if strCPostal <> "" then 'Response.Write("Código Postal: " & strCPostal & "
" & VbCrLf) 'End if 'if strTeltrabajo <> "" then 'Response.Write("Teléfono: " & strTeltrabajo & "
" & VbCrLf) 'End if 'if strFax <> "" then 'Response.Write("Fax: " & strFax & "
" & VbCrLf) 'End if if strEmail <> "" then %> <% 'Response.Write("Email: " & strEmail & "" & VbCrLf) End if %>

 


Una producción de Arquitectura en linea© <%=year(Now())%>
Buenos Aires - Argentina