mettecarsten Nybegynder

25. februar 2005 - 11:15 Der er 159 kommentarer og
1 løsning

Ændre asp-sætninger fra access-db til Mysql

Hej eksperter

Jeg har en hjemmeside i asp med tilhørende accessdatabase. Databasen og antallet af brugere er steget, så accessdatabasen er blevet ustabil og skal derfor selvfølgelig ændres til en mysqldatabase - jeg ved bare ikke så meget om ændringen af asp-kodningen, så de passer til mysqldatabasen - derfor meget gerne jeres hjælp!!

Jeg har hørt og kan se, at det formentlig ikke kræver det helt store. Problemet er umiddelbart, at accessdatabasen har en forespørgselstabel, som jo ikke "findes" i mysql. Nedenfor har jeg kopieret det centrale fra den side, som bruger oplysninger fra forespørgselstabellen:

<%
fl = 0
if session ("fl2") = 1 Then
SQL = session("SQL")

Else
Sql = ""
Sql = "Select id, foto, op, antalp, grundareal, vr, Beskr, ann, Overskrift, amt, uge, link, Ledigt From hus2 where "
if uge = "Uvæsentlig" Then
sql = sql
Else
sql = sql & " uge = " & uge & " "
End if
if Antalp = "Uvæsentlig" then
sql = sql & "Antalp >" & 1 & " "
Else
sql = sql & "and Antalp >=" & AP & " "
end if
if Pris = "Uvæsentlig" then
'sql = sql & "and Pris1 <=" & 0 & " "
Else

sql = sql & "and pris1 <=" & Pris & " "

end if

if alle = "ON" Then
sql = sql
Else
sql = sql & " and("
End if

if o1 = "ON" Then
sql = sql & "Amt = 'o1'"
fl = 1
End if

if o2 = "ON" Then
if fl = 0 then
sql = sql & "amt = 'o2'"
fl = 1
else
sql = sql & "or amt = 'o2'"
fl = 1
End if
End if

......

"hus2" er forespørgselstabellen, som primært samler tabellerne "bruger" og "hus".

Spørgsmålet er herefter, hvordan jeg laver sætningerne om, så de ikke bruger forespørgselstabellen, men i stedet de 2 tabeller enkeltvis?

Virkelig på forhånd tak.

Synes godt om

hiks Nybegynder

25. februar 2005 - 11:39 #1

hej

hvorfor ikke bruge den SQL sætning din forespørgselstabel i Access er baseret på - og så bare sætte din WHERE sætning fra din asp side ind i den. Det burde umiddelbart give det samme på tværs af de to databaser medmindre der er noget med GROUP BY osv. men prøv evt. at paste din SQL fra forespørgselstabellen ind her.

/hiks

Synes godt om

mettecarsten Nybegynder

25. februar 2005 - 11:58 #2

Tak for rådet, men må desværre sige, at jeg ikke helt er med! "SQL fra forespørgselstabellen " - er det asp-koden i selve siden eller noget fra access?

Synes godt om

hiks Nybegynder

25. februar 2005 - 12:06 #3

det er i access.

Hvis du går i Access og åbner din forespørgselstabel - så på "drop-down" menuen hvor man kan skifte mellem designvisning, tabelvisning og sql - der vælger du SQL og den kan du jo så i stedet for "bare" udføre fra dine ASP-sider.

En forespørgselstabel i Access er bare en "virtuel" tabel som er en SQL-sætning.

/hiks

Synes godt om

mettecarsten Nybegynder

25. februar 2005 - 12:14 #4

Super !!
Jeg fik denne kode:

SELECT DISTINCTROW hus.Overskrift, hus.Op, hus.Antalp, Uge.Hus, Uge.uge, Uge.Ledigt, Uge.Pris1, Uge.Pris2, Uge.Lm, Uge.Pris3, Uge.Pris4, hus.Grundareal, hus.Husets, hus.Vr, hus.Afi, hus.Ass, hus.Parabol, hus.Stereo, hus.Telefon, hus.tv, hus.Video, hus.Barnestol, hus.Kedel, hus.emh, hus.Fryser, hus.Kaffe, hus.Komfur, hus.kl, hus.Micro, hus.Opvask, hus.Bruser, hus.Sauna, hus.Sol, hus.Spa, hus.Brovn, hus.El, hus.Husdyr, hus.Pool, hus.Stsuger, hus.Tumbler, hus.Vaske, hus.Carport, hus.Cykler, hus.Grill, hus.Have, hus.Terrasse, hus.Foto, hus.Beskr, hus.Ejer, hus.Ann, hus.Amt, hus.Lann, [pris1]-[pris3] AS Spar, hus.Link, hus.IA, hus.Rk, hus.id, hus.tann, hus.tbeskriv, [pris2]-[pris4] AS tSpar, hus.eann, hus.ebeskriv
FROM Uge INNER JOIN hus ON Uge.Hus = hus.id
WHERE (((hus.IA) Is Null Or (hus.IA)=""))
ORDER BY Uge.Hus, Uge.uge, hus.Amt, hus.id;

Er den umiddelbart anvendelig overfor en mysql-database?

Synes godt om

hiks Nybegynder

25. februar 2005 - 12:22 #5

ja det er jo et godt spørgsmål - det eneste jeg lige kan se er måske DISTINCTROW - som i mysql nok bare vil gå under DISTINCT.

En måde er jo bare at forsøge sig frem :o) Det går det ikke umiddelbart i stykker af.

Det du så gør nu er at du sætte den sql der ind og modificerer din SQL i asp'en som du har gjort indtil nu.

/hiks

Synes godt om

mettecarsten Nybegynder

25. februar 2005 - 12:59 #6

Jeg har nu prøvet at lege lidt med forskellige sætninger, men det ender altid med en fejlkode, f.eks.:

Microsoft VBScript compilation error '800a0409'

Unterminated string constant

/Sgef2mysql.asp, line 224

Sql = "SELECT DISTINCT hus.Overskrift, hus.Op, hus.Antalp, Uge.Hus, Uge.uge, Uge.Ledigt, Uge.Pris1, Uge.Pris2, Uge.Lm, Uge.Pris3, Uge.Pris4, hus.Grundareal, hus.Husets, hus.Vr, hus.Afi, hus.Ass, hus.Parabol, hus.Stereo, hus.Telefon, hus.tv, hus.Video, hus.Barnestol, hus.Kedel, hus.emh, hus.Fryser, hus.Kaffe, hus.Komfur, hus.kl, hus.Micro, hus.Opvask, hus.Bruser, hus.Sauna, hus.Sol, hus.Spa, hus.Brovn, hus.El, hus.Husdyr, hus.Pool, hus.Stsuger, hus.Tumbler, hus.Vaske, hus.Carport, hus.Cykler, hus.Grill, hus.Have, hus.Terrasse, hus.Foto, hus.Beskr, hus.Ejer, hus.Ann, hus.Amt, hus.Lann, hus.Link, hus.IA, hus.Rk, hus.id, hus.tann, hus.tbeskriv, hus.eann, hus.ebeskriv --------

Jeg må nok bare desværre konstatere, at en sådan konvertering rækker langt udover mine tillærte evner :-)

Jeg håber, at der kan være en anden indgangsvinkel - ellers må jeg vist bare forespørge en pris fra en af jer under /Opgaver/Programmeringsopgaver/ :-)

Synes godt om

hiks Nybegynder

25. februar 2005 - 13:09 #7

jeg giver det lige 10 min. - så kan det være det bliver til noget.. :o)

/hiks

Synes godt om

and_ Nybegynder

25. februar 2005 - 13:10 #8

hvordan ser din nuværende sql ud?

Synes godt om

mettecarsten Nybegynder

25. februar 2005 - 13:13 #9

Det vigtigste i min nuværende sql kan du se i selve spg. - eller tænker du på noget andet?

Synes godt om

and_ Nybegynder

25. februar 2005 - 13:14 #10

aner ikke hvad den siger til dette, men prøv:

sql = "SELECT DISTINCT hus.Overskrift, hus.Op, hus.Antalp, Uge.Hus, Uge.uge, Uge.Ledigt, Uge.Pris1, Uge.Pris2, Uge.Lm, Uge.Pris3, Uge.Pris4, hus.Grundareal, hus.Husets, hus.Vr, hus.Afi, hus.Ass, hus.Parabol, hus.Stereo, hus.Telefon, hus.tv, hus.Video, hus.Barnestol, hus.Kedel, hus.emh, hus.Fryser, hus.Kaffe, hus.Komfur, hus.kl, hus.Micro, hus.Opvask, hus.Bruser, hus.Sauna, hus.Sol, hus.Spa, hus.Brovn, hus.El, hus.Husdyr, hus.Pool, hus.Stsuger, hus.Tumbler, hus.Vaske, hus.Carport, hus.Cykler, hus.Grill, hus.Have, hus.Terrasse, hus.Foto, hus.Beskr, hus.Ejer, hus.Ann, hus.Amt, hus.Lann, [pris1]-[pris3] AS Spar, hus.Link, hus.IA, hus.Rk, hus.id, hus.tann, hus.tbeskriv, [pris2]-[pris4] AS tSpar, hus.eann, hus.ebeskriv
FROM Uge INNER JOIN hus ON Uge.Hus = hus.id
WHERE (((hus.IA)=Null Or (hus.IA)=''))
ORDER BY Uge.Hus, Uge.uge, hus.Amt, hus.id"

Synes godt om

and_ Nybegynder

25. februar 2005 - 13:15 #11

du paster en kvart sætning i 25/02-2005 12:59:09
Jeg spørger om jeg ikke kan se den du har lavet og arbejde ud fra det?
Evt. hvis du har et link?

Synes godt om

hiks Nybegynder

25. februar 2005 - 13:18 #12

jeg håber det er noget i den her stil. Der mangler noget i bunden i forhold til det du pastede ind.

<%
fl = 0
if session ("fl2") = 1 Then
SQL = session("SQL")

Else
Sql = ""

SQL = "SELECT DISTINCT hus.Overskrift, hus.Op, hus.Antalp, Uge.Hus, Uge.uge, Uge.Ledigt, Uge.Pris1, Uge.Pris2, Uge.Lm, Uge.Pris3, Uge.Pris4, hus.Grundareal, hus.Husets, hus.Vr, hus.Afi, hus.Ass, hus.Parabol, hus.Stereo, hus.Telefon, hus.tv, hus.Video, hus.Barnestol, hus.Kedel, hus.emh, hus.Fryser, hus.Kaffe, hus.Komfur, hus.kl, hus.Micro, hus.Opvask, hus.Bruser, hus.Sauna, hus.Sol, hus.Spa, hus.Brovn, hus.El, hus.Husdyr, hus.Pool, hus.Stsuger, hus.Tumbler, hus.Vaske, hus.Carport, hus.Cykler, hus.Grill, hus.Have, hus.Terrasse, hus.Foto, hus.Beskr, hus.Ejer, hus.Ann, hus.Amt, hus.Lann, [pris1]-[pris3] AS Spar, hus.Link, hus.IA, hus.Rk, hus.id, hus.tann, hus.tbeskriv, [pris2]-[pris4] AS tSpar, hus.eann, hus.ebeskriv " & _
"FROM Uge INNER JOIN hus ON Uge.Hus = hus.id " & _
"WHERE (((hus.IA) Is Null Or (hus.IA)= '')) "

'Sql = "Select id, foto, op, antalp, grundareal, vr, Beskr, ann, Overskrift, amt, uge, link, Ledigt " & _
' "FROM hus2 where "

