---
title: "klurig IF :D"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/13600-klurig-if-d"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Cactuz"
published: "2002-01-06T19:00:00.000Z"
updated: "2002-01-06T21:40:00.000Z"
replies: 8
views: 220
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/13600-klurig-if-d"
---

# klurig IF :D

## #1 — Cactuz, 2002-01-06T19:00Z

Vad är det för fel? om man tar bort elseif så funkar det... går säkert lösa enkelt :)

```

<%
Set db = Server.CreateObject("ADODB.Connection")
db.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("db.mdb")
koll = "SELECT * FROM to WHERE namn = '"&username&"' AND namn2 = '"&vem&"'"
Set rs = db.Execute(koll)

IF NOT RS.EOF then
Response.Write("attans... nu blev det galet")

%>

<%
Set db = Server.CreateObject("ADODB.Connection")
db.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("db.mdb")
koll = "SELECT * FROM test WHERE namn = '"&from&"' AND till = '"&till&"'"
set RS = db.Execute(koll)

ElseIF NOT RS.EOF then
Response.Write("haha... nu blev det galet ;D")

Else
%>

<%
Set db = Server.CreateObject("ADODB.Connection")
db.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("db.mdb")

SQL = "Insert Into fraga(Namn,Till) VALUES('"&from&"', '"&till&"')"
Set rs = db.Execute(SQL)

Set rs = nothing
Set db = nothing

response.redirect "friends.asp" %>

<% END IF %>
```

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

## #2 — @nders, 2002-01-06T19:08Z

Du får nog byta namn på ditt andra recordset. Finns det någon anledning till att du kallar båda dina recordsets för rs?

Mvh,

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

## #3 — LarsG, 2002-01-06T19:18Z

Nu förstår jag inte riktigt vad du vill göra, men jag gissar att du vill göra inserten om du inte får träff på någon av select-frågorna.

```
<%
Set db = Server.CreateObject("ADODB.Connection")
db.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("db.mdb")
koll = "SELECT 1 FROM to WHERE namn = '" & username & "' AND namn2 = '" & vem & "'"
Set rs = db.Execute(koll)
exists = not rs.eof
rs.close

if exists then
   koll = "SELECT 1 FROM test WHERE namn = '" & from & "' AND till = '" & till & "'"
   set rs = db.Execute(koll)
   exists = not rs.eof
   rs.close
   if exists then
       SQL = "Insert Into fraga(Namn,Till) VALUES('" & from & "','" & till & "')"
       db.Execute SQL,,128
   end if
end if

db.close
if exists then
response.redirect "friends.asp"
end if

response.write "Nu blev det något galet <br>"
%>
```

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

## #4 — Cactuz, 2002-01-06T19:29Z

nej.. om jag fattade din dig rätt så ska den sista göras om de över är fel

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

## #5 — LarsG, 2002-01-06T19:34Z

Då är det väl bara att vända på villkoret.

```
<%
Set db = Server.CreateObject("ADODB.Connection")
db.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("db.mdb")
koll = "SELECT 1 FROM to WHERE namn = '" & username & "' AND namn2 = '" & vem & "'"
Set rs = db.Execute(koll)
exists = not rs.eof
rs.close
if exists then
koll = "SELECT 1 FROM test WHERE namn = '" & from & "' AND till = '" & till & "'"
set rs = db.Execute(koll)
[b]exists = rs.eof[/b]
rs.close
if exists then
SQL = "Insert Into fraga(Namn,Till) VALUES('" & from & "','" & till & "')"
db.Execute SQL,,128
end if
end if

db.close
if exists then
response.redirect "friends.asp"
end if

response.write "Nu blev det något galet <br>"
%>
```

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

## #6 — Cactuz, 2002-01-06T21:00Z

nu blir det galet hela tiden :)
om det inte finns med i databasen sak den ju köra inserten

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

## #7 — Cactuz, 2002-01-06T21:00Z

nu blir det galet hela tiden :)
om det inte finns med i databasen sak den ju köra inserten

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

## #8 — LarsG, 2002-01-06T21:07Z

Så här då?

```
<%
Set db = Server.CreateObject("ADODB.Connection")
db.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("db.mdb")
koll = "SELECT 1 FROM to WHERE namn = '" & username & "' AND namn2 = '" & vem & "'"
Set rs = db.Execute(koll)
notFound = rs.eof
rs.close
if notFound then
koll = "SELECT 1 FROM test WHERE namn = '" & from & "' AND till = '" & till & "'"
set rs = db.Execute(koll)
notFound = rs.eof
rs.close
if notFound then
SQL = "Insert Into fraga(Namn,Till) VALUES('" & from & "','" & till & "')"
db.Execute SQL,,128
end if
end if
db.close
if notFound then
response.redirect "friends.asp"
end if

response.write "Nu blev det något galet <br>"
%>
```

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

## #9 — Cactuz, 2002-01-06T21:40Z

hur gör jag för att lägga in sessions? t.ex att om det går åt helsike på första ska session fel bli: "aj då.. nått gick snett" o om det går åt helsike på den andra ska det stå nått annat? har försökt men det funar inte.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/13600-klurig-if-d