Jeps, den er her
[pre]
<html>
<head>
<style>
body {
Margin:0px;
color:#0080FF;
scrollbar-face-color:#0080FF;
scrollbar-shadow-color:#000000;
scrollbar-highlight-color:#000000;
scrollbar-3dlight-color:#0080FF;
scrollbar-darkshadow-color:#0080FF;
scrollbar-track-color:#CCD2DE;
scrollbar-arrow-color:#CCD2DE;
font-family:'Verdana';
background-color:#FFFFFF;
}
tr {
vertical-align:top;
font-size:11;
}
A:link {
color:#0000FF;
text-decoration:underline;
}
A:visited {
text-decoration:underline;
color:#0000FF;
}
A:active {
text-decoration:none;
color:#0000FF;
}
A:hover {
text-decoration:none;
color:#0080FF;
}
input.textfelt {
border:1px;
background-color:#FFFFFF;
color:#0080FF;
border-style:solid;
width:250px;
}
textarea {
overflow:auto;
border:1px;
background:#FFFFFF;
color:#0080FF;
border-style:solid;
width:250px;
height:80px;
font-family:sans-serif;
scrollbar-track-color:#FFFFFF;
scrollbar-arrow-color:#FFFFFF;
}
select {
background-color:#FFFFFF;
color:#0080FF;
width:250px;
}
input.knap {
border:1px;
border-color:#000000;
background-color:#FFFFFF;
color:#0080FF;
border-style:solid;
width:120px;
height:20px;
font-size:xx-small;
}
hr {
color:#0080FF;
width:90%;
}
</style>
<%
Set conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("cgi-bin/database.mdb")
Conn.open DSN
Adresse = "http://www.n-dating.dk/Onlinehammeren/"
Password = "Julegåden"
Grafikmappe = "images"
ForsideOverskrift = "Velkommen til onlinehammeren.dk"
ForsideTekst = "Onlinehammeren er en side til dig og din indre kræmmer. Her kan du sælge auktioner og byde på de forskellige auktioner, ganske gratis"
Title = "Onlinehammeren.dk - Stedet for din indre kræmmer"
Adresse = "http://www.n-dating.dk/Onlinehammeren/"
if request.querystring("site") = "" then
Response.write "<title>" & Title & "</title>"
Else
Response.write "<title>" & request.querystring("site") & "." & Title & "</title>"
end if
If Month(now) = 1 then
Maaned = "Januar"
Elseif Month(now) = 2 then
Maaned = "Februar"
Elseif Month(now) = 3 then
Maaned = "Marts"
Elseif Month(now) = 4 then
Maaned = "April"
Elseif Month(now) = 5 then
Maaned = "Maj"
Elseif Month(now) = 6 then
Maaned = "Juni"
Elseif Month(now) = 7 then
Maaned = "Juli"
Elseif Month(now) = 8 then
Maaned = "August"
Elseif Month(now) = 9 then
Maaned = "September"
Elseif Month(now) = 10 then
Maaned = "Oktober"
Elseif Month(now) = 11 then
Maaned = "November"
Elseif Month(now) = 12 then
Maaned = "December"
End if
Dato = Day(now) & ". " & Maaned & " " & Year(now)
DatoRen = Day(Now) & "-" & Month(now) & "-" & Year(now)
KlokkenKort = Hour(now) & ":" & Minute(now)
KlokkenLang = Hour(now) & ":" & Minute(now) & ":" & Second(now)
strSQL = "Select * from Hits where IP = '" & request.servervariables("REMOTE_ADDR") & "' AND Dato = '" & Day(now) & "-" & Month(now) & "-" & Year(now) & "'"
Set rs = Conn.Execute(strSQL)
If rs.BOF AND rs.EOF then
strSQL = "Insert into Hits ("
strSQL = strSQL & "IP, "
strSQL = strSQL & "Dato) "
strSQL = strSQL & "values( "
strSQL = strSQL & "'" & request.servervariables("REMOTE_ADDR") & "', "
strSQL = strSQL & "'" & Day(now) & "-" & Month(now) & "-" & Year(now) & "')"
Conn.Execute(strSQL)
End if
%>
</head>
<body>
<%
Response.write "<center>"
Response.write "<table width='100%' cellpadding='0px' cellspacing='0px'>"
Response.write "<tr>"
Response.write "<td style='text-align:right; width:20%; Background-image:URL(images/top_back.jpg);'>"
Response.write "<img src='" & Grafikmappe & "/LeftHammer.jpg'>"
Response.write "</td>"
Response.write "<td style='Background-image:URL(images/top_back_BottomWhite.jpg);'>"
Response.write "<center><img src='" & Grafikmappe & "/title.png'></center>"
Response.write "</td>"
Response.write "<td style='text-align:left; width:20%; Background-image:URL(images/top_back.jpg);'>"
Response.write "<img src='" & Grafikmappe & "/RightHammer.jpg'>"
Response.write "</td>"
Response.write "</tr>"
Response.write "</table>"
Response.write "<table width='100%' height='100%' cellpadding='0px' cellspacing='0px' border='0' style='background-color:#D0D1DF;'>"
Response.write "<tr>"
Response.write "<td style='Background-image:URL(" & Grafikmappe & "/left_back.jpg); background-position:right; background-repeat: repeat-y; width:20%;'>"
Response.write "<div style='text-align:right;'><img src='" & Grafikmappe & "/left_back.jpg'></div>"
Response.write "<div style='text-align:left; Margin-left:15px; Margin-right:15px;'>"
strSQL = "Select * from Kategorier where KategoriLevel = '1' order by Kategori"
Set rs = Conn.Execute(strSQL)
If NOT rs.EOF then
Do
Underkategorier = ""
Id = rs("Id")
strSQL2 = "Select * from Auktioner where FraId = '" & Id & "'"
Set rs2 = Conn.Execute(strSQL2)
Auktioner = 0
If NOT rs2.EOF then
Do
Auktioner = Auktioner + 1
rs2.MoveNext
Loop while NOT rs2.EOF
End if
strSQL2 = "Select * from Kategorier where KategoriLevel = '2' AND FraId = '" & Id & "' order by Kategori"
Set rs2 = Conn.Execute(strSQL2)
If rs2.BOF AND rs2.EOF then
Underkategorier = "ingen underkategorier"
Else
Do
If Underkategorier = "" then
Underkategorier = rs2("Kategori")
Else
Underkategorier = Underkategorier & ", " & rs2("Kategori")
End if
rs2.MoveNext
Loop while NOT rs2.EOF
End if
Response.write "¤ <a href='default.asp?site=Auktioner&Kategori=" & rs("KategoriLevel") & "&KategoriId=" & Id & "' title='" & Id & ". Indeholder " & Underkategorier & "'>" & rs("Kategori") & " ( " & Auktioner & " )</a><br><br style='font-size:4px;'>"
rs.MoveNext
Loop while NOT rs.EOF
Response.write "<br>"
Response.write "¤ <a href='default.asp?site=Vare'>Alle auktioner</a>"
End if
Response.write "</div>"
Response.write "</td>"
Response.write "<td style='background-color:#FFFFFF;'>"
If request.querystring("site") = "" then
Response.write "<h2>" & ForsideOverskrift & "</h2>"
Response.write ForsideTekst & "<br><hr><br>"
Response.write "<b>Nyeste auktioner:</b><br>"
strSQL = "Select * from Auktioner where Slut = '0' order by ID desc"
Set rs = Conn.Execute(strSQL)
Response.write "<table style='width:100%;'>"
Response.write "<tr style='background-color:#77ADFF; color:#FFFFFF;'>"
Response.write "<td>"
Response.write " "
Response.write "</td>"
Response.write "<td>"
Response.write "Auktionsvare"
Response.write "</td>"
Response.write "<td>"
Response.write "Bud"
Response.write "</td>"
Response.write "<td>"
Response.write "Pris"
Response.write "</td>"
Response.write "<td>"
Response.write "Slutter"
Response.write "</td>"
Response.write "</tr>"
If NOT rs.EOF then
Do
Id = rs("Id")
Billed = rs("Billed")
If BackgroundColor = "FFFFFF" then
BackgroundColor = "77ADFF"
Color = "FFFFFF"
Else
BackgroundColor = "FFFFFF"
Color = "77ADFF"
End if
Response.write "<tr style='background-color:#" & BackgroundColor & "; color:#" & Color & ";'>"
Response.write "<td>"
If Billed <> "N" then
Response.write "<img src='http://" & Billed & "' style='width:80px;'>"
End if
Response.write "</td>"
Response.write "<td>"
Response.write "<a href='default.asp?site=Auktioner&Auktion=" & Id & "'>" & rs("Vare") & "</a>"
Response.write "</td>"
Response.write "<td>"
Pris = rs("Pris")
strSQL = "Select * from VareBud where FraId = '" & Id & "'"
Set rs2 = Conn.Execute(strSQL)
Bud = 0
If NOT rs2.EOF then
Do
Bud = Bud + 1
Pris = Pris + Int(rs2("Bud"))
rs2.MoveNext
Loop while NOT rs2.EOF
End if
Response.write Bud
Response.write "</td>"
Response.write "<td>"
Response.write Pris & ",-"
Response.write "</td>"
Response.write "<td>"
arrSlutter = Split(rs("Slutter")," ")
arrSlutterTid = Split(arrSlutter(1),":")
arrSlutterDato = Split(arrSlutter(0),"-")
If arrSlutterDato(1) = 1 then
SlutterMaaned = "Januar"
Elseif arrSlutterDato(1) = 2 then
SlutterMaaned = "Februar"
Elseif arrSlutterDato(1) = 3 then
SlutterMaaned = "Marts"
Elseif arrSlutterDato(1) = 4 then
SlutterMaaned = "April"
Elseif arrSlutterDato(1) = 5 then
SlutterMaaned = "Maj"
Elseif arrSlutterDato(1) = 6 then
SlutterMaaned = "Juni"
Elseif arrSlutterDato(1) = 7 then
SlutterMaaned = "Juli"
Elseif arrSlutterDato(1) = 8 then
SlutterMaaned = "August"
Elseif arrSlutterDato(1) = 9 then
SlutterMaaned = "September"
Elseif arrSlutterDato(1) = 10 then
SlutterMaaned = "Oktober"
Elseif arrSlutterDato(1) = 11 then
SlutterMaaned = "November"
Elseif arrSlutterDato(1) = 12 then
SlutterMaaned = "December"
End if
Response.write arrSlutterDato(0) & ". " & SlutterMaaned & " " & arrSlutterDato(2) & " " & arrSlutter(1) & "<br>"
SlutDage = Null
SlutMdr = Null
SlutAar = Null
If arrSlutterDato(0) - Day(Now) >= 0 then
SlutDage = arrSlutterDato(0) - Day(Now)
If arrSlutterDato(1) - Month(Now) >= 0 then
SlutMdr = arrSlutterDato(1) - Month(Now)
If arrSlutterDato(2) - Year(Now) >= 0 then
SlutAar = arrSlutterDato(2) - Year(Now)
End if
End if
End if
SlutTimer = arrSlutterTid(0) - Hour(Now)
SlutMinutter = arrSlutterTid(1) - Minute(Now)
If SlutMinutter < 0 then
SlutMinutter = SlutMinutter + 60
SlutTimer = SlutTimer - 1
End if
If SlutTimer < 0 then
SlutMinutter = SlutMinutter + 24
SlutDage = SlutDage - 1
End if
If SlutAar > 0 OR SlutMdr > 0 OR SlutDage > 0 OR SlutTimer > 0 OR SlutMinutter > 0 then
Response.write "Om "
If SlutAar > 0 then
Response.write SlutAar & " år "
End if
If SlutMdr > 0 then
Response.write SlutMdr & " måneder "
End if
If SlutDage > 0 then
Response.write SlutDage & " dage "
End if
If SlutTimer > 0 then
Response.write SlutTimer & " timer "
End if
If SlutMinutter > 0 then
Response.write SlutMinutter & " minutter "
End if
Else
strSQL2 = "Update Auktioner set "
strSQL2 = strSQL2 & "Slut= '1' "
strSQL2 = strSQL2 & " Where Id = " & Id
Conn.Execute(strSQL2)
Response.write "<b>Denne auktion er netop sluttet</b>"
End if
Response.write "</td>"
Response.write "</tr>"
rs.MoveNext
Loop while NOT rs.EOF
End if
Response.write "</table>"
End if
If request.querystring("site") = "Tilmeld" then
Response.write "<h2>Bliv medlem af " & Adresse & "</h2>"
If request.querystring("Trin") = "3" then
strSQL = "Insert into Members ("
strSQL = strSQL & "Brugernavn, "
strSQL = strSQL & "Password, "
strSQL = strSQL & "Navn, "
strSQL = strSQL & "Adresse, "
strSQL = strSQL & "Postnummer, "
strSQL = strSQL & "Hjemby, "
strSQL = strSQL & "Telefon, "
strSQL = strSQL & "Email, "
strSQL = strSQL & "Foedselsdato, "
strSQL = strSQL & "Genger, "
strSQL = strSQL & "IP, "
strSQL = strSQL & "Oprettet, "
strSQL = strSQL & "Spoergsmaal, "
strSQL = strSQL & "Svar) "
strSQL = strSQL & "values( "
strSQL = strSQL & "'" & Replace(request.form("Brugernavn"),"'","´") & "', "
strSQL = strSQL & "'" & Replace(request.form("Password1"),"'","´") & "', "
strSQL = strSQL & "'" & Replace(request.form("Fornavn") & " " & request.form("Efternavn"),"'","´") & "', "
strSQL = strSQL & "'" & Replace(request.form("Adresse"),"'","´") & "', "
strSQL = strSQL & "'" & Replace(request.form("Postnummer"),"'","´") & "', "
strSQL = strSQL & "'" & Replace(request.form("Hjemby"),"'","´") & "', "
strSQL = strSQL & "'" & Replace(request.form("Telefon"),"'","´") & "', "
strSQL = strSQL & "'" & Replace(request.form("Email"),"'","´") & "', "
strSQL = strSQL & "'" & Replace(request.form("Foedselsdato"),"'","´") & "', "
strSQL = strSQL & "'" & Replace(request.form("Genger"),"'","´") & "', "
strSQL = strSQL & "'" & Replace(Request.servervariables("REMOTE_ADDR"),"'","´") & "', "
strSQL = strSQL & "'" & Replace(DatoRen,"'","´") & "', "
strSQL = strSQL & "'" & Replace(request.form("Spørgsmål"),"'","´") & "', "
strSQL = strSQL & "'" & Replace(request.form("Svar"),"'","´") & "')"
Conn.Execute(strSQL)
Session.abandon
Response.redirect "default.asp?site=Login"
End if
If request.querystring("Trin") = "2" then
Response.write "<b>Bekræft oplysninger</b><br>"
Response.write "<form method='post' action='default.asp?site=" & request.querystring("site") & "&Trin=3'>"
Response.write "Brugernavn: " & request.form("Brugernavn") & " - <a href='#Brugernavn'>Ret</a><br>"
strSQL = "Select * from Members where Brugernavn = '" & request.form("Brugernavn") & "'"
Set rs = Conn.Execute(strSQL)
If NOT rs.EOF then
Fejl = "TRUE"
Response.write "<span style='color:#FF0000;'>Brugernavnet er taget</span><br>"
Else
If request.form("Brugernavn") = "" then
Fejl = "TRUE"
Response.write "<span style='color:#FF0000;'>Feltet var tomt, De skal udfylde alle felterne</span><br>"
Else
Response.write "<input type='hidden' name='Brugernavn' value='" & request.form("Brugernavn") & "'>"
End if
End if
Response.write "Password: <span title='Password: " & request.form("Password1") & "'>Hold musen herover</span> - <a href='#Password'>Ret</a><br>"
If request.form("Password1") <> request.form("Password2") then
Fejl = "TRUE"
Response.write "<span style='color:#FF0000;'>Passwords matchede ikke</span><br>"
Else
If request.form("Password1") = "" then
Fejl = "TRUE"
Response.write "<span style='color:#FF0000;'>Feltet var tomt, De skal udfylde alle felterne</span><br>"
Else
Response.write "<input type='hidden' name='Password1' value='" & request.form("Password1") & "'>"
End if
End if
Response.write "Navn: " & request.form("Fornavn") & " " & request.form("Efternavn") & " - <a href='#Navn'>Ret</a><br>"
If request.form("Fornavn") = "" OR request.form("Efternavn") = "" then
Fejl = "TRUE"
Response.write "<span style='color:#FF0000;'>Feltet var tomt, De skal udfylde alle felterne</span><br>"
Else
Response.write "<input type='hidden' name='Fornavn' value='" & request.form("Fornavn") & "'>"
Response.write "<input type='hidden' name='Efternavn' value='" & request.form("Efternavn") & "'>"
End if
Response.write "Adresse: " & request.form("AdresseVej") & " " & request.form("AdresseNr") & " - <a href='#Adresse'>Ret</a><br>"
If request.form("AdresseVej") = "" OR request.form("AdresseNr") = "" then
Fejl = "TRUE"
Response.write "<span style='color:#FF0000;'>Feltet var tomt, De skal udfylde alle felterne</span><br>"
Else
Response.write "<input type='hidden' name='Adresse' value='" & request.form("AdresseVej") & " " & request.form("AdresseNr") & "'>"
End if
Response.write "Postnummer og by: " & request.form("Postnummer") & " " & request.form("Hjemby") & " - <a href='#PostnummerHjemby'>Ret</a><br>"
If request.form("Postnummer") = "" OR request.form("Hjemby") = "" then
Fejl = "TRUE"
Response.write "<span style='color:#FF0000;'>Feltet var tomt, De skal udfylde alle felterne</span><br>"
Else
Response.write "<input type='hidden' name='Postnummer' value='" & request.form("Postnummer") & "'>"
Response.write "<input type='hidden' name='Hjemby' value='" & request.form("Hjemby") & "'>"
End if
Response.write "Telefon: " & request.form("Telefon") & " - <a href='#Telefon'>Ret</a><br>"
If Len(request.form("Telefon")) <> 8 then
Fejl = "TRUE"
Response.write "<span style='color:#FF0000;'>Telefonnummeret passer ikke til danske standarder</span><br>"
Else
Response.write "<input type='hidden' name='Telefon' value='" & request.form("Telefon") & "'>"
End if
Response.write "Email: " & request.form("Email") & " - <a href='#Email'>Ret</a><br>"
If request.form("Email") = "" then
Fejl = "TRUE"
Response.write "<span style='color:#FF0000;'>Feltet var tomt, De skal udfylde alle felterne</span><br>"
Else
Response.write "<input type='hidden' name='Email' value='" & request.form("Email") & "'>"
End if
Response.write "Fødselsdato: "
If request.form("Foedselsmaaned") = 1 then
FoedselsdatoMaaned = "Januar"
Elseif request.form("Foedselsmaaned") = 2 then
FoedselsdatoMaaned = "Februar"
Elseif request.form("Foedselsmaaned") = 3 then
FoedselsdatoMaaned = "Marts"
Elseif request.form("Foedselsmaaned") = 4 then
FoedselsdatoMaaned = "April"
Elseif request.form("Foedselsmaaned") = 5 then
FoedselsdatoMaaned = "Maj"
Elseif request.form("Foedselsmaaned") = 6 then
FoedselsdatoMaaned = "Juni"
Elseif request.form("Foedselsmaaned") = 7 then
FoedselsdatoMaaned = "Juli"
Elseif request.form("Foedselsmaaned") = 8 then
FoedselsdatoMaaned = "August"
Elseif request.form("Foedselsmaaned") = 9 then
FoedselsdatoMaaned = "September"
Elseif request.form("Foedselsmaaned") = 10 then
FoedselsdatoMaaned = "Oktober"
Elseif request.form("Foedselsmaaned") = 11 then
FoedselsdatoMaaned = "November"
Elseif request.form("Foedselsmaaned") = 12 then
FoedselsdatoMaaned = "December"
End if
Response.write request.form("Foedselsdag") & ". " & FoedselsdatoMaaned & " " & request.form("Foedselsaar") & " - <a href='#Fødselsdato'>Ret</a><br>"
Response.write "<input type='hidden' name='Foedselsdato' value='" & request.form("Foedselsdag") & "-" & request.form("Foedselsmaaned") & "-" & request.form("Foedselsaar") & "'>"
Response.write "Køn: " & request.form("Genger") & " - <a href='#Køn'>Ret</a><br>"
If request.form("Genger") = "" then
Fejl = "TRUE"
Response.write "<span style='color:#FF0000;'>Feltet var tomt, De skal udfylde alle felterne</span><br>"
Else
Response.write "<input type='hidden' name='Genger' value='" & request.form("Genger") & "'>"
End if
Response.write "Dit personlige spørgsmål: "
Select Case request.form("Spørgsmål")
Case 1
Response.write "Hvad hedder din hund?"
Case 2
Response.write "Hvad er din mors pigenavn?"
Case 3
Response.write "Hvad hed din første kone?"
Case 4
Response.write "Hvilken måned er din far født i?"
Case 5
Response.write "Hvor gik du i skole?"
End Select
Response.write " - <a href='#Spørgsmål'>Ret</a><br>"
If request.form("Spørgsmål") = "" then
Fejl = "TRUE"
Response.write "<span style='color:#FF0000;'>Feltet var tomt, De skal udfylde alle felterne</span><br>"
Else
Response.write "<input type='hidden' name='Spørgsmål' value='" & request.form("Spørgsmål") & "'>"
End if
Response.write "Svaret på dit personlige spørgsmål: " & request.form("Svar") & " - <a href='#Svar'>Ret</a><br>"
If request.form("Svar") = "" then
Fejl = "TRUE"
Response.write "<span style='color:#FF0000;'>Feltet var tomt, De skal udfylde alle felterne</span><br>"
Else
Response.write "<input type='hidden' name='Svar' value='" & request.form("Svar") & "'>"
End if
If Fejl = "" then
Response.write "<br><input type='submit' class='knap' value='Bekræft'>"
Else
Response.write "<br><input type='submit' class='knap' value='Bekræft' disabled>"
End if
Response.write "</form>"
Response.write "<br>"
End if
Response.write "<form method='post' action='default.asp?site=" & request.querystring("site") & "&Trin=2'>"
Response.write "<a name='Brugernavn'>¤ Brugernavn</a><br>"
Response.write "<input type='text' class='textfelt' name='Brugernavn' value='" & request.form("Brugernavn") & "'><br><br>"
Response.write "<a name='Password'>¤ Password</a><br>"
Response.write "<input type='password' class='textfelt' name='Password1' value='" & request.form("Password1") & "'><br><br>"
Response.write "¤ Bekræft password<br>"
Response.write "<input type='password' class='textfelt' name='Password2' value='" & request.form("Password2") & "'><br><br>"
Response.write "<a name='Navn'>¤ Fornavn</a><br>"
Response.write "<input type='text' class='textfelt' name='Fornavn' value='" & request.form("Fornavn") & "'><br><br>"
Response.write "¤ Efternavn<br>"
Response.write "<input type='text' class='textfelt' name='Efternavn' value='" & request.form("Efternavn") & "'><br><br>"
Response.write "<a name='Adresse'>¤ Adresse</a><br>"
Response.write "<input type='text' class='textfelt' name='AdresseVej' style='width:205px;' value='" & request.form("AdresseVej") & "'> <input type='text' class='textfelt' name='AdresseNr' style='width:40px;' value='" & request.form("AdresseNr") & "'><br><br>"
Response.write "<a name='PostnummerHjemby'>¤ Postnummer og By</a><br>"
Response.write "<input type='text' class='textfelt' name='Postnummer' style='width:40px;' value='" & request.form("Postnummer") & "'> <input type='text' class='textfelt' name='Hjemby' style='width:205px;' value='" & request.form("Hjemby") & "'><br><br>"
Response.write "<a name='Telefon'>¤ Telefon</a><br>"
Response.write "<input type='text' class='textfelt' name='Telefon' value='" & request.form("Telefon") & "'><br><br>"
Response.write "<a name='Email'>¤ Email</a><br>"
Response.write "<input type='text' class='textfelt' name='Email' value='" & request.form("Email") & "'><br><br>"
Response.write "<a name='Fødselsdato'>¤ Fødselsdato</a><br>"
Response.write "<select name='Foedselsdag' style='width:81px;'>"
For Index = 1 to 31
If Int(request.form("Foedselsdag")) = Index then
Response.write "<option selected>" & Index
Else
Response.write "<option>" & Index
End if
Next
Response.write "</select> "
Response.write "<select name='Foedselsmaaned' style='width:81px;'>"
For Index = 1 to 12
If Int(request.form("Foedselsmaaned")) = Index then
Response.write "<option selected>" & Index
Else
Response.write "<option>" & Index
End if
Next
Response.write "</select> "
Response.write "<select name='Foedselsaar' style='width:81px;'>"
For Index = Year(now) - 100 to Year(now) - 10
If Int(request.form("Foedselsaar")) = Index then
Response.write "<option selected>" & Index
Else
Response.write "<option>" & Index
End if
Next
Response.write "</select><br><br>"
Response.write "<a name='Køn'>¤ Køn</a><br>"
If request.form("Genger") = "Mand" then
Response.write "<input type='radio' name='Genger' value='Mand' checked> Mand<br>"
Else
Response.write "<input type='radio' name='Genger' value='Mand'> Mand<br>"
End if
If request.form("Genger") = "Kvinde" then
Response.write "<input type='radio' name='Genger' value='Kvinde' checked> Kvinde<br>"
Else
Response.write "<input type='radio' name='Genger' value='Kvinde'> Kvinde<br><br>"
End if
Response.write "<a name='Spørgsmål'>¤ Dit personlige spørgsmål</a><br>"
Response.write "<select name='Spørgsmål'>"
If request.form("Spørgsmål") = "1" then
Response.write "<option value='1' selected>Hvad hedder din hund?"
Else
Response.write "<option value='1'>Hvad hedder din hund?"
End if
If request.form("Spørgsmål") = "2" then
Response.write "<option value='2' selected>Hvad er din mors pigenavn?"
Else
Response.write "<option value='2'>Hvad er din mors pigenavn?"
End if
If request.form("Spørgsmål") = "3" then
Response.write "<option value='3' selected>Hvad hed din første kone?"
Else
Response.write "<option value='3'>Hvad hed din første kone?"
End if
If request.form("Spørgsmål") = "4" then
Response.write "<option value='4' selected>Hvilken måned er din far født i?"
Else
Response.write "<option value='4'>Hvilken måned er din far født i?"
End if
If request.form("Spørgsmål") = "5" then
Response.write "<option value='5' selected>Hvor gik du i skole?"
Else
Response.write "<option value='5'>Hvor gik du i skole?"
End if
Response.write "</select><br><br>"
Response.write "<a name='Svar'>¤ Svaret</a><br>"
Response.write "<input type='text' class='textfelt' name='Svar' value='" & request.form("Svar") & "'><br><br>"
Response.write "<br>"
Response.write "<input type='submit' class='knap' value='Tilmeld'> <input type='reset' class='knap' value='Nulstil'><br><br>"
Response.write "</form>"
End if
If request.querystring("site") = "DinSide" then
Response.write "<h2>Din side</h2>"
If session("Member") = "" then
Response.redirect "default.asp?site=Logind"
End if
Response.write "<b><span style='text-align:right; width:100%;'>Logget ind som " & session("Member") & "</span></b>"
Response.write "<table style='width:100%; border:1px; border-style:solid; border-color:#77ADFF;'>"
Response.write "<tr>"
Response.write "<td rowspan='6' style='width:80%; border:1px; border-style:solid; border-color:#77ADFF;'>"
If request.querystring("DinSide") = "" then
Response.write "¤ <a href='default.asp?site=" & request.querystring("site") & "&DinSide=DineBud'>Dine Bud</a><br>"
Response.write "Følg med i de auktioner du har budt på. Du kan også se hvilke afsluttede auktioner du har deltaget i.<br><br>"
Response.write "¤ <a href='default.asp?site=" & request.querystring("site") & "&DinSide=DineSalg'>Dine Salg</a><br>"
Response.write "Følg med i de auktioner du har oprettet. Ændre indstillinger, kontakte eventuelle bydere samt aflyse auktioner er nogle af de ting du kan i Dine Salg.<br><br>"
Response.write "¤ <a href='default.asp?site=" & request.querystring("site") & "&DinSide=Karakterbog'>Din karakterbog</a><br>"
Response.write "Se liste over kommentarer og karaktere, der omhandler dig. Du kan også give andre karakterer, hvis du har indgået en handel med personen.<br><br>"
Response.write "¤ <a href='default.asp?site=" & request.querystring("site") & "&DinSide=FAQ'>Spørgsmål og svar</a><br>"
Response.write "Har du problemer med noget her på " & Adresse & "? Få svar på dine spørgsmål her, med hurtig opslagsspøgsmål, den mere avancerede Spørg Admin kan også bruges, hvis du ikke kan finde svaret på netop dit spørgsmål..<br><br>"
Response.write "¤ <a href='default.asp?site=" & request.querystring("site") & "&DinSide=Indstillinger'>Dine Indstillinger</a><br>"
Response.write "Her kan du ændre i din profil, samt tilføje ny information udover den obligatoriske. Du kan også give " & Adresse & " dit helt eget præg.<br><br>"
Response.write "¤ <a href='default.asp?site=" & request.querystring("site") & "&DinSide=LilleHjælper'>Din Lille Hjælper</a><br>"
Response.write "Din Lille Hjælper kan assistere dig i din online shopping. Din Lille Hjælper kan sammenligne auktioner for dig, finde specifikke auktioner med ting du står og mangler, samt give dig besked om udvalgte auktioner f.eks. hvis du er blevet overbudt i en auktion eller en auktion har fået lavere pris, fordi den ikke er blevet solgt.<br><br>"
Response.write "¤ <a href='default.asp?site=" & request.querystring("site") & "&DinSide=Beskeder'>Dine Beskeder</a><br>"
Response.write "Læs eventuel post fra " & Adresse & ", med nyheder og hot spots eller fra andre brugere af " & Adresse & ".<br><br>"
End if
If request.querystring("DinSide") = "DineBud" then
Response.write "<h3>Dine bud</h3>"
If request.querystring("Show") = "" then
Response.write "<a href='default.asp?site=" & request.querystring("site") & "&DinSide=" & request.querystring("DinSide") & "&Show=all'>Hvis alle mine bud</a><br>"
Response.write "<a href='default.asp?site=" & request.querystring("site") & "&DinSide=" & request.querystring("DinSide") & "&Show=AktiveBud'>Hvis alle mine bud på aktive auktioner</a><br>"
Response.write "<a href='default.asp?site=" & request.querystring("site") & "&DinSide=" & request.querystring("DinSide") & "&Show=BudHistorik'>Hvis min bud historik</a><br>"
Response.write "<a href='default.asp?site=" & request.querystring("site") & "&DinSide=" & request.querystring("DinSide") & "&Show=Uafsluttede'>Hvis mine uafsluttede auktioner</a><br>"
Response.write "<a href='default.asp?site=" & request.querystring("site") & "&DinSide=" & request.querystring("DinSide") & "&Show=Vundet'>Hvis de auktioner jeg har vundet</a><br>"
Response.write "<a href='default.asp?site=" & request.querystring("site") & "&DinSide=" & request.querystring("DinSide") & "&Show=Tabt'>Hvis de auktioner jeg har tabt</a><br>"
End if
If request.querystring("Show") = "all" then
strSQL2 = "Select * from VareBud where Byder = '" & session("MemberId") & "::" & session("Member") & "'"
Set rs2 = Conn.Execute(strSQL2)
If NOT rs2.EOF then
Response.write "<table style='width:100%;'>"
Response.write "<tr style='background-color:#77ADFF; color:#FFFFFF;'>"
Response.write "<td>"
Response.write " "
Response.write "</td>"
Response.write "<td>"
Response.write "Auktionsvare"
Response.write "</td>"
Response.write "<td>"
Response.write "Bud"
Response.write "</td>"
Response.write "<td>"
Response.write "Pris"
Response.write "</td>"
Response.write "<td>"
Response.write "Slutter"
Response.write "</td>"
Response.write "</tr>"
Do
Index = 0
strSQL = "Select * from Auktioner where Id = " & rs2("FraId")
Set rs = Conn.Execute(strSQL)
If NOT rs.EOF then
Id = rs("Id")
Billed = rs("Billed")
If BackgroundColor = "FFFFFF" then
BackgroundColor = "77ADFF"
Color = "FFFFFF"
Else
BackgroundColor = "FFFFFF"
Color = "77ADFF"
End if
Response.write "<tr style='background-color:#" & BackgroundColor & "; color:#" & Color & ";'>"
Response.write "<td>"
If Billed <> "N" then
Response.write "<img src='http://" & Billed & "' style='width:80px;'>"
End if
Response.write "</td>"
Response.write "<td>"
Response.write "<a href='default.asp?site=Auktioner&Auktion=" & Id & "'>" & rs("Vare") & "</a>"
Response.write "</td>"
Response.write "<td>"
Pris = rs("Pris")
strSQL = "Select * from VareBud where FraId = '" & Id & "'"
Set rs3 = Conn.Execute(strSQL)
Bud = 0
If NOT rs3.EOF then
Do
Bud = Bud + 1
Pris = Pris + Int(rs3("Bud"))
rs3.MoveNext
Loop while NOT rs3.EOF
End if
Response.write Bud
Response.write "</td>"
Response.write "<td>"
Response.write Pris & ",-"
Response.write "</td>"
Response.write "<td>"
arrSlutter = Split(rs("Slutter")," ")
arrSlutterTid = Split(arrSlutter(1),":")
arrSlutterDato = Split(arrSlutter(0),"-")
If arrSlutterDato(1) = 1 then
SlutterMaaned = "Januar"
Elseif arrSlutterDato(1) = 2 then
SlutterMaaned = "Februar"
Elseif arrSlutterDato(1) = 3 then
SlutterMaaned = "Marts"
Elseif arrSlutterDato(1) = 4 then
SlutterMaaned = "April"
Elseif arrSlutterDato(1) = 5 then
SlutterMaaned = "Maj"
Elseif arrSlutterDato(1) = 6 then
SlutterMaaned = "Juni"
Elseif arrSlutterDato(1) = 7 then
SlutterMaaned = "Juli"
Elseif arrSlutterDato(1) = 8 then
SlutterMaaned = "August"
Elseif arrSlutterDato(1) = 9 then
SlutterMaaned = "September"
Elseif arrSlutterDato(1) = 10 then
SlutterMaaned = "Oktober"
Elseif arrSlutterDato(1) = 11 then
SlutterMaaned = "November"
Elseif arrSlutterDato(1) = 12 then
SlutterMaaned = "December"
End if
Response.write arrSlutterDato(0) & ". " & SlutterMaaned & " " & arrSlutterDato(2) & " " & arrSlutter(1) & "<br>"
SlutDage = Null
SlutMdr = Null
SlutAar = Null
If arrSlutterDato(0) - Day(Now) >= 0 then
SlutDage = arrSlutterDato(0) - Day(Now)
If arrSlutterDato(1) - Month(Now) >= 0 then
SlutMdr = arrSlutterDato(1) - Month(Now)
If arrSlutterDato(2) - Year(Now) >= 0 then
SlutAar = arrSlutterDato(2) - Year(Now)
End if
End if
End if
SlutTimer = arrSlutterTid(0) - Hour(Now)
SlutMinutter = arrSlutterTid(1) - Minute(Now)
If SlutMinutter < 0 then
SlutMinutter = SlutMinutter + 60
SlutTimer = SlutTimer - 1
End if
If SlutTimer < 0 then
SlutMinutter = SlutMinutter + 24
SlutDage = SlutDage - 1
End if
If SlutAar > 0 OR SlutMdr > 0 OR SlutDage > 0 OR SlutTimer > 0 OR SlutMinutter > 0 then
Response.write "Om "
If SlutAar > 0 then
Response.write SlutAar & " år "
End if
If SlutMdr > 0 then
Response.write SlutMdr & " måneder "
End if
If SlutDage > 0 then
Response.write SlutDage & " dage "
End if
If SlutTimer > 0 then
Response.write SlutTimer & " timer "
End if
If SlutMinutter > 0 then
Response.write SlutMinutter & " minutter "
End if
Else
strSQL2 = "Update Auktioner set "
strSQL2 = strSQL2 & "Slut= '1' "
strSQL2 = strSQL2 & " Where Id = " & Id
Conn.Execute(strSQL2)
Response.write "<b>Denne auktion er netop sluttet</b>"
End if
Response.write "</td>"
Response.write "</tr>"
End if
rs2.MoveNext
Loop while NOT rs2.EOF
Response.write "</table>"
Else
Response.write "Du har endnu ingen bud på en auktion...<br><br>"
Response.write "<a href='default.asp?site=" & request.querystring("site") & "&DinSide=FAQ'>Hvordan byder man på en auktion?</a><br>"
Response.write "<a href='default.asp?site=" & request.querystring("site") & "&DinSide=FAQ&Show=AdminSpg'>Jeg har budt på auktioner tidligere?</a><br>"
End if
Elseif request.querystring("Show") = "AktiveBud" then
strSQL2 = "Select * from VareBud where Byder = '" & session("MemberId") & "::" & session("Member") & "'"
Set rs2 = Conn.Execute(strSQL2)
If NOT rs2.EOF then
Response.write "<table style='width:100%;'>"
Response.write "<tr style='background-color:#77ADFF; color:#FFFFFF;'>"
Response.write "<td>"
Response.write " "
Response.write "</td>"
Response.write "<td>"
Response.write "Auktionsvare"
Response.write "</td>"
Response.write "<td>"
Response.write "Bud"
Response.write "</td>"
Response.write "<td>"
Response.write "Pris"
Response.write "</td>"
Response.write "<td>"
Response.write "Slutter"
Response.write "</td>"
Response.write "</tr>"
Do
Index = 0
strSQL = "Select * from Auktioner where Id = " & rs2("FraId") & " AND Slut = '0'"
Set rs = Conn.Execute(strSQL)
If NOT rs.EOF then
Id = rs("Id")
Billed = rs("Billed")
If BackgroundColor = "FFFFFF" then
BackgroundColor = "77ADFF"
Color = "FFFFFF"
Else
BackgroundColor = "FFFFFF"
Color = "77ADFF"
End if
Response.write "<tr style='background-color:#" & BackgroundColor & "; color:#" & Color & ";'>"
Response.write "<td>"
If Billed <> "N" then
Response.write "<img src='http://" & Billed & "' style='width:80px;'>"
End if
Response.write "</td>"
Response.write "<td>"
Response.write "<a href='default.asp?site=Auktioner&Auktion=" & Id & "'>" & rs("Vare") & "</a>"
Response.write "</td>"
Response.write "<td>"
Pris = rs("Pris")
strSQL = "Select * from VareBud where FraId = '" & Id & "'"
Set rs3 = Conn.Execute(strSQL)
Bud = 0
If NOT rs3.EOF then
Do
Bud = Bud + 1
Pris = Pris + Int(rs3("Bud"))
rs3.MoveNext
Loop while NOT rs3.EOF
End if
Response.write Bud
Response.write "</td>"
Response.write "<td>"
Response.write Pris & ",-"
Response.write "</td>"
Response.write "<td>"
arrSlutter = Split(rs("Slutter")," ")
arrSlutterTid = Split(arrSlutter(1),":")
arrSlutterDato = Split(arrSlutter(0),"-")
If arrSlutterDato(1) = 1 then
SlutterMaaned = "Januar"
Elseif arrSlutterDato(1) = 2 then
SlutterMaaned = "Februar"
Elseif arrSlutterDato(1) = 3 then
SlutterMaaned = "Marts"
Elseif arrSlutterDato(1) = 4 then
SlutterMaaned = "April"
Elseif arrSlutterDato(1) = 5 then
SlutterMaaned = "Maj"
Elseif arrSlutterDato(1) = 6 then
SlutterMaaned = "Juni"
Elseif arrSlutterDato(1) = 7 then
SlutterMaaned = "Juli"
Elseif arrSlutterDato(1) = 8 then
SlutterMaaned = "August"
Elseif arrSlutterDato(1) = 9 then
SlutterMaaned = "September"
Elseif arrSlutterDato(1) = 10 then
SlutterMaaned = "Oktober"
Elseif arrSlutterDato(1) = 11 then
SlutterMaaned = "November"
Elseif arrSlutterDato(1) = 12 then
SlutterMaaned = "December"
End if
Response.write arrSlutterDato(0) & ". " & SlutterMaaned & " " & arrSlutterDato(2) & " " & arrSlutter(1) & "<br>"
SlutDage = Null
SlutMdr = Null
SlutAar = Null
If arrSlutterDato(0) - Day(Now) >= 0 then
SlutDage = arrSlutterDato(0) - Day(Now)
If arrSlutterDato(1) - Month(Now) >= 0 then
SlutMdr = arrSlutterDato(1) - Month(Now)
If arrSlutterDato(2) - Year(Now) >= 0 then
SlutAar = arrSlutterDato(2) - Year(Now)
End if
End if
End if
SlutTimer = arrSlutterTid(0) - Hour(Now)
SlutMinutter = arrSlutterTid(1) - Minute(Now)
If SlutMinutter < 0 then
SlutMinutter = SlutMinutter + 60
SlutTimer = SlutTimer - 1
End if
If SlutTimer < 0 then
SlutMinutter = SlutMinutter + 24
SlutDage = SlutDage - 1
End if
If SlutAar > 0 OR SlutMdr > 0 OR SlutDage > 0 OR SlutTimer > 0 OR SlutMinutter > 0 then
Response.write "Om "
If SlutAar > 0 then
Response.write SlutAar & " år "
End if
If SlutMdr > 0 then
Response.write SlutMdr & " måneder "
End if
If SlutDage > 0 then
Response.write SlutDage & " dage "
End if
If SlutTimer > 0 then
Response.write SlutTimer & " timer "
End if
If SlutMinutter > 0 then
Response.write SlutMinutter & " minutter "
End if
Else
strSQL2 = "Update Auktioner set "
strSQL2 = strSQL2 & "Slut= '1' "
strSQL2 = strSQL2 & " Where Id = " & Id
Conn.Execute(strSQL2)
Response.write "<b>Denne auktion er netop sluttet</b>"
End if
Response.write "</td>"
Response.write "</tr>"
End if
rs2.MoveNext
Loop while NOT rs2.EOF
Response.write "</table>"
Else
Response.write "Du har endnu ingen bud på en auktion...<br><br>"
Response.write "<a href='default.asp?site=" & request.querystring("site") & "&DinSide=FAQ'>Hvordan byder man på en auktion?</a><br>"
Response.write "<a href='default.asp?site=" & request.querystring("site") & "&DinSide=FAQ&Show=AdminSpg'>Jeg har budt på auktioner tidligere?</a><br>"
End if
Elseif request.querystring("Show") = "BudHistorik" then
strSQL = "Select * from VareBud where Byder = '" & session("MemberId") & "::" & session("Member") & "'"
Set rs = Conn.Execute(strSQL)
If NOT rs.EOF then
AntalBud = 0
FoersteBud = rs("Dato")
StoersteBud = 0
MindsteBud = 10000
SamledeBud = 0
Do
Bud = rs("Bud")
AntalBud = AntalBud + 1
SamledeBud = SamledeBud + Int(Bud)
SenesteBud = rs("Dato")
If StoersteBud < Bud then
StoersteBud = Bud
End if
If MindsteBud > Bud then
MindsteBud = Bud
End if
SidsteBud = rs("Dato")
rs.MoveNext
Loop while NOT rs.EOF
Response.write "<table style='width:100%;'>"
Response.write "<tr>"
Response.write "<td style='text-align:right; width:25%;'>"
Response.write "Antal bud: "
Response.write "</td>"
Response.write "<td>"
Response.write AntalBud
Response.write "</td>"
Response.write "</tr>"
Response.write "<tr>"
Response.write "<td style='text-align:right; width:25%;'>"
Response.write "Første bud: "
Response.write "</td>"
Response.write "<td>"
Response.write FoersteBud
Response.write "</td>"
Response.write "</tr>"
Response.write "<tr>"
Response.write "<td style='text-align:right; width:25%;'>"
Response.write "Seneste bud: "
Response.write "</td>"
Response.write "<td>"
Response.write SenesteBud
Response.write "</td>"
Response.write "</tr>"
Response.write "<tr>"
Response.write "<td style='text-align:right; width:25%;'>"
Response.write "Største bud: "
Response.write "</td>"
Response.write "<td>"
Response.write StoersteBud & ",-"
Response.write "</td>"
Response.write "</tr>"
Response.write "<tr>"
Response.write "<td style='text-align:right; width:25%;'>"
Response.write "Mindste bud: "
Response.write "</td>"
Response.write "<td>"
Response.write MindsteBud & ",-"
Response.write "</td>"
Response.write "</tr>"
Response.write "<tr>"
Response.write "<td style='text-align:right; width:25%;'>"
Response.write "Samlede bud: "
Response.write "</td>"
Response.write "<td>"
Response.write SamledeBud & ",-"
Response.write "</td>"
Response.write "</tr>"
Response.write "</table>"
Else
Response.write "Du har endnu ingen bud på en auktion...<br><br>"
Response.write "<a href='default.asp?site=" & request.querystring("site") & "&DinSide=FAQ'>Hvordan byder man på en auktion?</a><br>"
Response.write "<a href='default.asp?site=" & request.querystring("site") & "&DinSide=FAQ&Show=AdminSpg'>Jeg har budt på auktioner tidligere?</a><br>"
End if
Elseif request.querystring("Show") = "Uafsluttede" then
Response.write "Auktioner med dig som højeste byder, der ikke er slut endnu<br>"
strSQL = "Select * from VareBud where Byder = '" & Session("MemberId") & "::" & Session("Member") & "' order by Id desc"
Set rs = Conn.Execute(strSQL)
If NOT rs.EOF then
Response.write "<table style='width:100%;'>"
Response.write "<tr style='background-color:#77ADFF; color:#FFFFFF;'>"
Response.write "<td>"
Response.write " "
Response.write "</td>"
Response.write "<td>"
Response.write "Auktionsvare"
Response.write "</td>"
Response.write "<td>"
Response.write "Bud"
Response.write "</td>"
Response.write "<td>"
Response.write "Pris"
Response.write "</td>"
Response.write "<td>"
Response.write "Slutter"
Response.write "</td>"
Response.write "</tr>"
Do
FraId = rs("FraId")
If Replace(FraIdOld,FraId,"") = FraIdOld then
FraIdOld = FraIdOld & "::" & FraId
strSQL2 = "Select * from Auktioner where Id = " & FraId & " AND Slut = '0'"
Set rs2 = Conn.Execute(strSQL2)
If NOT rs2.EOF then
Id = rs2("Id")
Billed = rs2("Billed")
If BackgroundColor = "FFFFFF" then
BackgroundColor = "77ADFF"
Color = "FFFFFF"
Else
BackgroundColor = "FFFFFF"
Color = "77ADFF"
End if
Response.write "<tr style='background-color:#" & BackgroundColor & "; color:#" & Color & ";'>"
Response.write "<td>"
If Billed <> "N" then
Response.write "<img src='http://" & Billed & "' style='width:80px;'>"
End if
Response.write "</td>"
Response.write "<td>"
Response.write "<a href='default.asp?site=Auktioner&Auktion=" & Id & "'>" & rs2("Vare") & "</a>"
Response.write "</td>"
Response.write "<td>"
Pris = rs2("Pris")
strSQL = "Select * from VareBud where FraId = '" & Id & "'"
Set rs3 = Conn.Execute(strSQL)
Bud = 0
If NOT rs3.EOF then
Do
Bud = Bud + 1
Pris = Pris + Int(rs3("Bud"))
rs3.MoveNext
Loop while NOT rs3.EOF
End if
Response.write Bud
Response.write "</td>"
Response.write "<td>"
Response.write Pris & ",-"
Response.write "</td>"
Response.write "<td>"
arrSlutter = Split(rs2("Slutter")," ")
arrSlutterTid = Split(arrSlutter(1),":")
arrSlutterDato = Split(arrSlutter(0),"-")
If arrSlutterDato(1) = 1 then
SlutterMaaned = "Januar"
Elseif arrSlutterDato(1) = 2 then
SlutterMaaned = "Februar"
Elseif arrSlutterDato(1) = 3 then
SlutterMaaned = "Marts"
Elseif arrSlutterDato(1) = 4 then
SlutterMaaned = "April"
Elseif arrSlutterDato(1) = 5 then
SlutterMaaned = "Maj"
Elseif arrSlutterDato(1) = 6 then
SlutterMaaned = "Juni"
Elseif arrSlutterDato(1) = 7 then
SlutterMaaned = "Juli"
Elseif arrSlutterDato(1) = 8 then
SlutterMaaned = "August"
Elseif arrSlutterDato(1) = 9 then
SlutterMaaned = "September"
Elseif arrSlutterDato(1) = 10 then
SlutterMaaned = "Oktober"
Elseif arrSlutterDato(1) = 11 then
SlutterMaaned = "November"
Elseif arrSlutterDato(1) = 12 then
SlutterMaaned = "December"
End if
Response.write arrSlutterDato(0) & ". " & SlutterMaaned & " " & arrSlutterDato(2) & " " & arrSlutter(1) & "<br>"
SlutDage = Null
SlutMdr = Null
SlutAar = Null
If arrSlutterDato(0) - Day(Now) >= 0 then
SlutDage = arrSlutterDato(0) - Day(Now)
If arrSlutterDato(1) - Month(Now) >= 0 then
SlutMdr = arrSlutterDato(1) - Month(Now)
If arrSlutterDato(2) - Year(Now) >= 0 then
SlutAar = arrSlutterDato(2) - Year(Now)
End if
End if
End if
SlutTimer = arrSlutterTid(0) - Hour(Now)
SlutMinutter = arrSlutterTid(1) - Minute(Now)
If SlutMinutter < 0 then
SlutMinutter = SlutMinutter + 60
SlutTimer = SlutTimer - 1
End if
If SlutTimer < 0 then
SlutMinutter = SlutMinutter + 24
SlutDage = SlutDage - 1
End if
If SlutAar > 0 OR SlutMdr > 0 OR SlutDage > 0 OR SlutTimer > 0 OR SlutMinutter > 0 then
Response.write "Om "
If SlutAar > 0 then
Response.write SlutAar & " år "
End if
If SlutMdr > 0 then
Response.write SlutMdr & " måneder "
End if
If SlutDage > 0 then
Response.write SlutDage & " dage "
End if
If SlutTimer > 0 then
Response.write SlutTimer & " timer "
End if
If SlutMinutter > 0 then
Response.write SlutMinutter & " minutter "
End if
Else
strSQL2 = "Update Auktioner set "
strSQL2 = strSQL2 & "Slut= '1' "
strSQL2 = strSQL2 & " Where Id = " & Id
Conn.Execute(strSQL2)
Response.write "<b>Denne auktion er netop sluttet</b>"
End if
Response.write "</td>"
Response.write "</tr>"
End if
End if
rs.MoveNext
Loop while NOT rs.EOF
Response.write "</table>"
Else
Response.write "Du har endnu ingen bud på en auktion...<br><br>"
Response.write "<a href='default.asp?site=" & request.querystring("site") & "&DinSide=FAQ'>Hvordan byder man på en auktion?</a><br>"
Response.write "<a href='default.asp?site=" & request.querystring("site") & "&DinSide=FAQ&Show=AdminSpg'>Jeg har budt på auktioner tidligere?</a><br>"
End if
Response.write "<br><br><hr><br>Auktioner vundet af dig, hvor betaling ikke har fundet sted eller ikke er blevet registreret."
strSQL = "Select * from Varebud where Byder = '" & Session("MemberId") & "::" & Session("Member") & "'"
Set rs = Conn.Execute(strSQL)
If NOT rs.EOF then
OldId = 0
Response.write "<table style='width:100%;'>"
Response.write "<tr style='background-color:#77ADFF; color:#FFFFFF;'>"
Response.write "<td>"
Response.write " "
Response.write "</td>"
Response.write "<td>"
Response.write "Auktionsvare"
Response.write "</td>"
Response.write "<td>"
Response.write "Slutpris"
Response.write "</td>"
Response.write "</tr>"
Do
strSQL2 = "Select * from Auktioner where Slut = '1' AND Betalt = '0' AND Id = " & rs("FraId") & " AND Id <> " & OldId
Set rs2 = Conn.Execute(strSQL2)
If NOT rs2.EOF then
Id = rs2("Id")
OldId = Id
Billed = rs2("Billed")
If BackgroundColor = "FFFFFF" then
BackgroundColor = "77ADFF"
Color = "FFFFFF"
Else
BackgroundColor = "FFFFFF"
Color = "77ADFF"
End if
Response.write "<tr style='background-color:#" & BackgroundColor & "; color:#" & Color & ";'>"
Response.write "<td>"
If Billed <> "N" then
Response.write "<img src='http://" & Billed & "' style='width:80px;'>"
End if
Response.write "</td>"
Response.write "<td>"
Response.write "<a href='default.asp?site=Auktioner&Auktion=" & Id & "'>" & rs2("Vare") & "</a>"
Response.write "</td>"
Response.write "<td>"
Pris = rs2("Pris")
strSQL = "Select * from VareBud where FraId = '" & Id & "'"
Set rs3 = Conn.Execute(strSQL)
Bud = 0
If NOT rs3.EOF then
Do
Bud = Bud + 1
Pris = Pris + Int(rs3("Bud"))
rs3.MoveNext
Loop while NOT rs3.EOF
End if
Response.write Pris & ",-"
Response.write "</td>"
Response.write "</tr>"
End if
rs.MoveNext
Loop while NOT rs.EOF
Response.write "</table>"
End if
Response.write "<br><br><hr><br>Auktioner vundet af dig, hvor du mangler at give sælger karakter."
strSQL = "Select * from Varebud where Byder = '" & Session("MemberId") & "::" & Session("Member") & "'"
Set rs = Conn.Execute(strSQL)
If NOT rs.EOF then
OldId = 0
Response.write "<table style='width:100%;'>"
Response.write "<tr style='background-color:#77ADFF; color:#FFFFFF;'>"
Response.write "<td>"
Response.write " "
Response.write "</td>"
Response.write "<td>"
Response.write "Auktionsvare"
Response.write "</td>"
Response.write "<td>"
Response.write "Sælger"
Response.write "</td>"
Response.write "</tr>"
Do
strSQL2 = "Select * from Auktioner where Slut = '1' AND Betalt = '0' AND Id = " & rs("FraId") & " AND Id <> " & OldId
Set rs2 = Conn.Execute(strSQL2)
If NOT rs2.EOF then
Id = rs2("Id")
OldId = Id
Billed = rs2("Billed")
Saelger = rs2("Saelger")
If BackgroundColor = "FFFFFF" then
BackgroundColor = "77ADFF"
Color = "FFFFFF"
Else
BackgroundColor = "FFFFFF"
Color = "77ADFF"
End if
Response.write "<tr style='background-color:#" & BackgroundColor & "; color:#" & Color & ";'>"
Response.write "<td>"
If Billed <> "N" then
Response.write "<img src='http://" & Billed & "' style='width:80px;'>"
End if
Response.write "</td>"
Response.write "<td>"
Response.write "<a href='default.asp?site=Auktioner&Auktion=" & Id & "'>" & rs2("Vare") & "</a>"
Response.write "</td>"
Response.write "<td>"
strSQL3 = "Select * from Members where Brugernavn = '" & Saelger & "'"
Set rs3 = Conn.Execute(strSQL3)
If NOT rs3.EOF then
Do
Id = rs3("Id")
Response.write "<a href='default.asp?site=Brugere&Id=" & Id & "'>" & rs3("Brugernavn") & "</