SECCIONES
|
<%
dim conexion, cadena, SQL
dim record
set conexion = Server.CreateObject("ADODB.connection")
set record = Server.CreateObject("ADODB.Recordset")
conexion.ConnectionString = Application("conexion")
conexion.Open
SQL = "Select * from Familia"
record.Open SQL,conexion,3,1
while record.EOF <> true and record.BOF <> true
cadena = " · | "
cadena = cadena & "" + record("NombreFamilia") + " | "
cadena = cadena & " "
Dim nfam
nfam = record("NombreFamilia")
Response.Write cadena
record.MoveNext
wend
record.Close
%>
|
<%if error = 1 then%>
<%end if%>
ALTA USUARIO <%Response.Write Ucase(Request("nombre"))%>
|
|