Jag har problem att se resultatet på min sökning, grejen är den att jag får inga fel medd. och att mina sp är korrekta, man ser helt enkelt inte resultatet i "rutan". snälla hjälp mig med detta. Hur ser din procedure ut? Vad har du för värde in till den, alltså vad är var lika med? Har kommer mina store proc.Visar ej resultatet [löst]
tack på förhand
<code>
<HTML>
<HEAD>
<style type="text/css">
<!--
BODY { BACKGROUND-ATTACHMENT: fixed ; font-family: Arial;color:black;font-size:8pt; margin-right:0; }
DIV { font-family: Arial, Helvetica; color:black;font-size:8pt; }
TABLE { font-family: Arial, Helvetica; color:black;font-size:8pt; }
A { text-decoration:none; color:black}
A:VISITED { color:black; }
A:HOVER { text-decoration:underline; color:red; }
.Outline { font-size:10pt; line-height:10pt; color:white; cursor:hand; text-decoration:none; font-weight:bold; }
.Outline2 { font-size:8pt; line-height:8pt; color:white; cursor:hand; text-decoration:none; font-weight:bold; }
.Topic { font-size:8pt; line-height:8pt; color:white; cursor:hand; text-decoration:none; font-weight:bold; }
//-->
</style>
</HEAD>
<BODY BGCOLOR="#FFFAF0" onload="SetFocus()">
<% Set cn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
Set cmd = Server.CreateObject("ADODB.Command")
'cn.Open Application("DSN")
cn.Open "telekat"
cmd.ActiveConnection = cn
' Om QueryString är tom, dvs vi har anropats från popup-fönstret så skall sökstängen hämtas i Form-objektet,
' annars skall den hämtas ur QueryString
If Request.Querystring("SearchFor") = "" Then
var = Request.Form("SearchFor")
Else
var = Request.QueryString("SearchFor")
End If
' Kontrollera om söksträngen är numerisk (endast tal, dvs telnr) och välj i så fall
' att köra fråga för sökning av anknytning
If isnumeric(varchar) Then
cmd.CommandText = "qrygetnumber"
Else
cmd.CommandText = "qrygetname"
End If
' Skapa en parameter och ladda den med parametervärden, bla söksträngen
' Kör frågan och lagra i rs
Set param1 = cmd.CreateParameter
param1.type = adchar
param1.size = 100
param1.name = "var"
param1.value = var & "*"
cmd.Parameters.Append param1
Set rs = cmd.Execute(,,adCmdStoredProc) %>
<TABLE width="100%" border="0" cellspacing="0" cellpadding="2">
<TR bgcolor="maroon" style="color:white">
<TH>Efternamn</TH>
<TH>Förnamn</TH>
<TH>Anknytning</TH>
<TH>Mobil</TH>
<TH>Psök</TH>
<TH>AVD</TH>
<TH>Mail</TH>
</TR>
<%' Loopa igenom resultatet och håll ordning på hur många rader som skrivits ut
Count = 1
DO While Not rs.EOF %>
<TR>
<TD><%= rs("lname") %></TD>
<TD nowrap bgcolor="silver"><%= rs("fname") %></TD>
<TD align="center" nowrap><%= rs("ankn") %></TD>
<TD align="center" nowrap bgcolor="silver"><%= rs("mobil") %></TD>
<TD align="center" nowrap><%= rs("psok") %></TD>
<TD align="center" nowrap bgcolor="silver" ><%= rs("avd") %></TD>
<TD nowrap>"><%= rs("mail") %></TD>
</TR>
<% rs.MoveNext
count=count+1
' För var 5:e rad skall en <hr> skrivas ut
if count MOD 5 = 1 Then %>
<TR>
<TD colspan="6"><HR></TD>
</TR>
<% End If
Loop %>
</TABLE>
<%' Städa och stäng
rs.close
cn.close
Set cmd = Nothing
Set rs = Nothing
Set cn = Nothing %>
<SCRIPT LANGUAGE="VBScript">
<!--
' Skript som sätter fokus i sökfältet i framesettets övre del så att man kan skriva en ny sökning direkt
Sub SetFocus()
window.parent.frames(0).window.document.frmForm.SearchFor.focus
window.parent.frames(0).window.document.frmForm.SearchFor.select
End Sub
//-->
</SCRIPT>
</BODY>
</HTML>
</code>Sv: Visar ej resultatet
Sv: Visar ej resultatet
CREATE PROCEDURE [qrygetname]
(
@var varchar (100)
)
AS
SELECT telekat.lname, telekat.fname, telekat.avd, telekat.uavd, telekat.mobil, telekat.ankn, telekat.psok, telekat.byggnad
FROM telekat
WHERE (((telekat.lname) LIKE @var)) OR (((telekat.fname) Like @var)) OR (((telekat.avd) Like @var)) OR (((telekat.uavd) Like @var)) OR (((telekat.mobil) Like @var)) OR (((telekat.ankn) Like @var)) OR (((telekat.psok) Like @var)) OR (((telekat.byggnad) Like @var))
ORDER BY telekat.lname, telekat.fname;
----------------------------------
CREATE PROCEDURE [qrygetnumber]
(
@var varchar(100)
)
AS
Select * from telekat
Where (((telekat.ankn) LIKE '%@var%' ))
Order by telekat.lname, telekat.fname;