if uge = "Uvæsentlig" Then
sql = sql
Else
sql = sql & " AND uge = " & uge & " "
End if

if Antalp = "Uvæsentlig" then
sql = sql & " AND Antalp >" & 1 & " "
Else
sql = sql & "AND Antalp >=" & AP & " "
end if

if Pris = "Uvæsentlig" then
'sql = sql & "and Pris1 <=" & 0 & " "
Else
sql = sql & "AND pris1 <=" & Pris & " "
end if

if alle = "ON" Then
sql = sql
Else
sql = sql & " AND("
End if

if o1 = "ON" Then
sql = sql & " AND Amt = 'o1'"
fl = 1
End if

if o2 = "ON" Then
if fl = 0 then
sql = sql & " OR amt = 'o2'"
fl = 1
else
sql = sql & "OR amt = 'o2'"
fl = 1
End if
End if

sql = sql & " ORDER BY Uge.Hus, Uge.uge, hus.Amt, hus.id; "

Response.Write sql
'her manglede noget tror jeg!
...

%>

Synes godt om

and_ Nybegynder

25. februar 2005 - 13:22 #13

Du kan jo i mysql fyre dine sql-sætninger af førend du implementere dem på sitet.
På samme måde som forespørgsel virke i access...

havde du et link?

Synes godt om

mettecarsten Nybegynder

25. februar 2005 - 13:24 #14

Super - jeg afprøver lige

Synes godt om

mettecarsten Nybegynder

25. februar 2005 - 13:32 #15

Linket til "testsiden" er forresten: http://www.dansksommerhusudlejning.dk/forsidemysql.asp og derefter valg af et tilfældigt område

Synes godt om

mettecarsten Nybegynder

25. februar 2005 - 13:34 #16

Det er helt rigtigt, at der mangler noget - fortsætter med 'o3', 'o4' osv. Efter 'o29' kommer dette:

if o29 = "ON" Then
if fl = 0 then
sql = sql & "amt = 'o29'"
fl = 1
else
sql = sql & "or amt = 'o29'"
fl = 1
End if
End if

if Alle = "ON" Then
sql = sql
Else
sql = sql & ")"
End if
Session("fl2") = 1
End if

if Spa = "ON" Then
sql = sql & "and (spa = 'checked')"
End if
if Pool = "ON" Then
sql = sql & "and (Pool = 'checked')"
End if
if Vaske = "ON" Then
sql = sql & "and (Vaske = 'checked')"
End if

if OP = "ON" Then
sql = sql & "and (Opvask = 'checked')"
End if

if Hus = "ON" Then
sql = sql & "and (Husdyr = 'checked')"
End if

if Bo = "ON" Then
sql = sql & "and (Brovn = 'checked')"
End if
sql = sql & "and (Ledigt = 'checked')"
objrs.CursorLocation=3

objrs.open sql, conn, 1
If objrs.EOF And objrs.BOF Then
Response.Redirect "ingenposter.asp"
End if
Pr = objrs.recordcount

%>

Synes godt om

and_ Nybegynder

25. februar 2005 - 13:37 #17

Godt... nede til sidst i filen udskifter du lige med dette:

if Bo = "ON" Then
sql = sql & "and (Brovn = 'checked')"
End if
sql = sql & "and (Ledigt = 'checked')"
objrs.CursorLocation=3

'Indsættes her
response.write sql
response.end

objrs.open sql, conn, 1
If objrs.EOF And objrs.BOF Then
Response.Redirect "ingenposter.asp"
End if
Pr = objrs.recordcount

Synes godt om

and_ Nybegynder

25. februar 2005 - 13:37 #18

Sig til når det er gjort.

Dette bevirker at vi kan se den sql som bliver udfærdigt uden at siden bliver loadet videre

Synes godt om

mettecarsten Nybegynder

25. februar 2005 - 13:44 #19

Jeg har nu indsat forslaget Kommentar: hiks
25/02-2005 13:18:25, men mangler umiddelbart sql = sql & " ORDER BY Uge.Hus, Uge.uge, hus.Amt, hus.id; "
+ afsluttet med Kommentar: and_
25/02-2005 13:37:09

Synes godt om

and_ Nybegynder

25. februar 2005 - 13:46 #20

dette har jeg afprøvet nu og det virker:

<%
folder = "test"
strfolder = Server.Mappath(folder)
set filesys = CreateObject("Scripting.FileSystemObject")
if filesys.FolderExists(strfolder) then
set deletefolder = filesys.GetFolder(strfolder)
Response.Write ("Mappen er slettet!")
else
Response.Write ("Mappen findes ikke!")
set folder = nothing
end if
%>

Synes godt om

hiks Nybegynder

25. februar 2005 - 13:48 #21

nu kan jeg se du mangler din database forbindelse - dit objRS.

/hiks

Synes godt om

and_ Nybegynder

25. februar 2005 - 13:49 #22

sorry... forkert spørgsmål ;)

Synes godt om

mettecarsten Nybegynder

25. februar 2005 - 13:49 #23

Kommentar: and_ 25/02-2005 13:46:28: Jeg forstår desværre ikke dette?

Synes godt om

mettecarsten Nybegynder

25. februar 2005 - 13:51 #24

min databaseforbindelse skulle være ok - har testet mod mysqldatabasen ved simple forespørgsler - forbindelsen er integreret via

Synes godt om

and_ Nybegynder

25. februar 2005 - 13:51 #25

Prøv at se om vi kan tricke den ved at:

if Bo = "ON" Then
sql = sql & "and (Brovn = 'checked')"
End if
sql = sql & "and (Ledigt = 'checked')"
objrs.CursorLocation=3

'Indsæt denne
response.write sql

objrs.open sql, conn, 1
If objrs.EOF And objrs.BOF Then
Response.Redirect "ingenposter.asp"
End if
Pr = objrs.recordcount

Synes godt om

mettecarsten Nybegynder

25. februar 2005 - 13:53 #26

Det hjælper desværre ikke. Systemet melder fejl ved linie 572 "objrs.CursorLocation=3"

Synes godt om

mettecarsten Nybegynder

25. februar 2005 - 13:56 #27

Udover denne side bliver der formentlig også små problemer med login og oprettelse af nye annoncer. Er der nogle af jer, som har mod på denne opgave på "freelancebasis" mod betaling?

Synes godt om

and_ Nybegynder

25. februar 2005 - 13:58 #28

send en beskrivelse til: anders@ilenkop.dk

Synes godt om

and_ Nybegynder

25. februar 2005 - 13:58 #29

Men lad os nu lige se om vi ikke kan få det til at virke først ;)

Synes godt om

and_ Nybegynder

25. februar 2005 - 13:59 #30

if Bo = "ON" Then
sql = sql & "and (Brovn = 'checked')"
End if
sql = sql & "and (Ledigt = 'checked')"

'Indsæt denne
response.write sql

objrs.CursorLocation=3
objrs.open sql, conn, 1
If objrs.EOF And objrs.BOF Then
Response.Redirect "ingenposter.asp"
End if
Pr = objrs.recordcount

Synes godt om

hiks Nybegynder

25. februar 2005 - 14:01 #31

kan du ikke undlade cursorlocation helt?

ellers kan du også forsøge med:

objrs.open sql, conn, 1, 3

/hiks

Synes godt om

hiks Nybegynder

25. februar 2005 - 14:03 #32

og ang. det andet så kan vi sagtens finde ud af det. Det er bare at du sender noget om hvad du havde forestillet dig samt hvordan du helst vil ha det ang. betaling osv.

karsten@uploaded.dk

/hiks

Synes godt om

and_ Nybegynder

25. februar 2005 - 14:04 #33

Din sql lader til at blive overskrevet?

and (Ledigt = 'checked')

Synes godt om

mettecarsten Nybegynder

25. februar 2005 - 14:05 #34

Ja, uanset om cursorlocation eller ej, så kommer denne fejl:

SELECT DISTINCT hus.Overskrift, hus.Op, hus.Antalp, Uge.Hus, Uge.uge, Uge.Ledigt, Uge.Pris1, Uge.Pris2, Uge.Lm, Uge.Pris3, Uge.Pris4, hus.Grundareal, hus.Husets, hus.Vr, hus.Afi, hus.Ass, hus.Parabol, hus.Stereo, hus.Telefon, hus.tv, hus.Video, hus.Barnestol, hus.Kedel, hus.emh, hus.Fryser, hus.Kaffe, hus.Komfur, hus.kl, hus.Micro, hus.Opvask, hus.Bruser, hus.Sauna, hus.Sol, hus.Spa, hus.Brovn, hus.El, hus.Husdyr, hus.Pool, hus.Stsuger, hus.Tumbler, hus.Vaske, hus.Carport, hus.Cykler, hus.Grill, hus.Have, hus.Terrasse, hus.Foto, hus.Beskr, hus.Ejer, hus.Ann, hus.Amt, hus.Lann, [pris1]-[pris3] AS Spar, hus.Link, hus.IA, hus.Rk, hus.id, hus.tann, hus.tbeskriv, [pris2]-[pris4] AS tSpar, hus.eann, hus.ebeskriv FROM Uge INNER JOIN hus ON Uge.Hus = hus.id WHERE (((hus.IA) Is Null Or (hus.IA)= '')) AND uge = 0 AND Antalp >=1 AND(amt = 'o5')and (Ledigt = 'checked')

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/Sgef2mysql.asp, line 576

Synes godt om

and_ Nybegynder

25. februar 2005 - 14:06 #35

Hvad er linie 576 ?

Synes godt om

hiks Nybegynder

25. februar 2005 - 14:06 #36

du mangler et mellemrum.

if Bo = "ON" Then
sql = sql & " and (Brovn = 'checked')"
End if
sql = sql & " and (Ledigt = 'checked')"

/hiks

Synes godt om

hiks Nybegynder

25. februar 2005 - 14:10 #37

gider du ikke prøve at oprette en fil med dette her i - i samme directory:

<%@ Language=VBScript %>

<%

Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set f=fs.OpenTextFile(Server.MapPath("Sgef2mysql.asp"), 1)
filecontents = f.ReadAll
f.Close
Set f=Nothing
Set fs=Nothing

filecontents = Server.HTMLencode(filecontents)
filecontents = Replace(filecontents, vbcrlf, "<br>") ' udskifte linie skift med <br>
' udskriv fil
Response.Write(filecontents)

%>

Så kan vi følge lidt med hvad der står i asp-filen - du kan altid slette den når vi er færdige. Navngiv den evt. test.asp så kan vi nemlig se den.

/hiks

Synes godt om

and_ Nybegynder

25. februar 2005 - 14:11 #38

hiks --> Strålende ide ;)

Synes godt om

mettecarsten Nybegynder

25. februar 2005 - 14:20 #39

Nu skulle test.asp være at finde

Synes godt om

and_ Nybegynder

25. februar 2005 - 14:29 #40

objrs.open sql, conn, 1, 3
If objrs.EOF And objrs.BOF Then
Response.Redirect "ingenposter.asp"
End if

Synes godt om

hiks Nybegynder

25. februar 2005 - 14:29 #41

line 576 = objrs.CursorLocation=3 ,ik?

/hiks

Synes godt om

mettecarsten Nybegynder

25. februar 2005 - 14:30 #42

line 576 = objrs.CursorLocation=3 ,ik? JA

Synes godt om

and_ Nybegynder

25. februar 2005 - 14:31 #43

hehe close call ;)

som hiks foreslog i 25/02-2005 14:01:14:
er den sat i din open!

og du mangler stadig mellemrum:

if Bo = "ON" Then
sql = sql & " and (Brovn = 'checked')"
End if
sql = sql & " and (Ledigt = 'checked')"

