---
title: "Hjälp med snabbsök"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/155920-hjälp-med-snabbsök"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "SGuncel"
published: "2007-01-12T21:02:46.000Z"
updated: "2007-01-13T11:26:40.000Z"
replies: 10
views: 507
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/155920-hjälp-med-snabbsök"
---

# Hjälp med snabbsök

## #1 — SGuncel, 2007-01-12T21:02Z

Hur ska jag få så att man går till personens sida efter man har sökt?
\<form action="Meny.asp?Search=User" method="post"\>         
                         \<tr\>
                \<td width="6"\>\</td\>
					\<td width="144"\>
                 
                  \<input type="text" name="UsrTLAlias" onFocus="if(this.value=='Sök Efter Turkar'){this.value='';}" onBlur="if(this.value==''){this.value='Sök Efter Turkar';}"\>
                  \<input type="submit" value="Sök"\>
                 \</td\>
                \</tr\> 
                \</form\>
                \<%
               IF Request.Querystring("Search")="User" then
strSQL = "Select \* from TLUsers where UsrTLAlias="&Request.Form("UsrTLAlias")&"" & " order by UsrLastLogin desc"
	Set ObjRS = ObjConn.Execute(strSQL)

		IF ObjRS.Eof then
			Response.Write "\<script language=""JavaScript"" type=""text/javascript""\>window.alert(unescape(""Det finns ingen användare med detta användarnamn.""));\</script\>"
		else

	ObjRS.Close
	Set ObjRS = Nothing

	ObjConn.Close
	Set ObjConn = Nothing

			Response.Redirect "../UsrProfile/Profil.asp?UsrID=

		End if
		End if
                %\>
Undrar hur jags ka få Id:et.
Response.Redirect "../UsrProfile/Profil.asp?UsrID= menar hit

Permalänk: https://www.webforum.nu/p/155920

## #2 — @nders, 2007-01-12T21:05Z

Hej, och välkommen till webForum!

```
...

IF ObjRS.Eof then
     Response.Write "<script language=""JavaScript"" type=""text/javascript"">window.alert(unescape(""Det finns ingen användare med detta användarnamn.""));</script>"
else
     lUserID = objRS("userID")
     ObjRS.Close
     Set ObjRS = Nothing

     ObjConn.Close
     Set ObjConn = Nothing

     Response.Redirect "../UsrProfile/Profil.asp?UsrID=" & lUserID

...
```

Använd \[kod\]-taggar när du postar kod, så blir allt så mycket sexigare. :-)

Mvh

Permalänk: https://www.webforum.nu/p/1923342

## #3 — SGuncel, 2007-01-12T23:25Z

Okej, sorry :)

```
                       <form action="Meny.asp?Search=User" method="post">         
                         <tr>
                <td width="6"></td>
					<td width="144">
                 
                  <input type="text" name="UsrTLAlias" value="Sök Efter Turkar" onFocus="if(this.value=='Sök Efter Turkar'){this.value='';}" onBlur="if(this.value==''){this.value='Sök Efter Turkar';}" size="2">
                  <input type="submit" value="Sök">
                 </td>
                </tr> 
                </form>
                <%
               IF Request.Querystring("Search")="User" then
strSQL = "Select * from TLUsers where UsrTLAlias="&Request.Form("UsrTLAlias")&"" & " order by UsrLastLogin desc"
	Set ObjRS2 = ObjConn.Execute(strSQL)

IF ObjRS2.Eof then
     Response.Write "<script language=""JavaScript"" type=""text/javascript"">window.alert(unescape(""Det finns ingen användare med detta användarnamn.""));</script>"
else
     lUsrID = objRS2("UsrId")
     ObjRS2.Close
     Set ObjRS2 = Nothing

     ObjConn.Close
     Set ObjConn = Nothing

     Response.Redirect "../UsrProfile/Profil.asp?UsrID=" & lUsrID
End If
 %>
```

Har nu gjort så här men får felet:
Microsoft VBScript compilation error '800a03f6' 

Expected 'End' 

/Main/Meny.asp, line 145

Permalänk: https://www.webforum.nu/p/1923359

## #4 — Riffles, 2007-01-12T23:35Z

> **SGuncel skrev:**
>
> Okej, sorry :)
> 
>
>
> ```
>                        <form action="Meny.asp?Search=User" method="post">         
>                          <tr>
>                 <td width="6"></td>
> 					<td width="144">
>                  
>                   <input type="text" name="UsrTLAlias" value="Sök Efter Turkar" onFocus="if(this.value=='Sök Efter Turkar'){this.value='';}" onBlur="if(this.value==''){this.value='Sök Efter Turkar';}" size="2">
>                   <input type="submit" value="Sök">
>                  </td>
>                 </tr> 
>                 </form>
>                 <%
>                IF Request.Querystring("Search")="User" then
> strSQL = "Select * from TLUsers where UsrTLAlias="&Request.Form("UsrTLAlias")&"" & " order by UsrLastLogin desc"
> 	Set ObjRS2 = ObjConn.Execute(strSQL)
> 
> IF ObjRS2.Eof then
>      Response.Write "<script language=""JavaScript"" type=""text/javascript"">window.alert(unescape(""Det finns ingen användare med detta användarnamn.""));</script>"
> else
>      lUsrID = objRS2("UsrId")
>      ObjRS2.Close
>      Set ObjRS2 = Nothing
> 
>      ObjConn.Close
>      Set ObjConn = Nothing
> 
>      Response.Redirect "../UsrProfile/Profil.asp?UsrID=" & lUsrID
> End If
>  %>
> ```
>
> 
> 
> Har nu gjort så här men får felet:
> Microsoft VBScript compilation error '800a03f6' 
> 
> Expected 'End' 
> 
> /Main/Meny.asp, line 145

