Salve a tutti,
ho creato una directory con ASP e Access trovato su Mr Webmaster (7209).
Funziona tutto ma vorrei che le pagine Categoria (cat.asp) e Sub_Categoria (dir.asp) riportino i tags <TITLE> </TITLE> in automatico per relative pagine visualizzate.
Di seguito l’inizio della pagina cat.asp:
<%@LANGUAGE = VBScript%>
<!--#include file="config.asp"-->
<%
Dim id, SQL
id = Request.QueryString("id")
If IsNumeric(id) = False Or id < 1 Then
Response.Redirect "default.asp"
End If
Call CnOpen()
%>
<HTML>
<HEAD>
<TITLE> qui vorrei Nome della Categoria oppure Sub_Categoria </TITLE>
</HEAD>
<BODY>
Il file incluso “config.asp” come segue:
<%
Option Explicit
On Error Resume Next
Response.Buffer = True
Response.Expires = 0
Session.Timeout = 60
Dim cn, rs, sc
sc = ""
sc = sc & "driver={Microsoft Access Driver (*.mdb)};dbq="
sc = sc & Server.MapPath("directory.mdb")
Function CnOpen()
Set cn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
cn.Open sc
End Function
Function CnClose()
Set rs = Nothing
cn.Close
Set cn = Nothing
End Function
%>
Un esempio di pagina visibile al seguente Link:
http://www.newtechno.it/asp_directory/cat.asp?id=21
Credo sia semplice ma non ci riesco, fatemi sapere se serve altro
Grazie in anticipo per il vostro aiuto.
Luca13
ho creato una directory con ASP e Access trovato su Mr Webmaster (7209).
Funziona tutto ma vorrei che le pagine Categoria (cat.asp) e Sub_Categoria (dir.asp) riportino i tags <TITLE> </TITLE> in automatico per relative pagine visualizzate.
Di seguito l’inizio della pagina cat.asp:
<%@LANGUAGE = VBScript%>
<!--#include file="config.asp"-->
<%
Dim id, SQL
id = Request.QueryString("id")
If IsNumeric(id) = False Or id < 1 Then
Response.Redirect "default.asp"
End If
Call CnOpen()
%>
<HTML>
<HEAD>
<TITLE> qui vorrei Nome della Categoria oppure Sub_Categoria </TITLE>
</HEAD>
<BODY>
Il file incluso “config.asp” come segue:
<%
Option Explicit
On Error Resume Next
Response.Buffer = True
Response.Expires = 0
Session.Timeout = 60
Dim cn, rs, sc
sc = ""
sc = sc & "driver={Microsoft Access Driver (*.mdb)};dbq="
sc = sc & Server.MapPath("directory.mdb")
Function CnOpen()
Set cn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
cn.Open sc
End Function
Function CnClose()
Set rs = Nothing
cn.Close
Set cn = Nothing
End Function
%>
Un esempio di pagina visibile al seguente Link:
http://www.newtechno.it/asp_directory/cat.asp?id=21
Credo sia semplice ma non ci riesco, fatemi sapere se serve altro
Grazie in anticipo per il vostro aiuto.
Luca13