Help
Sou principiante no dreamweaver e estou com um problema.
Tenho uma base de dados em access, com duas tableas: na primeira tenho os filmes em exibição num cinema e na segunda os comentários sobre o filme. O que fiz foi numa página mestre asp vbscript criar uma conexão à base de dados para mostrar os filmes em exibição e ao clicar no titulo dos filmes ir para a página detalhe, onde se mostram mais detalhes sobre o respectivo filme (actores, director, etc).
Até aqui tudo bem, no entanto nessa página detalhe quero adicionar outra tabela com os comentarios acerca do filme. Foi então o que fiz e adicionei no recorset o filtro para só me dar os comentários daquele filme, executei o test que aparece na janela do recorset no dreamweaver e deu tudo certo. Mas quando salvo a página e vou no loalhost, o filtro não funciona correctamente.
Qual é o problema?
O código: (o filtro que estou a referir esta no Recorset2)
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"
%>
<!--#include file="Connections/conbd.asp" -->
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (Request.QueryString("ID") <> "") Then
Recordset1__MMColParam = Request.QueryString("ID")
End If
%>
<%
Dim Recordset1
Dim Recordset1_cmd
Dim Recordset1_numRows
Set Recordset1_cmd = Server.CreateObject ("ADODB.Command")
Recordset1_cmd.ActiveConnection = MM_conbd_STRING
Recordset1_cmd.CommandText = "SELECT * FROM filmes WHERE ID = ?"
Recordset1_cmd.Prepared = true
Recordset1_cmd.Parameters.Append Recordset1_cmd.CreateParameter("param1", 5, 1, -1, Recordset1__MMColParam) ' adDouble
Set Recordset1 = Recordset1_cmd.Execute
Recordset1_numRows = 0
%>
<%
Dim Recordset2__MMColParam
Recordset2__MMColParam = "1"
If (Request.QueryString("id_filme") <> "") Then
Recordset2__MMColParam = Request.QueryString("id_filme")
End If
%>
<%
Dim Recordset2
Dim Recordset2_cmd
Dim Recordset2_numRows
Set Recordset2_cmd = Server.CreateObject ("ADODB.Command")
Recordset2_cmd.ActiveConnection = MM_conbd_STRING
Recordset2_cmd.CommandText = "SELECT * FROM comentarios WHERE id_filme = ?"
Recordset2_cmd.Prepared = true
Recordset2_cmd.Parameters.Append Recordset2_cmd.CreateParameter("param1", 5, 1, -1, Recordset2__MMColParam) ' adDouble
Set Recordset2 = Recordset2_cmd.Execute
Recordset2_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>