Synes godt om

mettecarsten Nybegynder

25. februar 2005 - 14:32 #44

Kommentar: and_ 25/02-2005 14:29:45: skal linien med cursorlocation med eller slettes?

Synes godt om

and_ Nybegynder

25. februar 2005 - 14:34 #45

slettes....

Synes godt om

mettecarsten Nybegynder

25. februar 2005 - 14:42 #46

har nu ændret and_ 25/02-2005 14:29:45 + mellemrum, stadig

SELECT DISTINCT hus.Overskrift, hus.Op, hus.Antalp, Uge.Hus, Uge.uge, Uge.Ledigt, Uge.Pris1, Uge.Pris2, Uge.Lm, Uge.Pris3, Uge.Pris4, hus.Grundareal, hus.Husets, hus.Vr, hus.Afi, hus.Ass, hus.Parabol, hus.Stereo, hus.Telefon, hus.tv, hus.Video, hus.Barnestol, hus.Kedel, hus.emh, hus.Fryser, hus.Kaffe, hus.Komfur, hus.kl, hus.Micro, hus.Opvask, hus.Bruser, hus.Sauna, hus.Sol, hus.Spa, hus.Brovn, hus.El, hus.Husdyr, hus.Pool, hus.Stsuger, hus.Tumbler, hus.Vaske, hus.Carport, hus.Cykler, hus.Grill, hus.Have, hus.Terrasse, hus.Foto, hus.Beskr, hus.Ejer, hus.Ann, hus.Amt, hus.Lann, [pris1]-[pris3] AS Spar, hus.Link, hus.IA, hus.Rk, hus.id, hus.tann, hus.tbeskriv, [pris2]-[pris4] AS tSpar, hus.eann, hus.ebeskriv FROM Uge INNER JOIN hus ON Uge.Hus = hus.id WHERE (((hus.IA) Is Null Or (hus.IA)= '')) AND uge = 0 AND Antalp >=1 AND(amt = 'o6') and (Ledigt = 'checked')

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/Sgef2mysql.asp, line 576

Skal allersidste linie (Pr = objrs.recordcount) være der eller slettes)?

Synes godt om

and_ Nybegynder

25. februar 2005 - 14:42 #47