Du har inte provat med att sätta dit ett END efter rad 145? Gör det!

Permalänk: https://www.webforum.nu/p/1923363

## #5 — Peter S, 2007-01-12T23:36Z

```
IF Request.Querystring("Search")="User" then
  strSQL = "Select * from TLUsers where UsrTLAlias="&Request.Form("UsrTLAlias")&"" & " order by UsrLastLogin desc"
  Set ObjRS2 = ObjConn.Execute(strSQL)

  IF ObjRS2.Eof then
    Response.Write "<script language=""JavaScript"" type=""text/javascript"">window.alert(unescape(""Det finns ingen användare med detta användarnamn.""));</script>"
  else
     lUsrID = objRS2("UsrId")
     ObjRS2.Close
     Set ObjRS2 = Nothing

     ObjConn.Close
     Set ObjConn = Nothing

     Response.Redirect "../UsrProfile/Profil.asp?UsrID=" & lUsrID
  End If
[red]End If[/red]
```

Skriv gärna ut vad som finns på den rad felet uppkommer.

Permalänk: https://www.webforum.nu/p/1923364

## #6 — SGuncel, 2007-01-12T23:49Z

Sorry, det va riktigt misstag av mig o missa andra IF satsen :D
Men när jag söker så kommer detta:
Microsoft JET Database Engine error '80040e10' 
No value given for one or more required parameters. 

/Main/Meny.asp, line 131 

```
130: strSQL = "Select * from TLUsers where UsrTLAlias="&Request.Form("UsrTLAlias" &"" & " order by UsrLastLogin desc"
131: Set ObjRS2 = ObjConn.Execute(strSQL)
132: IF ObjRS2.Eof then
```

Jag vill att profilen ska komma till target="start" :D

Permalänk: https://www.webforum.nu/p/1923366

## #7 — Peter S, 2007-01-12T23:51Z

Det saknas en högerparentes för Request.Form(). Sedan behöver du inte konkatenera in en tom sträng mellan nämnt stycke och *order by*.

Tag för vana att alltid undersöka och säkra värden innan du stoppar in dem i SQL-satser (sök på *SQL-injection*).

Permalänk: https://www.webforum.nu/p/1923367

## #8 — SGuncel, 2007-01-13T00:25Z

```
<%
               IF Request.Querystring("Search")="User" then
strSQL = "Select * from TLUsers where UsrTLAlias=" & Fixbug(Request.Form("UsrTLAlias")) & "" & " order by UsrLastLogin desc"
	Set ObjRS2 = ObjConn.Execute(strSQL)

IF ObjRS2.Eof then
     Response.Write "<script language=""JavaScript"" type=""text/javascript"">window.alert(unescape(""Det finns ingen användare med detta användarnamn.""));</script>"
else
     lUsrID = objRS2("UsrId")
     ObjRS2.Close
     Set ObjRS2 = Nothing

     ObjConn.Close
     Set ObjConn = Nothing

     Response.Redirect "../UsrProfile/Profil.asp?UsrID=" & lUsrID
End If
End If
 %>
```

Fixbug är min SQL-injection.

Permalänk: https://www.webforum.nu/p/1923370

## #9 — @nders, 2007-01-13T07:33Z

Apostrofer runt strängvärden i SQL:

```
strSQL = "Select * from TLUsers where UsrTLAlias='" & Fixbug(Request.Form("UsrTLAlias")) & "' order by UsrLastLogin desc"
```

(Jag tog också bort den onödiga tomsträngskonkateneringen som Peter nämner. Läs mer om detta [här](http://www.webforum.nu/showthread.php?t=142490).)

Mvh

Permalänk: https://www.webforum.nu/p/1923375

## #10 — SGuncel, 2007-01-13T09:38Z

Det funkar, tack ska ni ha allihopa för hjälpen men hur ska jag göra så att det kommer till target="Start"?

Permalänk: https://www.webforum.nu/p/1923384

## #11 — @nders, 2007-01-13T11:26Z

Menar du att du vill ladda *"../UsrProfile/Profil.asp?UsrID=" & lUsrID* i en frame som heter *Start*? I så fall får du göra det med javascript.

```
Response.write "<script>parent.frames['Start'].location.href='../UsrProfile/Profil.asp?UsrID=" & lUsrID & "';</script>"
```

... är ett exempel.

Permalänk: https://www.webforum.nu/p/1923392

---

Tråden på webben: https://www.webforum.nu/amne/asp/155920-hjälp-med-snabbsök