klurig IF :D

8 svar · 183 visningar · startad av Cactuz 6 jan. 2002

CactuzMedlem sedan okt. 2001670 inlägg

Frågan6 jan. 2002 19:00#1

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 %>

@ndersMedlem sedan juni 200032 967 inlägg

6 jan. 2002 19:08#2

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,

LarsGMedlem sedan dec. 200012 464 inlägg

6 jan. 2002 19:18#3

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>"
%>

------------------
essentitia preter non sans multiplicandum

[Redigerat av LarsG den 06 jan 2002]

CactuzMedlem sedan okt. 2001670 inlägg

6 jan. 2002 19:29#4

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

LarsGMedlem sedan dec. 200012 464 inlägg

6 jan. 2002 19:34#5

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>"
%>

------------------
essentitia preter non sans multiplicandum

CactuzMedlem sedan okt. 2001670 inlägg

6 jan. 2002 21:00#6

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

CactuzMedlem sedan okt. 2001670 inlägg

6 jan. 2002 21:00#7

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

LarsGMedlem sedan dec. 200012 464 inlägg

6 jan. 2002 21:07#8

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>"
%>

------------------
essentitia preter non sans multiplicandum

CactuzMedlem sedan okt. 2001670 inlägg

6 jan. 2002 21:40#9

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.