så ser den da rigtig ud ikke? eller`?

Synes godt om

and_ Nybegynder

25. februar 2005 - 14:43 #48

sorry... forkert fil ;)

Synes godt om

and_ Nybegynder

25. februar 2005 - 14:52 #49

den kan jo ikke finde din connection....

sikker på at den hedder objrs ?

Synes godt om

hiks Nybegynder

25. februar 2005 - 14:53 #50

jeg går ud fra at det er galt med din connection på en eller anden måde:

objrs.open sql, conn, 1, 3

om det så enten er dit objrs eller conn det går galt med er jeg ikke helt klar over - men vi når ikke engang til at få svar fra databasen - som til den tid jo nok skal blive sjovt! :o)

du er helt sikker på at du kan udføre normale forespørgsel på den måde der?

prøv evt. med

SQL = "SELECT * FROM uge;"

/hiks

Synes godt om

mettecarsten Nybegynder

25. februar 2005 - 14:57 #51

http://www.dansksommerhusudlejning.dk/Husmysql.asp?Id=20

Dette link henter oplysninger fra mysql-databasen. Bruger også

Synes godt om

and_ Nybegynder

25. februar 2005 - 14:57 #52

Hvad er indholdet af din forbindelse

Bare erstat brugernavn og kodeord med xxxxxxxx

Synes godt om

mettecarsten Nybegynder

25. februar 2005 - 15:02 #53

<%
SQLserveradr="xxxxxxx"
SQLdatabase="xxxxxxxxxxx"
SQLlogin="xxxxxx"
SQLpassword="xxxxxx"

Set Conn = Server.CreateObject("ADODB.Connection")

conStr = "driver={MySql};server="& SQLserveradr &";database="& SQLdatabase
conStr = conStr & ";uid="& SQLlogin &";pwd="& SQLpassword & ";OPTION=16386"

Conn.Open conStr
%>

Synes godt om

hiks Nybegynder

25. februar 2005 - 15:09 #54

du mangler vel at sætte dit recordset

Set objRS = Server.CreateObject("ADODB.Recordset")
objrs.open sql, conn, 3, 3

If objrs.EOF And objrs.BOF Then
Response.Redirect "ingenposter.asp"
End if

/hiks

Synes godt om

and_ Nybegynder

25. februar 2005 - 15:14 #55

Bruger du phpmyadmin?

Hvis ja så:

Klik på sql og indsæt følgende sql.... Så kan du se om du får noget output...
screenshot her: http://www.ilenkop.dk/exp/mysql.jpg

SELECT DISTINCT hus.Overskrift, hus.Op, hus.Antalp, Uge.Hus, Uge.uge, Uge.Ledigt, Uge.Pris1, Uge.Pris2, Uge.Lm, Uge.Pris3, Uge.Pris4, hus.Grundareal, hus.Husets, hus.Vr, hus.Afi, hus.Ass, hus.Parabol, hus.Stereo, hus.Telefon, hus.tv, hus.Video, hus.Barnestol, hus.Kedel, hus.emh, hus.Fryser, hus.Kaffe, hus.Komfur, hus.kl, hus.Micro, hus.Opvask, hus.Bruser, hus.Sauna, hus.Sol, hus.Spa, hus.Brovn, hus.El, hus.Husdyr, hus.Pool, hus.Stsuger, hus.Tumbler, hus.Vaske, hus.Carport, hus.Cykler, hus.Grill, hus.Have, hus.Terrasse, hus.Foto, hus.Beskr, hus.Ejer, hus.Ann, hus.Amt, hus.Lann, [pris1]-[pris3] AS Spar, hus.Link, hus.IA, hus.Rk, hus.id, hus.tann, hus.tbeskriv, [pris2]-[pris4] AS tSpar, hus.eann, hus.ebeskriv FROM Uge INNER JOIN hus ON Uge.Hus = hus.id WHERE (((hus.IA) Is Null Or (hus.IA)= '')) AND uge = 0 AND Antalp >=1 AND(amt = 'o18') and (Ledigt = 'checked')

Synes godt om

mettecarsten Nybegynder

25. februar 2005 - 15:15 #56

Er nu ændret, men hjalp desværre ikke.

Er dette her "[pris2]-[pris4] AS tSpar," (fundet i fejlteksten) ikke også fejl - minder meget om noget specielt i access-forespørgselstabellen?

Synes godt om

hiks Nybegynder

25. februar 2005 - 15:16 #57

wiiih nu fik vi en anden fejl.

prøv at slet de properties:

Set objRS = Server.CreateObject("ADODB.Recordset")
objrs.open sql, conn

If objrs.EOF And objrs.BOF Then
Response.Redirect "ingenposter.asp"
End if

Synes godt om

hiks Nybegynder

25. februar 2005 - 15:17 #58

mettecarsten 25/02-2005 15:15:58 -> Nej - vi har slet ikke fat i forespørgslen endnu. Det kommer først nu her når vi har forbindelse til databasen.

/hiks

Synes godt om

mettecarsten Nybegynder

25. februar 2005 - 15:19 #59

har lige prøvet at køre sql´en i php.. Denne fejl: #1064 - You have an error in your SQL syntax. Check the manual that corresponds to your MySQL server version for the right syntax to use near '[pris1]-[pris3] AS Spar, hus.Link, hus.IA, hus.Rk, hus.id, hus.
vel netop vedr. det, som jeg skrev om i 15:15:58?

Synes godt om

hiks Nybegynder

25. februar 2005 - 15:20 #60

ja - men det er ikke det fejlen er i selve asp delen pt. Det var først kommet næstefter.

du bør bare slette [] omkring begge attributter.

/hiks

Synes godt om

mettecarsten Nybegynder

25. februar 2005 - 15:23 #61

har også lige prøvet i php - hvis jeg sletter disse punkter, kommer der en korrekt forespørgsel :-) (sletter dem også i filen, da de ikke bruges her, men under Last minute). Retter også lige hiks 25/02-2005 15:16:52

Synes godt om

mettecarsten Nybegynder

25. februar 2005 - 15:26 #62

Har nu slettet [pris .... - nu kommer der godt nok en fejlmelding, men noget af siden vises!!!!!

Vedr.:

prøv at slet de properties:

Set objRS = Server.CreateObject("ADODB.Recordset")
objrs.open sql, conn

If objrs.EOF And objrs.BOF Then
Response.Redirect "ingenposter.asp"
End if

Skal det slettes helt eller erstat det nuværende?

Synes godt om

and_ Nybegynder

25. februar 2005 - 15:26 #63

fremskridt ;)

Prøv at udkommenter disse:

objrs.pagesize = 4
'objrs.absolutePage = intpage
'intpagecount = objrs.pagecount

'intRecCount = objrs.pageSize
'Do While not objrs.eof and intRecCount > 0
Do While not objrs.eof

Synes godt om

and_ Nybegynder

25. februar 2005 - 15:27 #64

Set objRS = Server.CreateObject("ADODB.Recordset")
objrs.open sql, conn, 1, 3

skal den se ud

Synes godt om

mettecarsten Nybegynder

25. februar 2005 - 15:28 #65

Har lige set, at der i linie 231 står "' "FROM hus2 where "" - hus2 hed forespørgselstabellen - i mysql er der ingen tabel med navnet hus2? Det er vel en fejl

Synes godt om

and_ Nybegynder

25. februar 2005 - 15:29 #66

Hvis den ikke findes så jo så er det en fejl, men du sagde jo selv før at den gav dig det rigtige output i phpmyadmin?

Synes godt om

hiks Nybegynder

25. februar 2005 - 15:31 #67

mettecarsten - 25/02-2005 15:28:00: De er jo kommenteret ud så det har ingen indflydelse.

Jeg er ikke sikker på det med den ODBC driver der og mySQL og slet ikke hvis man benytter paging, som jeg kan se du gør længere nede. Jeg ved ikke om man burde bruge noget i stil med følgende som database connection.

set Conn=server.createobject("ADODB.connection")
Conn.open "Provider=MySQLProv;Location=mysql.domain.com;Data
Source=database;UserId=user;Password=pw;"

and_ - 25/02-2005 15:27:16: Det bør vel være 1, 3. JA.

/hiks

Synes godt om

mettecarsten Nybegynder

25. februar 2005 - 15:31 #68

hus2 indgik ikke i denne forespørgsel - kommer i de næste par linier:

'Sql = "Select id, foto, op, antalp, grundareal, vr, Beskr, ann, Overskrift, amt, uge, link, Ledigt " & _
' "FROM hus2 where "

Synes godt om

hiks Nybegynder

25. februar 2005 - 15:32 #69

den giver desuden stadig fejl her hvis man trykker F5 for at refreshe når man har klikket på et område.

/hiks

Synes godt om

hiks Nybegynder

25. februar 2005 - 15:33 #70

mettecarsten - 25/02-2005 15:31:53: De er slettede/kommenteret ud --> ' dvs. de har ingen effekt i koden

/hiks

Synes godt om

mettecarsten Nybegynder

25. februar 2005 - 15:34 #71

and_ - forklar lige, hvad jeg skal gøre vedr. 15:26:32 og 15:27:16?

Synes godt om

hiks Nybegynder

25. februar 2005 - 15:34 #72

som jeg ser det nu - så har vi hul til databasen og den kan godt begynde udtrækket - den kan nu bare ikke finde ud af det med cursors pga. paging og connectionen

/hiks

Synes godt om

mettecarsten Nybegynder

25. februar 2005 - 15:35 #73

skal jeg ændre forbindelsesfilen til:

...
SQLpassword="xxxx"

set Conn=server.createobject("ADODB.connection")
Conn.open "Provider=MySQLProv;Location=mysql.domain.com;Data
Source=database;UserId=user;Password=pw;"

Conn.Open conStr
%>

Synes godt om

hiks Nybegynder

25. februar 2005 - 15:36 #74

du skal paste ands forslag ind fra/i linie 614

objrs.pagesize = 4
'objrs.absolutePage = intpage
'intpagecount = objrs.pagecount

'intRecCount = objrs.pageSize
'Do While not objrs.eof and intRecCount > 0
Do While not objrs.eof

/hiks

Synes godt om

mettecarsten Nybegynder

25. februar 2005 - 15:37 #75

I gør virkelig en flot indsat - SEJT. Bagefter må vi lige finde ud af at fordele flere point - virkelig på forhånd tak for jeres hjælp !

Synes godt om

and_ Nybegynder

25. februar 2005 - 15:37 #76

Du skal udkommentere det der har med paging at gøre:
objrs.pagesize = 4
'objrs.absolutePage = intpage
'intpagecount = objrs.pagecount

'intRecCount = objrs.pageSize
'Do While not objrs.eof and intRecCount > 0
Do While not objrs.eof

og du skal sætte din connection til:
Set objRS = Server.CreateObject("ADODB.Recordset")
objrs.open sql, conn, 1, 3

Synes godt om

and_ Nybegynder

25. februar 2005 - 15:39 #77

Ro på med pointene... Det skal jo ikke være det der skal motivere os vel ;)

Vi er vel bare "hjælpsomme" hehe :p

Synes godt om

mettecarsten Nybegynder

25. februar 2005 - 15:39 #78

Pinligt, men lidt i tvivl om 15:36:16 - hvad skal rettes i eksisterende:

objrs.pagesize = 4
objrs.absolutePage = intpage
intpagecount = objrs.pagecount

intRecCount = objrs.pageSize
Do While not objrs.eof and intRecCount > 0

Synes godt om

and_ Nybegynder

25. februar 2005 - 15:42 #79

du skal sætte pling ' foran

objrs.pagesize = 4
'objrs.absolutePage = intpage
'intpagecount = objrs.pagecount

'intRecCount = objrs.pageSize
'Do While not objrs.eof and intRecCount > 0

og sætte denne linie ind nedenunder:
Do While not objrs.eof

Synes godt om

mettecarsten Nybegynder

25. februar 2005 - 15:45 #80

Selvfølgelig

Prøv at se nu - nu vises der annoncer fra databasen :-) :-) (dog stadig lidt fejlmeldinger og problemer ved F5)

Synes godt om

and_ Nybegynder

25. februar 2005 - 15:47 #81

Umiddelbart får jeg ingen fejl, men nu skal vi til at kigge på din paging ;)

Synes godt om

and_ Nybegynder

25. februar 2005 - 15:48 #82

Du har stadig ikke ændret din connection:

Set objRS = Server.CreateObject("ADODB.Recordset")
objrs.open sql, conn, 3, 3

skal være:
Set objRS = Server.CreateObject("ADODB.Recordset")
objrs.open sql, conn, 1, 3

Synes godt om

mettecarsten Nybegynder

25. februar 2005 - 15:51 #83

Sorry, havde lige overset - er nu ændret

Synes godt om

and_ Nybegynder

25. februar 2005 - 15:52 #84

Men umiddelbart kan jeg ikke se/læse mig til hvorfor den ikke vil acceptere pagesize og pagecount ........

Jeg synes ikke rigtig at jeg kan finde noget som ikke skulle gøre at det ikke vil kunne lykkedes...

Prøv at fjern plingerne igen...

Efter at du har ændret connection til 1, 3

Synes godt om

and_ Nybegynder

25. februar 2005 - 15:53 #85

Udkommenter response.write sql

den er ikke interessant længere ;)

Synes godt om

mettecarsten Nybegynder

25. februar 2005 - 15:53 #86

Vedr. Kommentar: hiks 25/02-2005 15:31:28 og mettecarsten 25/02-2005 15:35:51:

Skal jeg ændre noget i min forbindelsesfil til databasen?

Synes godt om

mettecarsten Nybegynder

25. februar 2005 - 15:54 #87

Hermed sket

Synes godt om

and_ Nybegynder

25. februar 2005 - 15:55 #88

Nej... den har jo forbindelse nu..
Du havde ikke defineret din forbindelse: set objrs = bla bla bla

Så det kan du bare glemme ;)

Synes godt om

mettecarsten Nybegynder

25. februar 2005 - 15:55 #89

Nu sker der noget - kan dog ikke opdatere uden fejl

Synes godt om

and_ Nybegynder

25. februar 2005 - 15:55 #90

Den æder den ikke... hmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm

Synes godt om

mettecarsten Nybegynder

25. februar 2005 - 15:57 #91

Hvis jeg klikker på område 1 + 2, så kommer denne fejl:

Microsoft OLE DB Provider for ODBC Drivers error '80040e21'

ODBC driver does not support the requested properties.

/Sgef2mysql.asp, line 577

men ikke, hvis jeg klikker på nogle af de andre områder?

Synes godt om

and_ Nybegynder

25. februar 2005 - 15:58 #92

Så skal vi have sql'en på banen igen før vi kan se hvad der går galt...

Synes godt om

and_ Nybegynder

25. februar 2005 - 16:16 #93

hhhmmm... må indrømme at din kode er godt uoverskuelig så jeg skal lige have noget tid til at sidde og analysere hvad det er du prøver på i filen ;)

Synes godt om

hiks Nybegynder

25. februar 2005 - 16:20 #94

hej igen - havde lige en telefon.

kan se du prøver at ændre conn nu:

set Conn=server.createobject("ADODB.connection")
Conn.open "Provider=MySQLProv;Location=mysql5.wannafind.dk;Data source=database;UserId=user;Password=pw;"

Conn.Open conStr

skal det så være altså datasource skal stå på samme linie! og husk at rette database, user og pw

/hiks

Synes godt om

mettecarsten Nybegynder

25. februar 2005 - 16:22 #95

Har netop lige prøvet at ændre forbindelsesfilen, men fik bare fejl - lavede den sådan her (ændrede dog selvfølge database osv):

<%
set Conn=server.createobject("ADODB.connection")
Conn.open "Provider=MySQLProv;Location=mysql.domain.com;Data
Source=database;UserId=user;Password=pw;"
%>

Synes godt om

mettecarsten Nybegynder

25. februar 2005 - 16:24 #96

Har nu lavet det i en linie, men får følgende fejl:

ADODB.Connection error '800a0e7a'

Provider cannot be found. It may not be properly installed.

/forbmysql.asp, line 8

Synes godt om

hiks Nybegynder

25. februar 2005 - 16:28 #97

tilbage til den anden. Din udbyder understøtter ikke den type forbindelse så.

/hiks

Synes godt om

mettecarsten Nybegynder

25. februar 2005 - 16:29 #98

Er nu skiftet tilbage

Synes godt om

hiks Nybegynder

25. februar 2005 - 16:49 #99

hvis jeg var dig så tror jeg - jeg vil lave den paging på serverens hukommelse altså via et array - få fat i recordsættet og så ellers lave pagingen via array'et hvilket heller ikke vil være så dyrt for databasen v. mange besøgende.

Men det må siges at være enestående at der er noget der influerer refreshet der gør at den lige pludselig ikke kan forstå de properties man kommer på. Jeg sad og lurede på om det var de sessions variable der har noget at gøre med det. Men det er lidt svært at gennemskue hvordan de bliver brugt.

men ellers så prøv lige at sæt response.write SQL ind før vi åbner databasen igen.

/hiks

Synes godt om

mettecarsten Nybegynder

25. februar 2005 - 16:52 #100

Er indsat igen

Synes godt om

mettecarsten Nybegynder

25. februar 2005 - 16:53 #101

Jeg forstår desværre ikke helt det omkring "paging ... via et array"?

Synes godt om

and_ Nybegynder

25. februar 2005 - 16:56 #102

Jeg kommer snart op med et opdateret script der er renset...
så kigger vi lige på det med paging... frisk hiks?

Synes godt om

hiks Nybegynder

25. februar 2005 - 16:58 #103

ja gerne

det med paging - kan vi i hvert fald hurtigt løse via et array.

/hiks

Synes godt om

hiks Nybegynder

25. februar 2005 - 17:02 #104

kan du prøve at flytte linie 672 (Session("SQL") = SQL) til linie 573.

og så prøve at lave en response.write session("sql") lige bagefter?

/hiks

Synes godt om

mettecarsten Nybegynder

25. februar 2005 - 17:07 #105

Min linie 672 er " Response.write "<P>Gå til side "" - 674 er Session("SQL") = SQL

min linie 573 og 574 er 'Indsæt denne
response.write sql

hvor skal jeg indsætte min linie 674?

Synes godt om

hiks Nybegynder

25. februar 2005 - 17:08 #106

bare lige før eller efter response.write sql

/hiks

Synes godt om

mettecarsten Nybegynder

25. februar 2005 - 17:12 #107

Har nu indsat:

Session("SQL") = SQL
response.write session("sql")

lige efter response.write sql

Synes godt om

mettecarsten Nybegynder

25. februar 2005 - 17:13 #108

Nu kan den da vist opdatere uden problemer :-)

Synes godt om

mettecarsten Nybegynder

25. februar 2005 - 17:15 #109

Dog stadig problemer med område 1 og 2, men ikke de andre?

Synes godt om

hiks Nybegynder

25. februar 2005 - 17:15 #110

yes - det var et skridt videre

skal vi prøve at lave det paging sjov?

du må gerne slå udskriften af sql'en fra igen!

/hiks

Synes godt om

mettecarsten Nybegynder

25. februar 2005 - 17:18 #111

Jeg er med på det hele :-) Udskriften er slået fra igen

Synes godt om

hiks Nybegynder

25. februar 2005 - 17:21 #112

if o1 = "ON" Then
if fl = 0 then
sql = sql & "amt = 'o1'"
fl = 1
else
sql = sql & "or amt = 'o1'"
fl = 1
End if
End if

if o2 = "ON" Then
if fl = 0 then
sql = sql & "amt = 'o2'"
fl = 1
else
sql = sql & "or amt = 'o2'"
fl = 1
End if
End if

så erstatter du lige ovenstående omkring o1 og o1

/hiks

Synes godt om

mettecarsten Nybegynder

25. februar 2005 - 17:22 #113

Er rettet og nu virker område 1 og 2 sørme også :-)

Synes godt om

mettecarsten Nybegynder

25. februar 2005 - 17:23 #114

Jeres hjælp er virkelig bare helt super. Det er næsten helt flovt, så meget I laver. Jeg kan se, at der opstår nogle andre små problemer, som jeg meget gerne vil have jer til at hjælpe med - jeg sender jeg meget gerne nogle biografbilletter eller andet, da point-betaling ikke kan blive ved, når I laver så meget !

Synes godt om

hiks Nybegynder

25. februar 2005 - 17:23 #115

så dur det også!

lad os så kigge på det paging!

/hiks

Synes godt om

mettecarsten Nybegynder

25. februar 2005 - 17:26 #116

I siger bare, hvad jeg skal gøre, da jeg ikke er helt sikker på, hvad vi skal i gang med !

Synes godt om

and_ Nybegynder

25. februar 2005 - 17:26 #117

hehehe..... min mailbox bliver spammet for vildt lige nu pga. jer :p

Hvad siger i til det? skal jeg paste det rensede script her ind?

Synes godt om

hiks Nybegynder

25. februar 2005 - 17:27 #118

and -> har du smidt de sidste rettelser ind nu. Det ser nemlig ud til at køre bare uden paging pt.

/hiks

Synes godt om

and_ Nybegynder

25. februar 2005 - 17:28 #119

Jeg smider lige rettelserne ind... øjeblik..... :p

Synes godt om

hiks Nybegynder

25. februar 2005 - 17:32 #120

kan du ikke også rette sql'en til således at vi ikke får det store recordset at bakse med:

SQL = "SELECT DISTINCT id, foto, op, antalp, grundareal, vr, Beskr, ann, Overskrift, amt, uge, link, Ledigt " & _
"FROM Uge INNER JOIN hus ON Uge.Hus = hus.id " & _
"WHERE (((hus.IA) Is Null Or (hus.IA)= '')) "

Det er jo udelukkende det vi skal have - da det virkede før vi begyndte at lege med forespørgselstabellen og der bliver ikke benyttet AS i udtrækket så det burde køre!

/hiks

Synes godt om

and_ Nybegynder

25. februar 2005 - 17:32 #121

Så tror jeg vi er der.... Hiks --> Du skimmer den lige igennem ikke :D

mettecarsten -> Nok smartest hvis du lige ligger koden ind i en anden fil først, så vi stadig har den oprindelige kode....

Koden er som følger:

Synes godt om

and_ Nybegynder

25. februar 2005 - 17:33 #122

smider lige sql'en ind... 2 sec

Synes godt om

and_ Nybegynder

25. februar 2005 - 17:34 #123

<%
Response.Expires = -1

Pris = Request.QueryString("Pris")
Spa = Request.QueryString("Spa")
Vaske = Request.QueryString("Vaske")
Pool = Request.QueryString("Pool")
OP = Request.QueryString("Op")
Hus = Request.QueryString("Hus")
Bo = Request.QueryString("Bo")

AP = Request.QueryString("AP")
if ap = "Uvæsentlig" Then ap = 1 End if
if ap = "over 8" Then ap = 8 End if

uge = Request.QueryString("Uge")
if uge = "Uvæsentlig" then uge = 0 End if

amtfl = 0
alle = Request.QueryString("alle")
if alle = "ON" Then amtfl = 1 end if

o1 = Request.QueryString("o1")
if o1 = "ON" Then amtfl = 1 end if

o2 = Request.QueryString("o2")
if o2 = "ON" Then amtfl = 2 end if

o3 = Request.QueryString("o3")
if o3 = "ON" Then amtfl = 3 end if

o4 = Request.QueryString("o4")
if o4 = "ON" Then amtfl = 4 end if

o5 = Request.QueryString("o5")
if o5 = "ON" Then amtfl = 1 end if

o6 = Request.QueryString("o6")
if o6 = "ON" Then amtfl = 1 end if

o7 = Request.QueryString("o7")
if o7 = "ON" Then amtfl = 1 end if

o8 = Request.QueryString("o8")
if o8 = "ON" Then amtfl = 1 end if

o9 = Request.QueryString("o9")
if o9 = "ON" Then amtfl = 1 end if

o10 = Request.QueryString("o10")
if o10 = "ON" Then amtfl = 1 end if

o11 = Request.QueryString("o11")
if o11 = "ON" Then amtfl = 1 end if

o12 = Request.QueryString("o12")
if o12 = "ON" Then amtfl = 1 end if

o13 = Request.QueryString("o13")
if o13 = "ON" Then amtfl = 1 end if

o14 = Request.QueryString("o14")
if o14 = "ON" Then amtfl = 1 end if

o15 = Request.QueryString("o15")
if o15 = "ON" Then amtfl = 1 end if

o16 = Request.QueryString("o16")
if o16 = "ON" Then amtfl = 1 end if

o17 = Request.QueryString("o17")
if o17 = "ON" Then amtfl = 1 end if

o18 = Request.QueryString("o18")
if o18 = "ON" Then amtfl = 1 end if

o19 = Request.QueryString("o19")
if o19 = "ON" Then amtfl = 1 end if

o20 = Request.QueryString("o20")
if o20 = "ON" Then amtfl = 1 end if

o21 = Request.QueryString("o21")
if o21 = "ON" Then amtfl = 1 end if

o22 = Request.QueryString("o22")
if o22 = "ON" Then amtfl = 1 end if

o23 = Request.QueryString("o23")
if o23 = "ON" Then amtfl = 1 end if

o24 = Request.QueryString("o24")
if o24 = "ON" Then amtfl = 1 end if

o25 = Request.QueryString("o25")
if o25 = "ON" Then amtfl = 1 end if

o26 = Request.QueryString("o26")
if o26 = "ON" Then amtfl = 1 end if

o27 = Request.QueryString("o27")
if o27 = "ON" Then amtfl = 1 end if

o28 = Request.QueryString("o28")
if o28 = "ON" Then amtfl = 1 end if

o29 = Request.QueryString("o29")
if o29 = "ON" Then amtfl = 1 end if

If (amtfl = 0 and session("fl2") = 0) then
Response.Redirect("intetamt.asp")
Response.end
End if

fl = 0
if session("fl2") = 1 Then
SQL = session("SQL")
Else
Sql = ""
Sql = sql & "SELECT DISTINCT id, foto, op, antalp, grundareal, vr, Beskr, ann, Overskrift, amt, uge, link, Ledigt "
Sql = sql & "FROM Uge INNER JOIN hus ON Uge.Hus = hus.id "
Sql = sql & "WHERE (((hus.IA) Is Null Or (hus.IA)= '')) "

if not uge = "Uvæsentlig" Then
sql = sql & " AND uge = " & uge & " "
End if

if Antalp = "Uvæsentlig" then
sql = sql & " AND Antalp >" & 1 & " "
Else
sql = sql & "AND Antalp >=" & AP & " "
end if

if not Pris = "Uvæsentlig" then
sql = sql & "AND pris1 <=" & Pris & " "
end if

if not alle = "ON" Then
sql = sql & " AND("
End if

if o1 = "ON" Then
if fl = 0 then
sql = sql & "amt = 'o1'"
fl = 1
else
sql = sql & "or amt = 'o1'"
fl = 1
End if
End if

if o2 = "ON" Then
if fl = 0 then
sql = sql & "amt = 'o2'"
fl = 1
else
sql = sql & "or amt = 'o2'"
fl = 1
End if
End if

if o2 = "ON" Then
if fl = 0 then
sql = sql & " OR amt = 'o2'"
fl = 1
else
sql = sql & "OR amt = 'o2'"
fl = 1
End if
End if

if o3 = "ON" Then
if fl = 0 then
sql = sql & "amt = 'o3'"
fl = 1
else
sql = sql & "or amt = 'o3'"
fl = 1
End if
End if

if o4 = "ON" Then
if fl = 0 then
sql = sql & "amt = 'o4'"
fl = 1
else
sql = sql & "or amt = 'o4'"
fl = 1
End if
End if

if o5 = "ON" Then
if fl = 0 then
sql = sql & "amt = 'o5'"
fl = 1
else
sql = sql & "or amt = 'o5'"
fl = 1
End if
End if

if o6 = "ON" Then
if fl = 0 then
sql = sql & "amt = 'o6'"
fl = 1
else
sql = sql & "or amt = 'o6'"
fl = 1
End if
End if

if o7 = "ON" Then
if fl = 0 then
sql = sql & "amt = 'o7'"
fl = 1
else
sql = sql & "or amt = 'o7'"
fl = 1
End if
End if

if o8 = "ON" Then
if fl = 0 then
sql = sql & "amt = 'o8'"
fl = 1
else
sql = sql & "or amt = 'o8'"
fl = 1
End if
End if

if o9 = "ON" Then
if fl = 0 then
sql = sql & "amt = 'o9'"
fl = 1
else
sql = sql & "or amt = 'o9'"
fl = 1
End if
End if

if o10 = "ON" Then
if fl = 0 then
sql = sql & "amt = 'o10'"
fl = 1
else
sql = sql & "or amt = 'o10'"
fl = 1
End if
End if

if o11 = "ON" Then
if fl = 0 then
sql = sql & "amt = 'o11'"
fl = 1
else
sql = sql & "or amt = 'o11'"
fl = 1
End if
End if

if o12 = "ON" Then
if fl = 0 then
sql = sql & "amt = 'o12'"
fl = 1
else
sql = sql & "or amt = 'o12'"
fl = 1
End if
End if

if o13 = "ON" Then
if fl = 0 then
sql = sql & "amt = 'o13'"
fl = 1
else
sql = sql & "or amt = 'o13'"
fl = 1
End if
End if

if o14 = "ON" Then
if fl = 0 then
sql = sql & "amt = 'o14'"
fl = 1
else
sql = sql & "or amt = 'o14'"
fl = 1
End if
End if

if o15 = "ON" Then
if fl = 0 then
sql = sql & "amt = 'o15'"
fl = 1
else
sql = sql & "or amt = 'o15'"
fl = 1
End if
End if

if o16 = "ON" Then
if fl = 0 then
sql = sql & "amt = 'o16'"
fl = 1
else
sql = sql & "or amt = 'o16'"
fl = 1
End if
End if

if o17 = "ON" Then
if fl = 0 then
sql = sql & "amt = 'o17'"
fl = 1
else
sql = sql & "or amt = 'o17'"
fl = 1
End if
End if

if o18 = "ON" Then
if fl = 0 then
sql = sql & "amt = 'o18'"
fl = 1
else
sql = sql & "or amt = 'o18'"
fl = 1
End if
End if

if o19 = "ON" Then
if fl = 0 then
sql = sql & "amt = 'o19'"
fl = 1
else
sql = sql & "or amt = 'o19'"
fl = 1
End if
End if

if o20 = "ON" Then
if fl = 0 then
sql = sql & "amt = 'o20'"
fl = 1
else
sql = sql & "or amt = 'o20'"
fl = 1
End if
End if

if o21 = "ON" Then
if fl = 0 then
sql = sql & "amt = 'o21'"
fl = 1
else
sql = sql & "or amt = 'o21'"
fl = 1
End if
End if

if o22 = "ON" Then
if fl = 0 then
sql = sql & "amt = 'o22'"
fl = 1
else
sql = sql & "or amt = 'o22'"
fl = 1
End if
End if

if o23 = "ON" Then
if fl = 0 then
sql = sql & "amt = 'o23'"
fl = 1
else
sql = sql & "or amt = 'o23'"
fl = 1
End if
End if

if o24 = "ON" Then
if fl = 0 then
sql = sql & "amt = 'o24'"
fl = 1
else
sql = sql & "or amt = 'o24'"
fl = 1
End if
End if

if o25 = "ON" Then
if fl = 0 then
sql = sql & "amt = 'o25'"
fl = 1
else
sql = sql & "or amt = 'o25'"
fl = 1
End if
End if

if o26 = "ON" Then
if fl = 0 then
sql = sql & "amt = 'o26'"
fl = 1
else
sql = sql & "or amt = 'o26'"
fl = 1
End if
End if

if o27 = "ON" Then
if fl = 0 then
sql = sql & "amt = 'o27'"
fl = 1
else
sql = sql & "or amt = 'o27'"
fl = 1
End if
End if

if o28 = "ON" Then
if fl = 0 then
sql = sql & "amt = 'o28'"
fl = 1
else
sql = sql & "or amt = 'o28'"
fl = 1
End if
End if

if o29 = "ON" Then
if fl = 0 then
sql = sql & "amt = 'o29'"
fl = 1
else
sql = sql & "or amt = 'o29'"
fl = 1
End if
End if

if not Alle = "ON" Then
sql = sql & ")"
End if

Session("fl2") = 1
End if

if Spa = "ON" Then
sql = sql & "and (spa = 'checked')"
End if

if Pool = "ON" Then
sql = sql & "and (Pool = 'checked')"
End if

if Vaske = "ON" Then
sql = sql & "and (Vaske = 'checked')"
End if

if OP = "ON" Then
sql = sql & "and (Opvask = 'checked')"
End if

if Hus = "ON" Then
sql = sql & "and (Husdyr = 'checked')"
End if

if Bo = "ON" Then
sql = sql & " and (Brovn = 'checked')"
End if
sql = sql & " and (Ledigt = 'checked')"

'smider lige sql'en i en session
Session("SQL") = SQL

'Indsæt denne
'response.write sql

'Åben basen
%><%
Set objRS = Server.CreateObject("ADODB.Recordset")
objrs.open sql, conn, 1, 3

If objrs.EOF And objrs.BOF Then
Response.Redirect "ingenposter.asp"
End if
Pr = objrs.recordcount
%>
<html>
<head>
<title>Dansk Sommerhusudlejning.dk</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta http-equiv="Content-Language" content="da">
<META name="DESCRIPTION" content="Vi formidler kontakten mellem private udlejere og lejere, hvorved du som lejer kan spare de fordyrende mellemled">
<META name="KEYWORDS" content="ferie, feriebolig, ferieboliger, bureauer, sommerhusbureauer, sommerhus, sommerhuse, sommerhusudlejning, sommerhusferie, fritidsbolig, leje, udleje, udlejning, Danmark, ferien, ferienhaus, ferienhäuser, Dänemark, Denmark, summerhouse, sommerhaus, vermietung, sommerhausvermietung, ferienwohnung, ferienwohnungen, luxusferienhaus, luxusferienhäuser, spahaus, swimmingpoolhaus">
<meta HTTP-EQUIV="pragma" CONTENT="no-cache">
<style>

</style>
<style fprolloverstyle>
A:hover {color: #E87400; font-weight: bold}
</style>
</head>
<body background="stribet_graa.gif" link="#000000" vlink="#000000" alink="#000000">
<p align="left"></p>
<p align="center">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="740" height="450" bordercolor="#000000">
<tr>
<td valign="top" align="left" width="125" height="428">  </td>
<td valign="top" align="left" width="490" height="428"> <div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="425" height="440" style="border: 1 solid #132537" bgcolor="#FFFFFF">
<tr>
<td height="421" valign="top" align="left" style="padding-left: 10; padding-right: 10; padding-top: 5"> </center>
<div align="center">
<%
intpage = Request("page")
if isNumeric(intPage) = False or IntPage < 1 then
intpage = 1
end if
objrs.pagesize = 4
'objrs.absolutePage = intpage
'intpagecount = objrs.pagecount
'intRecCount = objrs.pageSize
'Do While not objrs.eof and intRecCount > 0
Do While not objrs.eof
id = objrs("id")
foto4 = id & "/1.jpg"
%>
<table border="0" cellpadding="0" cellspacing="0" width="400" height="66" style="border: 1 solid #000000">
<tr>
<td valign="middle" align="center" width="100" style="border-right: 1 solid #000000"><img border="0" src="<%=foto4%>" width="100" height="66"></td>
<td valign="top" align="left" width="240" style="padding-left: 3; padding-right: 3; padding-top: 2">
<p align="left">
<font face="Arial" size="3"><b><%=objrs("Overskrift")%></b></font><br>
<font face="Arial" size="2"><%=objrs("ann")%></font>
</p>
</td>
<td valign="middle" align="center" width="60" bgcolor="#DFDFDF" style="border-left: 1 solid #000000">
<%
if objrs("Link") = "" Then
Response.write "<a href=""#"" onClick=""MyWindow=window.open('Husmysql.asp?Id=" & objrs("id") & "','MyWindow','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=no,width=700,height=620'); return false;""><font face=""Arial"" color=""#E87400"" size=""3""><b>Info</b></font></a>"
Else
Response.write "<A HREF =""" & objrs("Link") & """ TARGET=""_blank"">" & "<font face='Arial' color='#E87400' size='3'><b>Info</b></font></a>"
end if
%>
</td>
</tr>
</table>
<br>
<%
intRecCount = intRecCount -1
objrs.movenext
Loop
Response.write "</P>"
Response.write "<P>Gå til side "
For intNum = 1 to intpagecount
Response.write "<a href=sgef2.asp?page=" & intNum & " >" & intNum & " " & "</a>"
Next
%>
</div>
</td>
</tr>
</table>
</div>
</td>
<td valign="top" align="left" width="125" height="428">
<div align="left">
<table border="0" cellpadding="0" cellspacing="0" width="125" height="47" style="border: 1 solid #132537">
<tr>
<td valign="middle" align="center" bgcolor="#DFDFDF" height="47">
<b><font face="Arial" size="4">Ferietilbud </font><font face="Arial" size="4" color="#FFFFFF"></font></b>
<a href="http://cliche.parameter.dk/click/f9c7ab657c90ef4714bc19ce579bec14" target="_blank"><font color="#E87400" size="4" face="Arial"><b>Klik her</b></font></a>
</td>
</tr>
</table>
</div>
<div align="left">
<table border="0" cellpadding="0" cellspacing="0" width="125" height="54" style="border: 1 solid #132537">
<tr>
<td height="18" bgcolor="#FFFFFF" valign="middle" align="center" style="border-bottom: 1 solid #000000"><b><font face="Arial" size="2" color="#000000"><a href="http://www.bedandbreakfastoverblik.dk">Bed and Breakfast</a></font></b></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" valign="top" align="left"> <p align="left"><a href="http://www.bedandbreakfastoverblik.dk"><img border="0" src="bedandbreakfast.JPG" width="123" height="56" align="top"> </a>
</tr>
</table>
</div>
<div align="left">
<table border="0" cellpadding="0" cellspacing="0" width="125" height="53" style="border: 1 solid #132537">
<tr>
<td height="18" bgcolor="#FFFFFF" valign="middle" align="center" style="border-bottom: 1 solid #000000"><b><font face="Arial" size="2" color="#000000"><a href="http://www.ferieboligudland.dk">Feriebolig</a>, udland</font></b></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" valign="top" align="left"> <p align="left"><a href="http://www.ferieboligudland.dk"><img border="0" src="feriebolig.JPG" width="123" height="56" align="top"> </a>
</tr>
</table>
</div>
<div align="left">
<table border="0" cellpadding="0" cellspacing="0" width="125" height="166" style="border: 1 solid #132537">
<tr>
<td height="18" bgcolor="#DFDFDF" valign="middle" align="center" style="border-bottom: 1 solid #000000"><b><font face="Arial" size="2" color="#000000">Andre feriesider</font></b></td>
</tr>
<tr>
<td height="148" bgcolor="#FFFFFF" valign="top" align="left" style="padding-left: 5; padding-top: 3; padding-bottom: 3"> <font size="1"> <a href="http://www.ferieoverblik.dk/busrejser"><b><font face="Arial">Busrejser</font></b></a><br>
<a href="http://www.ferieoverblik.dk/bedandbreakfast"><b><font face="Arial">Bed and Breakfast</font></b></a><br>
<a href="http://www.ferieoverblik.dk/camping"><font face="Arial"><b>Camping</b></font></a><br>
<a href="http://www.ferieoverblik.dk/charter"><font face="Arial"><b>Charter</b></font></a><br>
<a href="http://www.feriecenter.net"><font face="Arial"><b>Feriecenter</b></font></a><br>
<a href="http://www.ferieoverblik.dk/feriecentre"><font face="Arial"><b>Feriecentre</b></font></a><br>
<a href="http://www.ferieoverblik.dk/ferieboliger"><font face="Arial"><b>Ferieboliger</b></font></a><br>
<a href="http://www.ferieoverblik.dk/koerselvferie"><font face="Arial"><b>Kør selv ferie</b></font></a><br>
<a href="http://www.ferieoverblik.dk/rejseforsikringer"><font face="Arial"><b>Rejseforsikringer</b></font></a><br>
<a href="http://www.ferieoverblik.dk/ski"><font face="Arial"><b>Ski</b></font></a><br>
<a href="http://www.ferieoverblik.dk/storbyferie"><font face="Arial"><b>Storbyferie</b></font></a><br>
<a href="http://www.ungdomsrejser.net"><font face="Arial"><b>Ungdomsrejser</b></font></a> <a href="http://www.ferieoverblik.dk/weekendophold"><font face="Arial"><b>Weekendophold</b></font></a> </font> </td>
</tr>
</table>
</div>
</td>
</tr>
</table>
</div>
</body>
</html>

Synes godt om

and_ Nybegynder

25. februar 2005 - 17:35 #124

146 linier mindre ;)
det hjælper da lidt...

Synes godt om

mettecarsten Nybegynder

25. februar 2005 - 17:36 #125

har indsat:

SQL = "SELECT DISTINCT id, foto, op, antalp, grundareal, vr, Beskr, ann, Overskrift, amt, uge, link, Ledigt " & _
"FROM Uge INNER JOIN hus ON Uge.Hus = hus.id " & _
"WHERE (((hus.IA) Is Null Or (hus.IA)= '')) "

men nu virker det ikke?

Synes godt om

mettecarsten Nybegynder

25. februar 2005 - 17:40 #126

Har lavet backup og indsat den nye kode - afventer lige med at lægge den op, da der opstod et problem, jf. ovenfor, da jeg ændrede SQL = ...

Synes godt om

hiks Nybegynder

25. februar 2005 - 17:40 #127

kører det ikke fint nok?

/hiks

Synes godt om

mettecarsten Nybegynder

25. februar 2005 - 17:41 #128

Jeg får denne fejlkode:

Microsoft OLE DB Provider for ODBC Drivers error '80040e21'

ODBC driver does not support the requested properties.

/Sgef2mysql.asp, line 590

Synes godt om

hiks Nybegynder

25. februar 2005 - 17:41 #129

godt så... manglede lige at refreshe...

/hiks

Synes godt om

and_ Nybegynder

25. februar 2005 - 17:42 #130

hvad mener du?

Synes godt om

hiks Nybegynder

25. februar 2005 - 17:44 #131

prøv bare at gå tilbage til den gamle sql og lad os komme videre med det andet.

/hiks

Synes godt om

and_ Nybegynder

25. februar 2005 - 17:44 #132

lige min tanke

Synes godt om

and_ Nybegynder

25. februar 2005 - 17:45 #133

hvad bruger du til at editere med?
Synes alle indrykkene osv. er blevet væk?

Synes godt om

mettecarsten Nybegynder

25. februar 2005 - 17:46 #134

Skal lige rette tilbage til den gamle i den nye kode

Synes godt om

mettecarsten Nybegynder

25. februar 2005 - 17:49 #135

Har rettet tilbage nu - bruger også nu den nye kode. Bruger FrontPage 2003

Synes godt om

and_ Nybegynder

25. februar 2005 - 17:49 #136

Så er vi klar til paging... hvad foreslår du vi gør det med?

Synes godt om

hiks Nybegynder

25. februar 2005 - 17:51 #137

and_ -25/02-2005 17:45:38: Jeg tror det er den der skriver outputtet. Så mettecarsten vi vil gerne have en update af test.asp til dette: :o)

<%@ Language=VBScript %>

<%

Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set f=fs.OpenTextFile(Server.MapPath("formaterTekst.asp"), 1)
filecontents = f.ReadAll
f.Close
Set f=Nothing
Set fs=Nothing

filecontents = Server.HTMLencode(filecontents)
filecontents = Replace(filecontents, vbcrlf, "<br>") ' udskifte linie skift med <br>
filecontents = Replace(filecontents, vbTab, "    ") ' udskifte linie skift med <br>
' udskriv fil
Response.Write(filecontents)

%>

/hiks

Synes godt om

and_ Nybegynder

25. februar 2005 - 17:52 #138

rofl

Frontpage.... alle's mareridt ;)

Synes godt om

mettecarsten Nybegynder

25. februar 2005 - 17:52 #139

Så er test.asp ændret

Synes godt om

hiks Nybegynder

25. februar 2005 - 17:52 #140

hov husk lige at ret filnavnet... havde jeg glemt. :s

/hiks

Synes godt om

hiks Nybegynder

25. februar 2005 - 17:53 #141

<%@ Language=VBScript %>

<%

Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set f=fs.OpenTextFile(Server.MapPath("Sgef2mysql.asp"), 1)
filecontents = f.ReadAll
f.Close
Set f=Nothing
Set fs=Nothing

filecontents = Server.HTMLencode(filecontents)
filecontents = Replace(filecontents, vbcrlf, "<br>") ' udskifte linie skift med <br>
filecontents = Replace(filecontents, vbTab, "    ") ' udskifte linie skift med <br>
' udskriv fil
Response.Write(filecontents)

%>

Synes godt om

mettecarsten Nybegynder

25. februar 2005 - 17:55 #142

Håber, at jeg har rettet korrekt

Synes godt om

hiks Nybegynder

25. februar 2005 - 17:56 #143

:) Prøv bare lige at overskrive alt i test.asp med det fra indlæg: 25/02-2005 17:53:32

/hiks

Synes godt om

mettecarsten Nybegynder

25. februar 2005 - 17:58 #144

Er nu overskrevet

Synes godt om

and_ Nybegynder

25. februar 2005 - 18:00 #145

hhmm.. det går vel nok ;)

Hvad skal vi gøre paging synes du hiks

Synes godt om

hiks Nybegynder

25. februar 2005 - 18:00 #146

jeg bliver desværre nødt til at stoppe nu om 5 min. Skal ud og ha en fredagspils. Hvis du/I ikke får det hele lavet idag så kigger vi på det imorgen/søndag. Så bare skriv en mail - min adr. står længere op.

min idé med paging via et array - er i hvert fald til at finde ud af ret hurtigt.

fortsat go fredag og fornøjelse.

/hiks

Synes godt om

and_ Nybegynder

25. februar 2005 - 18:01 #147

heheh.. sidder selv med en pils ;) skulle måske have arbejdet mmmmeeeennnnn....

hvad siger du (mette eller carsten) skal vi ryge på`?

