Quero fazer o seguinte criar um recordset para selecionar tudo da tabela forum que atenda as seguintes condições: Se IDpergunta for = 0 então eu seleciono tudo onde ID = URL Parameter, se IDpergunta for diferente de 0 então eu seleciono tudo onde ID = URL Parameter.
Como sou iniciante estou tendo dificuldade,mas para vocês que são craques tenho certeza que vai ser fácil descobrir o que eu estou fazendo de errado.
CODE
<%
Dim rsmensagens
Dim rsmensagens_numRows
Set rsmensagens = Server.CreateObject("ADODB.Recordset")
rsmensagens.ActiveConnection = MM_connalpha_STRING
rsmensagens.Source = "SELECT * CASE IDpergunta = '"0"' Then SELECT * Where ID = " + Replace(rsmensagens__MMColParam, "'", "''") + " ELSE SELECT * WHERE IDpergunta = " + Replace(rsmensagens__MMColParam, "'", "''") + " FROM forum"
rsmensagens.CursorType = 0
rsmensagens.CursorLocation = 2
rsmensagens.LockType = 1
rsmensagens.Open()
rsmensagens_numRows = 0
%>
Dim rsmensagens
Dim rsmensagens_numRows
Set rsmensagens = Server.CreateObject("ADODB.Recordset")
rsmensagens.ActiveConnection = MM_connalpha_STRING
rsmensagens.Source = "SELECT * CASE IDpergunta = '"0"' Then SELECT * Where ID = " + Replace(rsmensagens__MMColParam, "'", "''") + " ELSE SELECT * WHERE IDpergunta = " + Replace(rsmensagens__MMColParam, "'", "''") + " FROM forum"
rsmensagens.CursorType = 0
rsmensagens.CursorLocation = 2
rsmensagens.LockType = 1
rsmensagens.Open()
rsmensagens_numRows = 0
%>
Obrigada

Help














