valore al posto di titolo pagina

**massimo67** · 13-09-2010, 23:48

ho una pagina Asp delle news e all'interno dei tag <title> vorrei che comparisse oltre al titolo della pagina anche un valore, ma così mi da errore

codice:

<title>::sito sport ::<% =rsOldnews("Nyheter") %></title>

dove sbaglio ? anche levando sito sport mi da errore , mi dice

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'rsOldnews'

**michele.santoro** · 14-09-2010, 08:43

Ma hai aperto la connessione al db e il recorset?
Prova così:

codice:

<%
Dim SQL,rsOldnews
SQL="SELECT * FROM Tabella"                                                     
Set rsOldnews = Server.CreateObject("ADODB.Recordset")
Set rsOldnews=Conn.Execute(SQL)
Dim Titolo
Titolo= rsOldnews("Nyheter")

%>

<html>
<head>
<title>::sito sport ::<% =Titolo %></title>
</head>
<body>
......
......
</body>
</html>

o qualcosa del genere
Chiaramente la connessione va poi chiusa.

**massimo67** · 14-09-2010, 19:47

è un po un casino perchè ho il codice sparso e non capisco dove inserire il tutto ti posto le prime righe (tutto è troppo non mi permette di postarlo)

codice:

<%@LANGUAGE="VBSCRIPT"%>
<% response.buffer=true%>
<% Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/mdb-database/campionato/2010-2011/db.mdb")
'Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../../mdb-database/news/db.mdb")&";"  

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("d:\inetpub\webs\fansclubchievoit\public\campionato\2010-2011")
strImageFolder="/public/campionato/2010-2011/images/"
folder1 = strImageFolder
folder2 = Server.MapPath(folder1)
Set files = Server.CreateObject("Scripting.FileSystemObject")
If  Not files.FolderExists(folder2) Then
files.CreateFolder(folder2)
End If
Set objfolder = files.getFolder(folder2)
%>



<html>
<head>
<title>:: sito sport ::</title>
<link href="style.css" rel="stylesheet" type="text/css">

**Roby_72** · 14-09-2010, 20:33

<%=rsOldnews("Nyheter") %>

Roby

**massimo67** · 14-09-2010, 20:40

Originariamente inviato da Roby_72
<%=rsOldnews("Nyheter") %>

Roby

non va , ho modificato il post forse quando stavi rispondendo

**Grambo** · 17-09-2010, 11:42

codice:

<%@LANGUAGE="VBSCRIPT"%>
<% response.buffer=true%>
<% Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/mdb-database/campionato/2010-2011/db.mdb")
'Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../../mdb-database/news/db.mdb")&";"  

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("d:\inetpub\webs\fansclubchievoit\public\campionato\2010-2011")
strImageFolder="/public/campionato/2010-2011/images/"
folder1 = strImageFolder
folder2 = Server.MapPath(folder1)
Set files = Server.CreateObject("Scripting.FileSystemObject")
If  Not files.FolderExists(folder2) Then
files.CreateFolder(folder2)
End If
Set objfolder = files.getFolder(folder2)

Dim SQL,rsOldnews
SQL="SELECT * FROM Tabella"                                                     
Set rsOldnews = Server.CreateObject("ADODB.Recordset")
Set rsOldnews=Conn.Execute(SQL)
Dim Titolo
Titolo= rsOldnews("Nyheter")

%>

<html>
<head>
<title>::sito sport ::<% =Titolo %></title>
<link href="style.css" rel="stylesheet" type="text/css">

**massimo67** · 17-09-2010, 21:19

Originariamente inviato da Grambo

codice:

<%@LANGUAGE="VBSCRIPT"%>
<% response.buffer=true%>
<% Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/mdb-database/campionato/2010-2011/db.mdb")
'Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../../mdb-database/news/db.mdb")&";"  

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("d:\inetpub\webs\fansclubchievoit\public\campionato\2010-2011")
strImageFolder="/public/campionato/2010-2011/images/"
folder1 = strImageFolder
folder2 = Server.MapPath(folder1)
Set files = Server.CreateObject("Scripting.FileSystemObject")
If  Not files.FolderExists(folder2) Then
files.CreateFolder(folder2)
End If
Set objfolder = files.getFolder(folder2)

Dim SQL,rsOldnews
SQL="SELECT * FROM Tabella"                                                     
Set rsOldnews = Server.CreateObject("ADODB.Recordset")
[b]Set rsOldnews=Conn.Execute(SQL)[b]
Dim Titolo
Titolo= rsOldnews("Nyheter")

%>

<html>
<head>
<title>::sito sport ::<% =Titolo %></title>
<link href="style.css" rel="stylesheet" type="text/css">

mi dice

Microsoft VBScript runtime error '800a01a8'

Object required: 'Conn'

/public/campionato/2010-2011/fatti.asp, line 21
(la linea 21 è quella in bold)

**Roby_72** · 17-09-2010, 21:36

Connect

**massimo67** · 17-09-2010, 21:49

Originariamente inviato da Roby_72
Connect

Microsoft OLE DB Provider for ODBC Drivers error '80040e37'

[Microsoft][ODBC Microsoft Access Driver] The Microsoft Jet database engine cannot find the input table or query 'Tabella'. Make sure it exists and that its name is spelled correctly.

/public/campionato/2010-2011/fatti.asp, line 21

**Roby_72** · 17-09-2010, 21:55

Te lo dice, nessuna tabella si chiama "Tabella"...

Roby

Discussione: valore al posto di titolo pagina

Strumenti discussione

Ricerca discussione

Visualizza

valore al posto di titolo pagina

Permessi di invio