Aiuto in ASP

**Codename87** · 20-05-2008, 18:35

Stò cercando di realizzare un sito commerciale, ma non riesco a fare una cippa con l'ASP...

Sapreste dirmi qual'è l'errore in questa tabella?

<%

Dim oConn
Dim oRs
Dim filePath
Dim Index

filePath = Server.MapPath("database.mdb")

Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath

Set oRs = oConn.Execute("SELECT cod_prod, Marca, Modello, Sezione, Descrizione, Prezzo, Immagine From tProdotti")
%>

<table width="250" height="51" border="1">
<tr>
<td>Codice</td>
<td>Marca</td>
<td>Modello</td>
<td>Sezione</td>
<td>Descrizione</td>
<td>Prezzo</td>
<td>Immagine</td>
</tr>

<%
if oRs.eof then
Response.Write "NON ESISTE"
ELSE
Do while Not oRs.eof
%>

<tr>
<td><%Response.Write (oRs("cod_prod"))%></td>
<td><%Response.Write (oRs("Marca"))%></td>
<td><%Response.Write (oRs("Modello"))%></td>
<td><%Response.Write (oRs("Sezione"))%></td>
<td><%Response.Write (oRs("Descrizione"))%></td>
<td><%Response.Write (oRs("Prezzo"))%></td>
<td>[img]<%Response.Write(oRs([/img]"</td>
</tr>

<% oRs.MoveNext
Loop
END IF

oRs.close
oConn.close
%>
</table>

Tutto questo codice l'ho messo in una cella di una tabella, praticamente sarebbe quella centrale del sito e dovrebbe mostrare i prodotti sotto forma di lista.
Il problema è che quando cerco di visualizzarlo in IE tramite l'IIS fa errore, esattamente il 404.3.

Che devo fare?

**Santino83_02** · 20-05-2008, 18:47

opzioni internet -> avanzate -> e togli la spunta a "mostra errori http brevi"

**Codename87** · 20-05-2008, 18:54

Sarebbe "Show friendly HTTP error messages" in inglese? (ho su IE8 beta, con emulazione IE7 attivata)

L'ho tolto ma l'errore me lo fa ancora

**Santino83_02** · 20-05-2008, 18:56

ah boh io ho safari :P

dopo filePath = Server.MapPath("database.mdb") metti

response.write(filePath)
response.end()

leggi il percorso che ti stampa e controlla che effettivamente sia il percorso del database. il resto mi pare corretto

**Roby_72** · 20-05-2008, 19:07

Originariamente inviato da Codename87
Sarebbe "Show friendly HTTP error messages" in inglese? (ho su IE8 beta, con emulazione IE7 attivata)

L'ho tolto ma l'errore me lo fa ancora

Quello che ti ha suggerito santino non serve a far scomparire l'errore ma a farlo emergere in tutta la sua bellezza

Roby

**Codename87** · 20-05-2008, 19:52

Originariamente inviato da Santino83_02
ah boh io ho safari :P

dopo filePath = Server.MapPath("database.mdb") metti

response.write(filePath)
response.end()

leggi il percorso che ti stampa e controlla che effettivamente sia il percorso del database. il resto mi pare corretto

Ok, adesso provo

Originariamente inviato da Roby_72
Quello che ti ha suggerito santino non serve a far scomparire l'errore ma a farlo emergere in tutta la sua bellezza

Roby

Ah ecco

**Codename87** · 20-05-2008, 21:13

Fatto ma l'errore rimane...

Comunque anche disabilitando quell'opzione mi mostra sempre la stessa pagina, ci sono scritte tante cose dentro ma molto generiche e tecniche, insomma non mi aiutano

Vi riporto proprio tutta la pagina così lo vedete completamente:

<%@ LANGUAGE = VBScript %>
<% Option Explicit %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Point of View</title>
</head>

<body bgcolor="#f8f5eb">

<table align="center" width="1024" cellpadding="0" cellspacing="0" border="0">
<tr height="300">
<td colspan="3" width="1024" align="center">
[img]images/header.jpg[/img]
</td>
</tr>
<tr valign="top">
<td width="200" height="704" rowspan="2">
[img]images/p_home.jpg[/img]
[img]images/p_fotocamere_digitali.jpg[/img]
[img]images/p_fotocamere_reflex.jpg[/img]
[img]images/p_obiettivi.jpg[/img]
[img]images/p_borse.jpg[/img]
[img]images/p_photoframe.jpg[/img]
[img]images/p_stampanti.jpg[/img]
[img]images/p_carte_fotografiche.jpg[/img]
[img]images/p_contatti.jpg[/img]
</td>
<td width="694" height="30" align="center">
[img]images/prodotti.jpg[/img]
</td>
<td width="200" height="704" valign="top" rowspan="2">
[img]images/carrello.jpg[/img]
</td>
</tr>
<tr>
<td width="300" height="738" align="center" valign="top">

<%

Dim oConn
Dim oRs
Dim filePath
Dim Index

filePath = Server.MapPath("database.mdb")

response.write(filePath)
response.end(

Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath

Set oRs = oConn.Execute("SELECT cod_prod, Marca, Modello, Sezione, Descrizione, Prezzo, Immagine From tProdotti")
%>

<table width="250" height="51" border="1">
<tr>
<td>Codice</td>
<td>Marca</td>
<td>Modello</td>
<td>Sezione</td>
<td>Descrizione</td>
<td>Prezzo</td>
<td>Immagine</td>
</tr>

<%
if oRs.eof then
Response.Write "NON ESISTE"
ELSE
Do while Not oRs.eof
%>

<tr align="center">
<td><%Response.Write (oRs("cod_prod"))%></td>
<td><%Response.Write (oRs("Marca"))%></td>
<td><%Response.Write (oRs("Modello"))%></td>
<td><%Response.Write (oRs("Sezione"))%></td>
<td><%Response.Write (oRs("Descrizione"))%></td>
<td><%Response.Write (oRs("Prezzo"))%></td>
<td>[img]<%Response.Write(oRs([/img]"</td>
</tr>

<% oRs.MoveNext
Loop
END IF

oRs.close
oConn.close
%>
</table>
</td>
</tr>
<tr height="20">
<td colspan="3" align="center">
<font style="font-family:Arial, Helvetica, sans-serif;color:#a7872f; font-size:12px" >sito realizzato da - Copyright 2008</font>
</td>
</tr>
</table>
</body>
</html>

**Roby_72** · 20-05-2008, 21:32

Se quelle cose generiche e tecniche le fai vedere anche a noi ci risparmieresti la palla di vetro per scoprire l'errore...

Roby

**Codename87** · 20-05-2008, 21:54

Originariamente inviato da Roby_72
Se quelle cose generiche e tecniche le fai vedere anche a noi ci risparmieresti la palla di vetro per scoprire l'errore...

Roby

Hai ragione

Ecco:

**Roby_72** · 20-05-2008, 21:56

Ma una normale pagina asp ti funziona?

Roby

Discussione: Aiuto in ASP

Strumenti discussione

Ricerca discussione

Visualizza

Aiuto in ASP

Permessi di invio