Synes godt om

mettecarsten Nybegynder

25. februar 2005 - 18:03 #148

hiks - MANGE TAK for hjælpen og rigtig god tur i byen. Jeg sender dig måske lige en mail - tak for denne mulighed

Synes godt om

mettecarsten Nybegynder

25. februar 2005 - 18:05 #149

and_ - det er helt op til dig. Jeres hjælp er bare fantastisk, så jeg indretter mig 100%

Synes godt om

mettecarsten Nybegynder

25. februar 2005 - 18:18 #150

and_ - hvis hiks har ideen til paging, er det vel også meget fornuftigt, hvis vi stopper - mest af hensyn til dig, da jeg virkelig kan arbejde, når det passer jer

Synes godt om

and_ Nybegynder

25. februar 2005 - 18:20 #151

jajo.. det der er det mest irreterende er at jeg ikke har adgang til selve selve serveren hvor sitet ligger ;)

Jeg sidder lige og lurer på den....

Synes godt om

mettecarsten Nybegynder

25. februar 2005 - 18:23 #152

Sig endelig til, hvis jeg kan gøre noget.

Synes godt om

and_ Nybegynder

25. februar 2005 - 18:28 #153

Den her skal jeg lige tygge på... vender tilbage senere....

Synes godt om

mettecarsten Nybegynder

