Notifikationer

Markér alle som læst Log ud

pretsmann Nybegynder

05. januar 2005 - 20:18 Der er 11 kommentarer og
1 løsning

Søgning i flere tabeller

Hej, er her en som kan fortælle mig hvordan jeg får rettet min kode således at der kan søges på mailadr. i flere tabeller...

Koden ser således ud: (denne kode søger kun i tabellen velkomstmail)

<% if mode = "forside" then

'Tjecker om brugeren er logget ind
if session("brugernavn") = "" then
Response.Redirect("login_salg.asp?mode=login")
end if

Session.Timeout = 60

'Hiver alle omraader ud:
Set omraade = Conn.Execute("select * from omraade order by Dato desc")

'Tjecker om feltet er udfyld
if (Request.Form("Boligejer") <> "") then

'Hiver alle Boligejere ud
Set velkomstmail = Conn.Execute("select * from velkomstmail where Boligejer = '" & Request("Boligejer") & "'")
Set promomail = Conn.Execute("select * from promomail where Boligejer = '" & Request("Boligejer") & "'")
Set feriebolig = Conn1.Execute("select * from bruger where brugerEmail = '" & Request("Boligejer") & "'")

'Tjecker om Boligejer er optaget
if velkomstmail.eof or velkomstmail.BOF then

stripstate = "E-mail eksisterer ikke..."
else
'Skriver at brugernavnet er optaget
stripstate = "E-mail adresse eksisterer allerede..."

end if

end if %>

Synes godt om

morteeart Nybegynder

05. januar 2005 - 20:22 #1

select * from velkomstmail OR andentabel OR tredietabel WHERE Boligejer = '" & Request("Boligejer") & "'

Synes godt om

tjaz Nybegynder

05. januar 2005 - 20:23 #2

Prøv og skift det her ud:

'Tjecker om Boligejer er optaget
if velkomstmail.eof or velkomstmail.BOF then
stripstate = "E-mail eksisterer ikke..."
else
'Skriver at brugernavnet er optaget
stripstate = "E-mail adresse eksisterer allerede..."
end if

med:

'Tjecker om Boligejer er optaget
if velkomstmail.eof or promomail.eof or feriebolig.eof then
stripstate = "E-mail eksisterer ikke..."
else
'Skriver at brugernavnet er optaget
stripstate = "E-mail adresse eksisterer allerede..."
end if

Synes godt om

pretsmann Nybegynder

05. januar 2005 - 20:37 #3

tjaz:

Det går ikke rigtigt, uanset om den findes eller ej kommer:
E-mail eksisterer ikke...

Synes godt om

tjaz Nybegynder

05. januar 2005 - 21:07 #4

Jeg skal lige høre... ligger alle oplysningerne i den samme database? eller er de delt ud i to forskellige *.mdb filer?

Synes godt om

tjaz Nybegynder

05. januar 2005 - 21:17 #5

(spørg fordi du har en Conn og en Conn1)

Synes godt om

pretsmann Nybegynder

05. januar 2005 - 23:35 #6

nej oplysnoingerne er fordelt i 2 databaser, således:

'Åbner connection til databasen
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("..\database\salg.mdb")

Set conn1 = Server.CreateObject("ADODB.Connection")
Conn1.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("..\database\feriebolig.mdb")

Synes godt om

tjaz Nybegynder

06. januar 2005 - 01:06 #7

Prøv og se om den her virker:

