---
title: "snääälaaaaaa hjälp :("
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/14308-snääälaaaaaa-hjälp"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "hacktheplanet"
published: "2002-02-09T10:13:00.000Z"
updated: "2002-02-09T12:59:00.000Z"
replies: 7
views: 174
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/14308-snääälaaaaaa-hjälp"
---

# snääälaaaaaa hjälp :(

## #1 — hacktheplanet, 2002-02-09T10:13Z

jag har bytt iden i databasen till replikerinsid och nu funkar det inte och lägga till kompisar i sin kompislista :(

```
<%
If int(Request.QueryString("id")) = Session("id") Then 
Session("meddelande") = "Du kan inte ha dig själv som kompis."
Response.Redirect "kompislistan.asp" 
Else

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/members.mdb")&""

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select * From members Where id=" &Request.QueryString("id2")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

namn = RecSet("username")

RecSet.Close
Connect.Close

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/kompisar.mdb")&""

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select * From kompis"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

Set RecSet9 = Server.CreateObject("ADODB.Recordset")

Addera = "Select * From message"
RecSet9.Open Addera, Connect9, adOpenStatic, adLockOptimistic
'#####################################################

'####################### KONTROLLERAR OM KOMPIS REDAN FINNS ##################

DO UNTIL RecSet.EOF

	If RecSet("ID2") = int(Request.QueryString("id2")) AND int(Session("id")) = RecSet("ID1") Then
		RecSet.Close
		Connect.Close
		Response.Redirect "kompislistan.asp"
	End If

RecSet.MoveNext

Loop

'################################### KONTROLLEN SLUTFÖRD ######################

	RecSet.AddNew

	RecSet("ID1") = Session("id")
	RecSet("ID2") = Request.QueryString("id2")
	RecSet("namn") = namn
	RecSet("blevkompis") = now
	
	RecSet.Update

	RecSet.Close
	Connect.Close

	Set RecSet = nothing
	Set Connect = nothing

Response.Redirect "kompislistan.asp"
%>
```

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

## #2 — Rinaldo, 2002-02-09T10:19Z

Vad är problemet? 
Vad får du för felmeddelande?

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

## #3 — hacktheplanet, 2002-02-09T10:20Z

får inget felmeddelande det händer ingenting??
länken ser ut såhär
kompisar.asp?laggtill=ja&id=\<%=Request.QueryString("checkid")%\>

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

## #4 — hacktheplanet, 2002-02-09T10:21Z

användarnamnet läggs inte in i kompislistan?

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

## #5 — Rinaldo, 2002-02-09T10:22Z

Funkade denna kod förut innan du bytte ID?

Vad heter Dina fält i DBn... frågar du om rätt querystring?

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

## #6 — hacktheplanet, 2002-02-09T10:23Z

japp den funkade 
ID
ID1
ID2

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

## #7 — Rinaldo, 2002-02-09T10:26Z

Jag har lite svårt att se vad du vill göra med de olika ID, ID1, ID2 men just nu på den sista sidan lägger du bara till ordet namn i fältet "namn" och inte någon variabel?

Ska det vara så?

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

## #8 — Pace, 2002-02-09T12:59Z

Jag fliker in med en liten kommentar här:

> snääälaaaaaa hjälp :(

Försök använda någon bättre rubrik, så att man förstår vad det handlar om. Vissa personer har specialkunskaper om saker och ting, så det vore i så fall lättare för dem att svara när de ser en tråd som handlar om det.
Just a thought!

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/14308-snääälaaaaaa-hjälp