klurig IF :D

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

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,

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]

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

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

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

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

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

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.