25. februar 2005 - 18:32 #154

Super, jeg holder mig "stand by" :-)

Synes godt om

mettecarsten Nybegynder

25. februar 2005 - 22:46 #155

Jeg lukker for idag. I morgen er jeg desværre ikke hjemme det meste af dagen, men er fuldstændig klar igen søndag :-)

Synes godt om

mettecarsten Nybegynder

27. februar 2005 - 10:54 #156

Hej. Så har jeg computeren tændt. Sig til, hvis I har tid, ellers venter vi bare !

Synes godt om

and_ Nybegynder

28. februar 2005 - 12:16 #157

svar ;)

Det er nok en god ide at ligge scriptet herinde, da løsningen skal være tilgængelig for ekspertens brugere ;)

Holder nu stadig på at hiks skal have en del af pointene også....

Synes godt om

mettecarsten Nybegynder

28. februar 2005 - 12:22 #158

Jeg ligger gerne scriptet herud, så andre kan få gavn af dette, men er dog lidt i tvivl om, hvad jeg skal lægge ud?

Synes godt om

and_ Nybegynder

28. februar 2005 - 12:26 #159

Bare det script som vi har arbejdet med: Sgef2mysql.asp

Synes godt om

mettecarsten Nybegynder

28. februar 2005 - 12:30 #160

Asp-delen kommer her :-)

<%

'//Paging funktion
Function Page(iStart, total, iOffset, iStop, amt)

Response.Write "<table border=0 width='100%'><tr>"

If iStart > 0 then
'Vis Forrige link
Response.Write "<td width='20%' align='left'><font face='Arial'><A HREF=""?iStart=" & iStart-iOffset & _
"&iOffset=" & iOffset & """>Forrige</A></font></td>"
Else
Response.Write "<td width='20%'> </td>"
End if

antalsider = total / iOffset

Response.Write "<td width='60%' align='center'><font face='Arial'>"
For i = 0 to antalsider
If Clng(i * iOffset) = Clng(iStart) then
Response.Write "<A HREF=""?iStart=" & iOffset * i & _
"&iOffset=" & iOffset & """><u>" & i + 1 & "</u> </A>"
Else
Response.Write "<A HREF=""?iStart=" & iOffset * i & _
"&iOffset=" & iOffset & """>" & i + 1 & " </A>"
End if
Next
Response.Write "</font></td>"

If iStop < total then
'Vis næste link
Response.Write "<td width='20%' align='right'><font face='Arial'><A HREF=""?iStart=" & iStart+iOffset & _
"&iOffset=" & iOffset & """>Næste</A></font></td>"
Else
Response.Write "<td width='20%'> </td>"
End if

Response.Write "</tr><tr><td colspan='3'><font face='Arial'>" & total + 1 & " sommerhuse i område " & amt & ".</font></td></tr></table>"
End Function

Response.Expires = -1
Pris = Request.QueryString("Pris")
Spa = Request.QueryString("Spa")
Vaske = Request.QueryString("Vaske")
Pool = Request.QueryString("Pool")
OP = Request.QueryString("Op")
Hus = Request.QueryString("Hus")
Bo = Request.QueryString("Bo")

ap = Request.QueryString("AP")

if ap = "Uvæsentlig" Then ap = 1 End if
if ap = "over 8" Then ap = 8 End if

uge = Request.QueryString("Uge")
if uge = "Uvæsentlig" then uge = 0 End if

amtfl = 0
alle = Request.QueryString("alle")
if alle = "ON" Then amtfl = 1 end if

o1 = Request.QueryString("o1")
if o1 = "ON" Then amtfl = 1 end if

o2 = Request.QueryString("o2")
if o2 = "ON" Then amtfl = 2 end if

o3 = Request.QueryString("o3")
if o3 = "ON" Then amtfl = 3 end if

o4 = Request.QueryString("o4")
if o4 = "ON" Then amtfl = 4 end if

o5 = Request.QueryString("o5")
if o5 = "ON" Then amtfl = 1 end if

o6 = Request.QueryString("o6")
if o6 = "ON" Then amtfl = 1 end if

o7 = Request.QueryString("o7")
if o7 = "ON" Then amtfl = 1 end if

o8 = Request.QueryString("o8")
if o8 = "ON" Then amtfl = 1 end if

o9 = Request.QueryString("o9")
if o9 = "ON" Then amtfl = 1 end if

o10 = Request.QueryString("o10")
if o10 = "ON" Then amtfl = 1 end if

o11 = Request.QueryString("o11")
if o11 = "ON" Then amtfl = 1 end if

o12 = Request.QueryString("o12")
if o12 = "ON" Then amtfl = 1 end if

o13 = Request.QueryString("o13")
if o13 = "ON" Then amtfl = 1 end if

o14 = Request.QueryString("o14")
if o14 = "ON" Then amtfl = 1 end if

o15 = Request.QueryString("o15")
if o15 = "ON" Then amtfl = 1 end if

o16 = Request.QueryString("o16")
if o16 = "ON" Then amtfl = 1 end if

o17 = Request.QueryString("o17")
if o17 = "ON" Then amtfl = 1 end if

o18 = Request.QueryString("o18")
if o18 = "ON" Then amtfl = 1 end if

o19 = Request.QueryString("o19")
if o19 = "ON" Then amtfl = 1 end if

o20 = Request.QueryString("o20")
if o20 = "ON" Then amtfl = 1 end if

o21 = Request.QueryString("o21")
if o21 = "ON" Then amtfl = 1 end if

o22 = Request.QueryString("o22")
if o22 = "ON" Then amtfl = 1 end if

o23 = Request.QueryString("o23")
if o23 = "ON" Then amtfl = 1 end if

o24 = Request.QueryString("o24")
if o24 = "ON" Then amtfl = 1 end if

o25 = Request.QueryString("o25")
if o25 = "ON" Then amtfl = 1 end if

o26 = Request.QueryString("o26")
if o26 = "ON" Then amtfl = 1 end if

o27 = Request.QueryString("o27")
if o27 = "ON" Then amtfl = 1 end if

o28 = Request.QueryString("o28")
if o28 = "ON" Then amtfl = 1 end if

o29 = Request.QueryString("o29")
if o29 = "ON" Then amtfl = 1 end if

If (amtfl = 0 and session("fl2") = 0) then
Response.Redirect("intetamt.asp")
Response.end
End if

'---------------------
'PAGING VARIABLE START
'---------------------
Dim iStart, iOffset
iStart = Request.QueryString("iStart")
iOffset = 4 'angiver hvor mange huse pr. side

If Not IsNumeric(iStart) Or Len(iStart) = 0 Or iStart < 0 then
iStart = 0
Else
iStart = CInt(iStart)
End if

If Not IsNumeric(iOffset) or Len(iOffset) = 0 then
iOffset = 5
else
iOffset = CInt(iOffset)
end if

'--------------------
'PAGING VARIABLE SLUT
'--------------------

fl = 0

if session("fl2") = 1 Then
sql = session("SQL")
Else
sql = ""
'Sql = sql & "SELECT DISTINCT id, foto, op, antalp, grundareal, vr, Beskr, ann, Overskrift, amt, uge, link, Ledigt "
'Sql = sql & "FROM Uge INNER JOIN hus ON Uge.Hus = hus.id "
'Sql = sql & "WHERE (((hus.IA) Is Null Or (hus.IA)= '')) "

SQL = "SELECT DISTINCT hus.Overskrift, hus.Op, hus.Antalp, Uge.Hus, Uge.uge, Uge.Ledigt, Uge.Pris1, Uge.Pris2, Uge.Lm, Uge.Pris3, Uge.Pris4, hus.Grundareal, hus.Husets, hus.Vr, hus.Afi, hus.Ass, hus.Parabol, hus.Stereo, hus.Telefon, hus.tv, hus.Video, hus.Barnestol, hus.Kedel, hus.emh, hus.Fryser, hus.Kaffe, hus.Komfur, hus.kl, hus.Micro, hus.Opvask, hus.Bruser, hus.Sauna, hus.Sol, hus.Spa, hus.Brovn, hus.El, hus.Husdyr, hus.Pool, hus.Stsuger, hus.Tumbler, hus.Vaske, hus.Carport, hus.Cykler, hus.Grill, hus.Have, hus.Terrasse, hus.Foto, hus.Beskr, hus.Ejer, hus.Ann, hus.Amt, hus.Lann, hus.Link, hus.IA, hus.Rk, hus.id, hus.tann, hus.tbeskriv, hus.eann, hus.ebeskriv " & _
"FROM Uge INNER JOIN hus ON Uge.Hus = hus.id " & _
"WHERE (((hus.IA) Is Null Or (hus.IA)= '')) "

if not uge = "Uvæsentlig" Then
sql = sql & " AND uge = " & uge & " "
End if

if Antalp = "Uvæsentlig" then
sql = sql & " AND Antalp >" & 1 & " "
Else
sql = sql & "AND Antalp >=" & AP & " "
end if

if not Pris = "Uvæsentlig" then
sql = sql & "AND pris1 <=" & Pris & " "
end if

if not alle = "ON" Then
sql = sql & " AND("
End if

if o1 = "ON" Then
if fl = 0 then
sql = sql & "amt = 'o1'"
fl = 1
else
sql = sql & "or amt = 'o1'"
fl = 1
End if
End if

if o2 = "ON" Then
if fl = 0 then
sql = sql & "amt = 'o2'"
fl = 1
else
sql = sql & "or amt = 'o2'"
fl = 1
End if
End if

if o2 = "ON" Then
if fl = 0 then
sql = sql & " OR amt = 'o2'"
fl = 1
else
sql = sql & "OR amt = 'o2'"
fl = 1
End if
End if

if o3 = "ON" Then
if fl = 0 then
sql = sql & "amt = 'o3'"
fl = 1
else
sql = sql & "or amt = 'o3'"
fl = 1
End if
End if

if o4 = "ON" Then
if fl = 0 then
sql = sql & "amt = 'o4'"
fl = 1
else
sql = sql & "or amt = 'o4'"
fl = 1
End if
End if

if o5 = "ON" Then
if fl = 0 then
sql = sql & "amt = 'o5'"
fl = 1
else
sql = sql & "or amt = 'o5'"
fl = 1
End if
End if

if o6 = "ON" Then
if fl = 0 then
sql = sql & "amt = 'o6'"
fl = 1
else
sql = sql & "or amt = 'o6'"
fl = 1
End if
End if

if o7 = "ON" Then
if fl = 0 then
sql = sql & "amt = 'o7'"
fl = 1
else
sql = sql & "or amt = 'o7'"
fl = 1
End if
End if

if o8 = "ON" Then
if fl = 0 then
sql = sql & "amt = 'o8'"
fl = 1
else
sql = sql & "or amt = 'o8'"
fl = 1
End if
End if

if o9 = "ON" Then
if fl = 0 then
sql = sql & "amt = 'o9'"
fl = 1
else
sql = sql & "or amt = 'o9'"
fl = 1
End if
End if

if o10 = "ON" Then
if fl = 0 then
sql = sql & "amt = 'o10'"
fl = 1
else
sql = sql & "or amt = 'o10'"
fl = 1
End if
End if

if o11 = "ON" Then
if fl = 0 then
sql = sql & "amt = 'o11'"
fl = 1
else
sql = sql & "or amt = 'o11'"
fl = 1
End if
End if

if o12 = "ON" Then
if fl = 0 then
sql = sql & "amt = 'o12'"
fl = 1
else
sql = sql & "or amt = 'o12'"
fl = 1
End if
End if

if o13 = "ON" Then
if fl = 0 then
sql = sql & "amt = 'o13'"
fl = 1
else
sql = sql & "or amt = 'o13'"
fl = 1
End if
End if

if o14 = "ON" Then
if fl = 0 then
sql = sql & "amt = 'o14'"
fl = 1
else
sql = sql & "or amt = 'o14'"
fl = 1
End if
End if

if o15 = "ON" Then
if fl = 0 then
sql = sql & "amt = 'o15'"
fl = 1
else
sql = sql & "or amt = 'o15'"
fl = 1
End if
End if

if o16 = "ON" Then
if fl = 0 then
sql = sql & "amt = 'o16'"
fl = 1
else
sql = sql & "or amt = 'o16'"
fl = 1
End if
End if

if o17 = "ON" Then
if fl = 0 then
sql = sql & "amt = 'o17'"
fl = 1
else
sql = sql & "or amt = 'o17'"
fl = 1
End if
End if

if o18 = "ON" Then
if fl = 0 then
sql = sql & "amt = 'o18'"
fl = 1
else
sql = sql & "or amt = 'o18'"
fl = 1
End if
End if

if o19 = "ON" Then
if fl = 0 then
sql = sql & "amt = 'o19'"
fl = 1
else
sql = sql & "or amt = 'o19'"
fl = 1
End if
End if

if o20 = "ON" Then
if fl = 0 then
sql = sql & "amt = 'o20'"
fl = 1
else
sql = sql & "or amt = 'o20'"
fl = 1
End if
End if

if o21 = "ON" Then
if fl = 0 then
sql = sql & "amt = 'o21'"
fl = 1
else
sql = sql & "or amt = 'o21'"
fl = 1
End if
End if

if o22 = "ON" Then
if fl = 0 then
sql = sql & "amt = 'o22'"
fl = 1
else
sql = sql & "or amt = 'o22'"
fl = 1
End if
End if

if o23 = "ON" Then
if fl = 0 then
sql = sql & "amt = 'o23'"
fl = 1
else
sql = sql & "or amt = 'o23'"
fl = 1
End if
End if

if o24 = "ON" Then
if fl = 0 then
sql = sql & "amt = 'o24'"
fl = 1
else
sql = sql & "or amt = 'o24'"
fl = 1
End if
End if

if o25 = "ON" Then
if fl = 0 then
sql = sql & "amt = 'o25'"
fl = 1
else
sql = sql & "or amt = 'o25'"
fl = 1
End if
End if

if o26 = "ON" Then
if fl = 0 then
sql = sql & "amt = 'o26'"
fl = 1
else
sql = sql & "or amt = 'o26'"
fl = 1
End if
End if

if o27 = "ON" Then
if fl = 0 then
sql = sql & "amt = 'o27'"
fl = 1
else
sql = sql & "or amt = 'o27'"
fl = 1
End if
End if

if o28 = "ON" Then
if fl = 0 then
sql = sql & "amt = 'o28'"
fl = 1
else
sql = sql & "or amt = 'o28'"
fl = 1
End if
End if

if o29 = "ON" Then
if fl = 0 then
sql = sql & "amt = 'o29'"
fl = 1
else
sql = sql & "or amt = 'o29'"
fl = 1
End if
End if

if not Alle = "ON" Then
sql = sql & ")"
End if

Session("fl2") = 1
End if

if Spa = "ON" Then
sql = sql & "and (spa = 'checked')"
End if

if Pool = "ON" Then
sql = sql & "and (Pool = 'checked')"
End if

if Vaske = "ON" Then
sql = sql & "and (Vaske = 'checked')"
End if

if OP = "ON" Then
sql = sql & "and (Opvask = 'checked')"
End if

if Hus = "ON" Then
sql = sql & "and (Husdyr = 'checked')"
End if

if Bo = "ON" Then
sql = sql & " and (Brovn = 'checked')"
End if

sql = sql & " and (Ledigt = 'checked')"

'smider lige sql'en i en session
Session("SQL") = sql

'Indsæt denne
'response.write sql

'Åben basen
Set objRS = Server.CreateObject("ADODB.Recordset")
objrs.open sql, conn, 1, 3

If objrs.EOF And objrs.BOF Then
Response.Redirect "ingenposter.asp"
End if

arrayHuse = objRS.GetRows()

total = Ubound(arrayHuse, 2) 'totalt antal af huse indenfor kriterierne
%>

<%

'----------------
' start paging
'----------------
dim iStop

If total > (iOffset + iStart) Then
iStop = iOffset + iStart - 1
Else
iStop = total
End If

'alle numre er minus 1
'(1)hus.Overskrift
'(2)hus.Op
'(3)hus.Antalp
'(4)Uge.Hus
'(5)Uge.uge
'(6)Uge.Ledigt
'(7)Uge.Pris1
'(8)Uge.Pris2
'(9)Uge.Lm
'(10)Uge.Pris3
'(11)Uge.Pris4
'(12)hus.Grundareal
'(13)hus.Husets
'(14)hus.Vr
'(15)hus.Afi
'(16)hus.Ass
'(17)hus.Parabol
'(18)hus.Stereo
'(19)hus.Telefon
'(20)hus.tv
'(21)hus.Video
'(22)hus.Barnestol
'(23)hus.Kedel
'(24)hus.emh
'(25)hus.Fryser
'(26)hus.Kaffe
'(27)hus.Komfur
'(28)hus.kl
'(29)hus.Micro
'(30)hus.Opvask
'(31)hus.Bruser
'(32)hus.Sauna
'(33)hus.Sol
'(34)hus.Spa
'(35)hus.Brovn
'(36)hus.El
'(37)hus.Husdyr
'(38)hus.Pool
'(39)hus.Stsuger
'(40)hus.Tumbler
'(41)hus.Vaske
'(42)hus.Carport
'(43)hus.Cykler
'(44)hus.Grill
'(45)hus.Have
'(46)hus.Terrasse
'(47)hus.Foto
'(48)hus.Beskr
'(49)hus.Ejer
'(50)hus.Ann
'(51)hus.Amt
'(52)hus.Lann
'(53)hus.Link
'(54)hus.IA
'(55)hus.Rk
'(56)hus.id
'(57)hus.tann
'(58)hus.tbeskriv
'(59)hus.eann
'(60)hus.ebeskriv

For i = iStart to iStop
amt = Right(arrayHuse(50, i), Len(arrayHuse(50, i)) - 1)
id = arrayHuse(55, i)
overskrift = Server.HTMLEncode(arrayHuse(0, i))
annoncetekst = Server.HTMLEncode(arrayHuse(49, i))
foto4 = id & "/1.jpg"
%>

<%

Next

Response.write "</P>"
'Response.write "<P>Gå til side "

'skriver pagingen altså side 1 2 3 4 osv.
Call Page(iStart, total, iOffset, iStop, amt)

%>

Synes godt om

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

I dag 14:34	Hjælp til at kunne skanne negativer på Plustek 8300i SE Af Mariann i Foto & video
I dag 13:58	Mapperne Dokumenter og Overførsler er forsvundet efter geninstallation af Win11 Af bragger i Windows
25/0713:55	Ukendt sender e-mails fra - og til min e-mail adresse Af mort1 i Andet sikkerhed
24/0711:08	Forskel mellem klokkeslet start aften slut næste morgen Af krasmussen i Excel
23/0715:10	WINDOWS KOMPABILITET Af snestrup2000 i Windows

Notifikationer

Ændre asp-sætninger fra access-db til Mysql

Log ind eller opret profil

Hov!