<%
if mode = "forside" then
'Tjecker om brugeren er logget ind
if session("brugernavn") = "" then
Response.Redirect("login_salg.asp?mode=login")
end if
Session.Timeout = 60
'Hiver alle omraader ud:
Set omraade = Conn.Execute("select * from omraade order by Dato desc")
'Tjecker om feltet er udfyld
if (Request.Form("Boligejer") <> "") then
'Hiver alle Boligejere ud fra salg.mdb
Set mailtjek1 = Conn.Execute("select * from velkomstmail where Boligejer = '" & Request("Boligejer") & "' OR promomail where Boligejer = '" & Request("Boligejer") & "'")
'Tjecker om Boligejer er optaget i salg.mdb
if mailtjek1.eof or mailtjek1.BOF then
'Hiver alle Boligejere ud fra feriebolig.mdb hvis den ikke fandt noget i salg.mdb
Set mailtjek2 = Conn1.Execute("select * from bruger where brugerEmail = '" & Request("Boligejer") & "'")
' Tjekker om den findes i feriebolig.mdb
if mailtjek2.eof or mailtjek2.BOF then
'Skriver hvis brugernavnet ikke findes overhovedet
stripstate = "E-mail eksisterer ikke..."
else
'Skriver at brugernavnet findes i feriebolig.mdb
stripstate = "E-mail adresse eksisterer allerede..."
end if
else
'Skriver at brugernavnet findes i salg.mdb
stripstate = "E-mail adresse eksisterer allerede..."
end if
end if
%>

Hvis den ikke gør kommer der lige en mere som der gerne skulle virke

Synes godt om

tjaz Nybegynder

06. januar 2005 - 01:11 #8

Den her skulle helt sikkert gerne virke:

<%
if mode = "forside" then
'Tjecker om brugeren er logget ind
if session("brugernavn") = "" then
Response.Redirect("login_salg.asp?mode=login")
end if
Session.Timeout = 60
'Hiver alle omraader ud:
Set omraade = Conn.Execute("select * from omraade order by Dato desc")
'Tjecker om feltet er udfyld
if (Request.Form("Boligejer") <> "") then
'Hiver alle Boligejere ud fra salg.mdb
Set mailtjek1 = Conn.Execute("select * from velkomstmail where Boligejer = '" & Request("Boligejer") & "'")
'Tjecker om Boligejer er optaget i salg.mdb
if mailtjek1.eof or mailtjek1.BOF then
'Hiver alle Boligejere ud fra salg.mdb
Set mailtjek2 = Conn.Execute("select * from promomail where Boligejer = '" & Request("Boligejer") & "'")
'Tjecker om Boligejer er optaget i salg.mdb
if mailtjek2.eof or mailtjek2.bof then
'Hiver alle Boligejere ud fra feriebolig.mdb hvis den ikke fandt noget i salg.mdb
Set mailtjek3 = Conn1.Execute("select * from bruger where brugerEmail = '" & Request("Boligejer") & "'")
' Tjekker om den findes i feriebolig.mdb
if mailtjek3.eof or mailtjek3.BOF then
'Skriver hvis brugernavnet ikke findes overhovedet
stripstate = "E-mail eksisterer ikke..."
else
'Skriver at brugernavnet findes i feriebolig.mdb
stripstate = "E-mail adresse eksisterer allerede..."
end if
else
'Skriver at brugernavnet findes i salg.mdb
stripstate = "E-mail adresse eksisterer allerede..."
end if
else
'Skriver at brugernavnet findes i salg.mdb
stripstate = "E-mail adresse eksisterer allerede..."
end if
end if
%>

Synes godt om

tjaz Nybegynder

06. januar 2005 - 01:14 #9

Jeg går ud fra at du er klar over at der mangler en "end if" for at det passer (men jeg kunne forstille mig at den er længere nede i scriptet).

Synes godt om

tjaz Nybegynder

06. januar 2005 - 01:26 #10

har lige kigget på dit andet spm også ... så det skulle gerne virke med den kode jeg har smidt ;)

Synes godt om

tjaz Nybegynder

06. januar 2005 - 01:26 #11

hov... glemte link:

http://www.eksperten.dk/spm/575771

Synes godt om

pretsmann Nybegynder

06. januar 2005 - 14:20 #12

mange tak for hjælpen, det virker perfekt!!!

det lyder godt med det andet spm. det afprøver jeg lige...

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	9	25/06/202622:20	29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS