Søg
Avatar billede 0ffline Nybegynder
07. maj 2004 - 21:59 Der er 8 kommentarer og
3 løsninger

if then problem

Hej

Hvordan hulen slipper man af med at den oprindelige side vises overi ( eller under) de andre 'sider' når man har opbygget
en helt side med if then.
Er der en ala if then som gør at den oprindelige side udelukkende vises når der ikke er trykket på nogen actionknap.

Det er ski svært at formulerer....

Et eksempel...
<%
<html><head></head>
<body>blah blah
<input type='submit' value='Tilsend' name='ActionA'>
</body></html>

If Request.Form("ActionA") = "Tilsend" Then

<html><head></head>
<body>blah blah
<input type='submit' value='Tilsend' name='ActionB'>
</body></html>
End If

If Request.Form("ActionB") = "Tilsend" Then

etc etc etc

Meget forenklet, men jeg håber I forstå c",)
Avatar billede jpvj Nybegynder
07. maj 2004 - 22:16 #1
Du tester blot på, om der er submittet eller ej. Hvis der er, så udskriver du IKKE din "hovedside"/oprindelige side.
Avatar billede ellebaek Nybegynder
07. maj 2004 - 22:19 #2
<%
<html><head></head>
<body>blah blah
<input type='submit' value='Tilsend' name='ActionA'>
</body></html>

If Request.Form("ActionA") = "Tilsend" Then

<html><head></head>
<body>blah blah
<input type='submit' value='Tilsend' name='ActionB'>
</body></html>

ElseIf Request.Form("ActionB") = "Tilsend" Then

Else
hovedside

end if
Sådan her
Avatar billede jpvj Nybegynder
07. maj 2004 - 22:19 #3
Noget i denne stil..

<%
If Request.Form("ActionA") = "Tilsend" Then
%>
<html><head></head>
<body>blah blah
<input type='submit' value='Tilsend' name='ActionB'>
</body></html>
<%
else
%>
If Request.Form("ActionB") = "Tilsend" Then
...
<%
else
%>
<html><head></head>
<body>blah blah
<input type='submit' value='Tilsend' name='ActionA'>
</body></html>
<%
end if
%>

Kan dog laves pænere med en switch struktur.
Avatar billede jpvj Nybegynder
07. maj 2004 - 22:20 #4
Mangler nok en "end if" :-)
Avatar billede ellebaek Nybegynder
07. maj 2004 - 22:21 #5
Det skal da være:

<%
If Request.Form("ActionA") = "Tilsend" Then

<html><head></head>
<body>blah blah
<input type='submit' value='Tilsend' name='ActionB'>
</body></html>

ElseIf Request.Form("ActionB") = "Tilsend" Then
...
Else
%>
<html><head></head>
<body>blah blah
<input type='submit' value='Tilsend' name='ActionA'>
</body></html>
<% end if %>
Avatar billede ellebaek Nybegynder
07. maj 2004 - 22:22 #6
eller dvs. at det er ikke den store forskel, men det er pænere og mere servervenligt at benytte en lang if, hvor du så bruger elseIF i stedet for

if then
else
if then
else
end if
end if
Avatar billede 0ffline Nybegynder
08. maj 2004 - 13:01 #7
Gode svar, men jeg kan desværre stadig ikke få det til at fungerer korrekt.
Når jeg laver det som nedenstående viser den fint nok siden, men den viser altid default uanset hvad der trykkes på ........
Hvis I kan redde mig udaf denne ved at gennemkigge dette l a a a n g e rod, skal jeg nok hæve points
...........................
<script language="javascript">   
ns4 = (document.layers)? true:false
ie4 = (document.all)? true:false
ie5 =(document.getElementById)? true:false
ns6 = (document.getElementById && !document.all)?true:false;

function over(id){
var styleObj = (ns4)? document.layers[id] : (ie4)? document.all[id].style : document.getElementById(id).style;
styleObj.visibility = "visible";

}

function ud(id){
var styleObj = (ns4)? document.layers[id] : (ie4)? document.all[id].style : document.getElementById(id).style;
styleObj.visibility = "hidden";

}

</script>

<script language="javascript" type="text/javascript">
function nu(obj, vis){
if (obj.checked)
    showlayer(vis)
else
document.getElementById(vis).style.display = 'none'
}
function showlayer(layername) {
    l = document.getElementsByTagName('SPAN');
    for(i=0;l.length>i;i++)l[i].style.display='none';
    document.getElementById(layername).style.display = 'block';
}
</script>
<%
            ' Skjult layer med login oplysninger til afsendelse

RESPONSE.WRITE"<div id='weblag' name='weblag' style='  position: absolute; left:50; top:220; width: 240; height:321; z-index: 12; visibility: hidden; display:block;'>"
RESPONSE.WRITE"<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=240>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=2 WIDTH=240 HEIGHT=25>- Manglende login oplysninger &oslash;nskes pr.</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=120 HEIGHT=22><form name='formen' style='display:inline'>&nbsp; Email <input type='radio' name='r' onFocus='if (this.blur) this.blur();' onclick='nu(this, 'layer1')'></TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=120 HEIGHT=22> Telefon <input type='radio' name='r' onFocus='if (this.blur) this.blur();' onclick='nu(this, 'layer2')'></form></TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"</TABLE>"
RESPONSE.WRITE"<span id='layer1' style='display:none;'>"
RESPONSE.WRITE"<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=240>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=100 HEIGHT=22>&nbsp; Dit Navn:<form action='default.asp' method='POST' style='display:inline'></TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=140 HEIGHT=22><input type='text' class='form100' name='Brugernavn'></TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=100 HEIGHT=22>&nbsp; Afdeling:</TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=140 HEIGHT=22><select name='Afdeling' size='1' class='forms'><option value='Træafdeling'>Administration</option><option value='Træafdeling'>Træafdeling</option><option value='Stålafdeling'>Stålafdeling</option></select></TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=100 HEIGHT=22>&nbsp; Email:</TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=140 HEIGHT=22><input type='text' class='form100' name='Kontaktmig'></TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=2 WIDTH=240 HEIGHT=25 align='center'><input type='submit' value='Kontakt mig venligst' class='bluebutton' name='Action7'></form></TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"</TABLE></span>"
RESPONSE.WRITE"<span id='layer2' style='display:none;'>"
RESPONSE.WRITE"<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=240>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=100 HEIGHT=22>&nbsp; Dit Navn:<form action='default.asp' method='POST' style='display:inline'></TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=140 HEIGHT=22><input type='text' class='form100' name='Brugernavn'></TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=100 HEIGHT=22>&nbsp; Afdeling:</TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=140 HEIGHT=22><select name='Afdeling' size='1' class='forms'><option value='Træafdeling'>Administration</option><option value='Træafdeling'>Træafdeling</option><option value='Stålafdeling'>Stålafdeling</option></select></TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=100 HEIGHT=22>&nbsp; Telefon:</TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=140 HEIGHT=22><input type='text' class='form100' name='Kontaktmig'></TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=2 WIDTH=240 HEIGHT=25 align='center'><input type='submit' value='Kontakt mig venligst' class='bluebutton' name='Action7'></form></TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"</TABLE></span>"
RESPONSE.WRITE"</div>"

            ' Afsendelse af forespørgelse på login oplysningerne

If Request.Form("Action7") = "Kontakt mig venligst" Then

  phonemail = Request.Form("Kontaktmig")
  fornavn = Request.Form("Brugernavn")


Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ContentType = "text/html"
JMail.ServerAddress = "mail.smask.info"
JMail.Priority = 1
JMail.Sender = "mailrobot@smask.info"
JMail.SenderName = "S.M.A.S.K"
JMail.AddRecipientEx "admin@smask.info", "Bente Thompson"
JMail.Subject = "Manglende login oplysninger"
JMail.Body = JMail.Body & "Hej<br>"
JMail.Body = JMail.Body & "Kan du hjælpe mig med nogle login oplysninger.<br>"
JMail.Body = JMail.Body & "Du kan kontakte mig på <b>" & phonemail &"</b><br>"
JMail.Body = JMail.Body & "Med venlig hilsen<br><B>" & fornavn &"</B>"
JMail.Execute
Set JMail = Nothing
RESPONSE.WRITE"<HTML>"
RESPONSE.WRITE"<HEAD>"
RESPONSE.WRITE"<TITLE>S.M.A.S.K - Svejbaek Medarbejdernes Fritids & Sports Klub</TITLE>"
RESPONSE.WRITE"<META http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>"
RESPONSE.WRITE"<link rel='stylesheet' href='styles/smaskstyle.css' type='text/css'>"
RESPONSE.WRITE"</HEAD>"
RESPONSE.WRITE"<BODY BGCOLOR='#FFFFFF'>"
RESPONSE.WRITE"<div id='frontimage' class='smasker'>"
RESPONSE.WRITE"<IMG SRC='smasksgfx/smasker.gif' WIDTH=85 HEIGHT=127 BORDER=0 >"
RESPONSE.WRITE"</div>"
RESPONSE.WRITE"<div id='frontinfo' class='svejbaekinfo'>"
RESPONSE.WRITE"<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=360 CLASS='whitetable'>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=3 WIDTH=360 HEIGHT=126 class='greentext'><div align='center'><B>Velkommen hos SIS learnings personaleforening</B></div><div class='smaller'><B>~ S</B>vejbaek <B>M</B>edarbejdernes <B>A</B>ktivitets & <B>S</B>ports <B>K</B>lub <B>~</B></div>"
RESPONSE.WRITE"<HR CLASS='bluehr'>S.M.A.S.K arrangerer med j&aelig;vne mellemrum events af vidt forskellige karakterer, s&aring;ledes at mange interesser tilgodeses.<br>Det v&aelig;re sig indenfor b&aring;de sport, fritid og kultur s&aring;vel som faglige aktiviteter.<br>Her p&aring; siden kan <I>medlemmerne</I> l&oslash;bende f&oslash;lge med i, hvad der sker i foreningen og meget andet.<br><br>"
RESPONSE.WRITE"</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"</TABLE>"
RESPONSE.WRITE"</div>"
RESPONSE.WRITE"<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=320 class='blacktable'>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=2 WIDTH=267 HEIGHT=65><IMG SRC='smasksgfx/hlsmask.png' WIDTH=267 HEIGHT=65 BORDER=0 ></TD>"
RESPONSE.WRITE"<TD ROWSPAN=2 COLSPAN=1 WIDTH=53 HEIGHT=194><IMG SRC='smasksgfx/hlinfo.png' WIDTH=53 HEIGHT=194 BORDER=0 ></TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=26 HEIGHT=129>&nbsp;</TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=241 HEIGHT=129>"
RESPONSE.WRITE"<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=240 HEIGHT=128>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=2 WIDTH=240 HEIGHT=5 class='nonewhite'>&nbsp;</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=2 WIDTH=240 HEIGHT=66>Du vil blive kontaktet hurtigst muligt! !<br><br></TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=2 WIDTH=240 HEIGHT=5 class='nonewhite'>&nbsp;</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=108 HEIGHT=20>&nbsp;</TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=132 HEIGHT=20>&nbsp;</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=2 WIDTH=240 HEIGHT=5 class='nonewhite'>&nbsp;</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=108 HEIGHT=27>&nbsp;</TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=132 HEIGHT=27 class='nonewhite'>&nbsp;</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"</TABLE>"
RESPONSE.WRITE"</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"</TABLE>"
RESPONSE.WRITE"<div id='frontpage' class='frontpage'>"
RESPONSE.WRITE"<a href='default.asp' target='_parent' onFocus='if (this.blur) this.blur();' class='smallblue'><< Til forsiden</a></span>"
RESPONSE.WRITE"</div>"
RESPONSE.WRITE"<div id='frontpage' class='frontpage'>"
RESPONSE.WRITE"<a href='default.asp' target='_parent' onFocus='if (this.blur) this.blur();' class='smallblue'><< Til forsiden</a></span>"
RESPONSE.WRITE"</div>"



            ' Layer indeholdende Password Reminder ... ikke genkendt email

elseIf Request.Form("ActionA") = "Tilsend" Then

Set myConn = Server.CreateObject("ADODB.Connection")
myConn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("db/smask.mdb")
strSQL = ("SELECT * FROM smask_members WHERE email = '" & Request("Eadresse") & "'")
Set rs = myConn.Execute(strSQL)
if rs.EOF then
RESPONSE.WRITE"<HTML>"
RESPONSE.WRITE"<HEAD>"
RESPONSE.WRITE"<TITLE>S.M.A.S.K - Svejbaek Medarbejdernes Fritids & Sports Klub</TITLE>"
RESPONSE.WRITE"<META http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>"
RESPONSE.WRITE"<link rel='stylesheet' href='styles/smaskstyle.css' type='text/css'>"
RESPONSE.WRITE"</HEAD>"
RESPONSE.WRITE"<BODY BGCOLOR='#FFFFFF'>"
RESPONSE.WRITE"<div id='frontimage' class='smasker'>"
RESPONSE.WRITE"<IMG SRC='smasksgfx/smasker.gif' WIDTH=85 HEIGHT=127 BORDER=0 >"
RESPONSE.WRITE"</div>"
RESPONSE.WRITE"<div id='frontinfo' class='svejbaekinfo'>"
RESPONSE.WRITE"<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=360 CLASS='whitetable'>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=3 WIDTH=360 HEIGHT=126 class='greentext'><div align='center'><B>Velkommen hos SIS learnings personaleforening</B></div><div class='smaller'><B>~ S</B>vejbaek <B>M</B>edarbejdernes <B>A</B>ktivitets & <B>S</B>ports <B>K</B>lub <B>~</B></div>"
RESPONSE.WRITE"<HR CLASS='bluehr'>S.M.A.S.K arrangerer med j&aelig;vne mellemrum events af vidt forskellige karakterer, s&aring;ledes at mange interesser tilgodeses.<br>Det v&aelig;re sig indenfor b&aring;de sport, fritid og kultur s&aring;vel som faglige aktiviteter.<br>Her p&aring; siden kan <I>medlemmerne</I> l&oslash;bende f&oslash;lge med i, hvad der sker i foreningen og meget andet.<br><br>"
RESPONSE.WRITE"</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"</TABLE>"
RESPONSE.WRITE"</div>"
RESPONSE.WRITE"<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=320 class='blacktable'>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=2 WIDTH=267 HEIGHT=65><IMG SRC='smasksgfx/hlsmask.png' WIDTH=267 HEIGHT=65 BORDER=0 ></TD>"
RESPONSE.WRITE"<TD ROWSPAN=2 COLSPAN=1 WIDTH=53 HEIGHT=194><IMG SRC='smasksgfx/hlinfo.png' WIDTH=53 HEIGHT=194 BORDER=0 ></TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=26 HEIGHT=129>&nbsp;</TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=241 HEIGHT=129>"
RESPONSE.WRITE"<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=240 HEIGHT=128>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=2 WIDTH=240 HEIGHT=5 class='nonewhite'>&nbsp;</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=2 WIDTH=240 HEIGHT=66>Databasen genkendte ikke skrevne email.<br>Check om du skulle have skrevet forkert!<div class='smallred'>Ellers, kontakt Webmaster for Adgangskode *</div><br></TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=2 WIDTH=240 HEIGHT=5 class='nonewhite'>&nbsp;<form action='default.asp' method='POST' style='display:inline'></TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=108 HEIGHT=20>Skriv din Email:</TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=132 HEIGHT=20><input type='text' class='forms' name='Eadresse'></TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=2 WIDTH=240 HEIGHT=5 class='nonewhite'>&nbsp;</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=108 HEIGHT=27><input type='submit' value='Tilsend' class='bluebutton' name='ActionA'></form></TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=132 HEIGHT=27 class='nonewhite'>&nbsp;</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"</TABLE>"
RESPONSE.WRITE"</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"</TABLE>"
RESPONSE.WRITE"<div id='frontcontact' class='webmaster'>"
RESPONSE.WRITE"<a href='#'  onClick=""over('weblag')"" onFocus='if (this.blur) this.blur();' class='smallblue'>* Webmaster</a></span>"
RESPONSE.WRITE"</div>"
RESPONSE.WRITE"<div id='frontpage' class='frontpage'>"
RESPONSE.WRITE"<a href='default.asp' target='_parent' onFocus='if (this.blur) this.blur();' class='smallblue'><< Til forsiden</a></span>"
RESPONSE.WRITE"</div>"

else

            ' Password Reminder med genkendt og afsendt login oplysninger

Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ContentType = "text/html"
JMail.ServerAddress = "mail.smask.info"
JMail.Priority = 1
JMail.Sender = "mailrobot@smask.info"
JMail.SenderName = "S.M.A.S.K_Password_Reminder"
JMail.AddRecipientEx "" & rs("email") & "", "" & rs("username") & ""
JMail.Subject = "Glemt password"
JMail.Body = JMail.Body & "Hej  "& rs("username") &"<br>"
JMail.Body = JMail.Body &"Jeg har været vores database igennem, og faldt over dette" &"<br>"
JMail.Body = JMail.Body & "Dit password er: <b>" & rs("userid") &"</b><br>"
JMail.Body = JMail.Body & "Dit id er: <b>" & rs("id") &"</b><br>"
JMail.Body = JMail.Body & "Med venlig hilsen " &"<br>"
JMail.Body = JMail.Body &" &nbsp; &nbsp; &nbsp;<I>S.M.A.S.K_Password_Reminder</I>" &"<br>"
JMail.Execute
Set JMail = Nothing
RESPONSE.WRITE"<HTML>"
RESPONSE.WRITE"<HEAD>"
RESPONSE.WRITE"<TITLE>S.M.A.S.K - Svejbaek Medarbejdernes Fritids & Sports Klub</TITLE>"
RESPONSE.WRITE"<META http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>"
RESPONSE.WRITE"<link rel='stylesheet' href='styles/smaskstyle.css' type='text/css'>"
RESPONSE.WRITE"</HEAD>"
RESPONSE.WRITE"<BODY BGCOLOR='#FFFFFF'>"
RESPONSE.WRITE"<div id='frontimage' class='smasker'>"
RESPONSE.WRITE"<IMG SRC='smasksgfx/smasker.gif' WIDTH=85 HEIGHT=127 BORDER=0 >"
RESPONSE.WRITE"</div>"
RESPONSE.WRITE"<div id='frontinfo' class='svejbaekinfo'>"
RESPONSE.WRITE"<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=360 CLASS='whitetable'>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=3 WIDTH=360 HEIGHT=126 class='greentext'><div align='center'><B>Velkommen hos SIS learnings personaleforening</B></div><div class='smaller'><B>~ S</B>vejbaek <B>M</B>edarbejdernes <B>A</B>ktivitets & <B>S</B>ports <B>K</B>lub <B>~</B></div>"
RESPONSE.WRITE"<HR CLASS='bluehr'>S.M.A.S.K arrangerer med j&aelig;vne mellemrum events af vidt forskellige karakterer, s&aring;ledes at mange interesser tilgodeses.<br>Det v&aelig;re sig indenfor b&aring;de sport, fritid og kultur s&aring;vel som faglige aktiviteter.<br>Her p&aring; siden kan <I>medlemmerne</I> l&oslash;bende f&oslash;lge med i, hvad der sker i foreningen og meget andet.<br><br>"
RESPONSE.WRITE"</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"</TABLE>"
RESPONSE.WRITE"</div>"
RESPONSE.WRITE"<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=320 class='blacktable'>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=2 WIDTH=267 HEIGHT=65><IMG SRC='smasksgfx/hlsmask.png' WIDTH=267 HEIGHT=65 BORDER=0 ></TD>"
RESPONSE.WRITE"<TD ROWSPAN=2 COLSPAN=1 WIDTH=53 HEIGHT=194><IMG SRC='smasksgfx/hlinfo.png' WIDTH=53 HEIGHT=194 BORDER=0 ></TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=26 HEIGHT=129>&nbsp;</TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=241 HEIGHT=129>"
RESPONSE.WRITE"<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=240 HEIGHT=128>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=2 WIDTH=240 HEIGHT=5 class='nonewhite'>&nbsp;</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=2 WIDTH=240 HEIGHT=66>Dine login informationer er blevet afsendt !<br><br></TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=2 WIDTH=240 HEIGHT=5 class='nonewhite'>&nbsp;</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=108 HEIGHT=20>&nbsp;</TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=132 HEIGHT=20>&nbsp;</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=2 WIDTH=240 HEIGHT=5 class='nonewhite'>&nbsp;</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=108 HEIGHT=27>&nbsp;</TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=132 HEIGHT=27 class='nonewhite'>&nbsp;</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"</TABLE>"
RESPONSE.WRITE"</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"</TABLE>"
RESPONSE.WRITE"<div id='frontpage' class='frontpage'>"
RESPONSE.WRITE"<a href='default.asp' target='_parent' onFocus='if (this.blur) this.blur();' class='smallblue'><< Til forsiden</a></span>"
RESPONSE.WRITE"</div>"

End If
            ' Password Reminder

    If Request.Form("Action3") = "JA" Then

RESPONSE.WRITE"<HTML>"
RESPONSE.WRITE"<HEAD>"
RESPONSE.WRITE"<TITLE>S.M.A.S.K - Svejbaek Medarbejdernes Fritids & Sports Klub</TITLE>"
RESPONSE.WRITE"<META http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>"
RESPONSE.WRITE"<link rel='stylesheet' href='styles/smaskstyle.css' type='text/css'>"
RESPONSE.WRITE"</HEAD>"
RESPONSE.WRITE"<BODY BGCOLOR='#FFFFFF'>"
RESPONSE.WRITE"<div id='frontimage' class='smasker'>"
RESPONSE.WRITE"<IMG SRC='smasksgfx/smasker.gif' WIDTH=85 HEIGHT=127 BORDER=0 >"
RESPONSE.WRITE"</div>"
RESPONSE.WRITE"<div id='frontinfo' class='svejbaekinfo'>"
RESPONSE.WRITE"<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=360 CLASS='whitetable'>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=3 WIDTH=360 HEIGHT=126 class='greentext'><div align='center'><B>Velkommen hos SIS learnings personaleforening</B></div><div class='smaller'><B>~ S</B>vejbaek <B>M</B>edarbejdernes <B>A</B>ktivitets & <B>S</B>ports <B>K</B>lub <B>~</B></div>"
RESPONSE.WRITE"<HR CLASS='bluehr'>S.M.A.S.K arrangerer med j&aelig;vne mellemrum events af vidt forskellige karakterer, s&aring;ledes at mange interesser tilgodeses.<br>Det v&aelig;re sig indenfor b&aring;de sport, fritid og kultur s&aring;vel som faglige aktiviteter.<br>Her p&aring; siden kan <I>medlemmerne</I> l&oslash;bende f&oslash;lge med i, hvad der sker i foreningen og meget andet.<br><br>"
RESPONSE.WRITE"</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"</TABLE>"
RESPONSE.WRITE"</div>"
RESPONSE.WRITE"<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=320 class='blacktable'>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=2 WIDTH=267 HEIGHT=65><IMG SRC='smasksgfx/hlsmask.png' WIDTH=267 HEIGHT=65 BORDER=0 ></TD>"
RESPONSE.WRITE"<TD ROWSPAN=2 COLSPAN=1 WIDTH=53 HEIGHT=194><IMG SRC='smasksgfx/hlinfo.png' WIDTH=53 HEIGHT=194 BORDER=0 ></TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=26 HEIGHT=129>&nbsp;</TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=241 HEIGHT=129>"
RESPONSE.WRITE"<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=240 HEIGHT=128>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=2 WIDTH=240 HEIGHT=5 class='nonewhite'>&nbsp;</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=2 WIDTH=240 HEIGHT=66>Har du indskrevet din email-adresse i din Profil, kan du f&aring; tilsendt din Adgangskode.<br><div class='smallred'>Ellers, kontakt Webmaster for Adgangskode *</div><br></TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=2 WIDTH=240 HEIGHT=5 class='nonewhite'>&nbsp;<form action='default.asp' method='POST' style='display:inline'></TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=108 HEIGHT=20>Skriv din Email:</TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=132 HEIGHT=20><input type='text' class='forms' name='Eadresse'></TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=2 WIDTH=240 HEIGHT=5 class='nonewhite'>&nbsp;</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=108 HEIGHT=27><input type='submit' value='Tilsend' class='bluebutton' name='ActionA'></form></TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=132 HEIGHT=27 class='nonewhite'>&nbsp;</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"</TABLE>"
RESPONSE.WRITE"</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"</TABLE>"
RESPONSE.WRITE"<div id='frontcontact' class='webmaster'>"
RESPONSE.WRITE"<a href='default.asp'  onClick=""over('weblag')"" onFocus='if (this.blur) this.blur();' class='smallblue'>* Webmaster</a></span>"
RESPONSE.WRITE"</div>"
RESPONSE.WRITE"<div id='frontpage' class='frontpage'>"
RESPONSE.WRITE"<a href='default.asp' target='_parent' onFocus='if (this.blur) this.blur();' class='smallblue'><< Til forsiden</a></span>"
RESPONSE.WRITE"</div>"




            ' Login error oplysninger

elseIf Request.Form("Action") = "Luk Op" Then

    ' Her forberedes de indtastede værdier til validering
    strUID = Trim(Replace(Request.Form("Brugernavn"),"'",""))
    strPWD = Trim(Replace(Request.Form("Adgangskode"),"'",""))
    strIDNR = Trim(Replace(Request.Form("Idnr"),"",""))




    If Len(strUID) > 0 And Len(strPWD) > 0 And Len(strIDNR) > 0 AND IsNumeric(Request.Form("Idnr")) = True Then


        Set myConn = Server.CreateObject("ADODB.Connection")
        myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/smask.mdb")


        strSQL = "SELECT username FROM smask_members"&_
            " WHERE (username = '" & strUID & "')"&_
            " AND (userid = '" & strPWD & "')"&_
            " AND (id = " & strIDNR & ")"

        Set rs = myConn.Execute(strSQL)
        If Not (rs.BOF Or rs.EOF) Then
            ' Hvis brugeren fandtes i databasen
            intUID = rs("username")
        Else

            strERR = "Fejl i login.<br><span class='nonewhite'><br><br><br></span><form action='default.asp' method='POST' style='display:inline'><span class='smallerror'><input type='submit' value='NEJ' class='bluebutton' name='NoneAction'> Glemt din Adgangskode? <input type='submit' value='JA' class='bluebutton' name='Action3'></span></form>"
        End If


        myConn.Close
        Set myConn = Nothing

        If Len(intUID) Then
            ' Hvis variablen intUID indeholder en værdi sættes denne i sessionen "UserID" og brugeren bliver sendt videre
            Session("Username") = intUID
            Session.Timeout = 45
            Response.Redirect("filter.asp")
        End If
    Else

        strErr = "Fejl i enten<br><I> Navn, id eller Kode</I>"
    End If

    If Len(strErr) > 0 Then

        strErr = "<p class='centererror'>" & strErr & "</p>"

RESPONSE.WRITE"<HTML>"
RESPONSE.WRITE"<HEAD>"
RESPONSE.WRITE"<TITLE>S.M.A.S.K - Svejbaek Medarbejdernes Fritids & Sports Klub</TITLE>"
RESPONSE.WRITE"<META http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>"
RESPONSE.WRITE"<link rel='stylesheet' href='styles/smaskstyle.css' type='text/css'>"
RESPONSE.WRITE"</HEAD>"
RESPONSE.WRITE"<BODY BGCOLOR='#FFFFFF'>"
RESPONSE.WRITE"<div id='frontimage' class='smasker2'>"
RESPONSE.WRITE"<IMG SRC='smasksgfx/smasker2.gif' WIDTH=85 HEIGHT=132 BORDER=0 >"
RESPONSE.WRITE"</div>"
RESPONSE.WRITE"<div id='frontinfo' class='svejbaekinfo'>"
RESPONSE.WRITE"<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=360 CLASS='whitetable'>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=3 WIDTH=360 HEIGHT=126 class='greentext'><div align='center'><B>Velkommen hos SIS learnings personaleforening</B></div><div class='smaller'><B>~ S</B>vejbaek <B>M</B>edarbejdernes <B>A</B>ktivitets & <B>S</B>ports <B>K</B>lub <B>~</B></div>"
RESPONSE.WRITE"<HR CLASS='bluehr'>S.M.A.S.K arrangerer med j&aelig;vne mellemrum events af vidt forskellige karakterer, s&aring;ledes at mange interesser tilgodeses.<br>Det v&aelig;re sig indenfor b&aring;de sport, fritid og kultur s&aring;vel som faglige aktiviteter.<br>Her p&aring; siden kan <I>medlemmerne</I> l&oslash;bende f&oslash;lge med i, hvad der sker i foreningen og meget andet.<br><br>"
RESPONSE.WRITE"</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"</TABLE>"
RESPONSE.WRITE"</div>"
RESPONSE.WRITE"<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=320 class='blacktable'>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=2 WIDTH=267 HEIGHT=65><IMG SRC='smasksgfx/hlsmask.png' WIDTH=267 HEIGHT=65 BORDER=0 ></TD>"
RESPONSE.WRITE"<TD ROWSPAN=2 COLSPAN=1 WIDTH=53 HEIGHT=194><IMG SRC='smasksgfx/hlinfo.png' WIDTH=53 HEIGHT=194 BORDER=0 ></TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=26 HEIGHT=129>&nbsp;</TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=241 HEIGHT=129>"
RESPONSE.WRITE"<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=241 HEIGHT=121>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=2 WIDTH=241 HEIGHT=6 class='nonewhite'>&nbsp;</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=2 WIDTH=241 HEIGHT=40>" & strErr &"</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=4 WIDTH=241 HEIGHT=4 class='nonewhite'><form action='default.asp' method='POST' style='display:inline'></TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=89 HEIGHT=22>Medlem Navn:</TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=100 HEIGHT=22><input type='text' class='form100' name='Brugernavn'></TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=20 HEIGHT=22>Id:</TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=32 HEIGHT=22><input type='text' class='formshort' name='Idnr'></TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=4 WIDTH=241 HEIGHT=5 class='nonewhite'>&nbsp;</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=89 HEIGHT=20>Adgangskode:</TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=100 HEIGHT=20><input type='password' class='form100' name='Adgangskode'></TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=20 HEIGHT=20>&nbsp;</TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=32 HEIGHT=20>&nbsp;</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=4 WIDTH=241 HEIGHT=5 class='nonewhite'>&nbsp;</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=89 HEIGHT=27><input type='submit' value='Luk Op' class='bluebutton' name='Action'></form></TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=3 WIDTH=152 HEIGHT=27 class='nonewhite'>&nbsp;</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"</TABLE>"
RESPONSE.WRITE"</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"</TABLE>"
End If
End If


Else

          ' Default side med loginbox

RESPONSE.WRITE"<HTML>"
RESPONSE.WRITE"<HEAD>"
RESPONSE.WRITE"<TITLE>S.M.A.S.K - Svejbaek Medarbejdernes Fritids & Sports Klub</TITLE>"
RESPONSE.WRITE"<META http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>"
RESPONSE.WRITE"<link rel='stylesheet' href='styles/smaskstyle.css' type='text/css'>"
RESPONSE.WRITE"</HEAD>"
RESPONSE.WRITE"<BODY BGCOLOR='#FFFFFF'>"
RESPONSE.WRITE"<div id='frontimage' class='smasker'>"
RESPONSE.WRITE"<IMG SRC='smasksgfx/smasker.gif' WIDTH=85 HEIGHT=127 BORDER=0 >"
RESPONSE.WRITE"</div>"
RESPONSE.WRITE"<div id='frontinfo' class='svejbaekinfo'>"
RESPONSE.WRITE"<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=360 CLASS='whitetable'>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=3 WIDTH=360 HEIGHT=126 class='greentext'><div align='center'><B>Velkommen hos SIS learnings personaleforening</B></div><div class='smaller'><B>~ S</B>vejbaek <B>M</B>edarbejdernes <B>A</B>ktivitets & <B>S</B>ports <B>K</B>lub <B>~</B></div>"
RESPONSE.WRITE"<HR CLASS='bluehr'>S.M.A.S.K arrangerer med j&aelig;vne mellemrum events af vidt forskellige karakterer, s&aring;ledes at mange interesser tilgodeses.<br>Det v&aelig;re sig indenfor b&aring;de sport, fritid og kultur s&aring;vel som faglige aktiviteter.<br>Her p&aring; siden kan <I>medlemmerne</I> l&oslash;bende f&oslash;lge med i, hvad der sker i foreningen og meget andet.<br><br>"
RESPONSE.WRITE"</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"</TABLE>"
RESPONSE.WRITE"</div>"
RESPONSE.WRITE"<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=320 class='blacktable'>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=2 WIDTH=267 HEIGHT=65><IMG SRC='smasksgfx/hlsmask.png' WIDTH=267 HEIGHT=65 BORDER=0 ></TD>"
RESPONSE.WRITE"<TD ROWSPAN=2 COLSPAN=1 WIDTH=53 HEIGHT=194><IMG SRC='smasksgfx/hlinfo.png' WIDTH=53 HEIGHT=194 BORDER=0 ></TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=26 HEIGHT=129><form action='default.asp' method='POST' style='display:inline'></TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=241 HEIGHT=129>"
RESPONSE.WRITE"<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=241 HEIGHT=121>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=2 WIDTH=241 HEIGHT=6 class='nonewhite'>&nbsp;</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=2 WIDTH=241 HEIGHT=40>" & strErr &"</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=4 WIDTH=241 HEIGHT=4 class='nonewhite'><form action='default.asp' method='POST' style='display:inline'></TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=89 HEIGHT=22>Medlem Navn:</TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=100 HEIGHT=22><input type='text' class='form100' name='Brugernavn'></TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=20 HEIGHT=22>Id:</TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=32 HEIGHT=22><input type='text' class='formshort' name='Idnr'></TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=4 WIDTH=241 HEIGHT=5 class='nonewhite'>&nbsp;</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=89 HEIGHT=20>Adgangskode:</TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=100 HEIGHT=20><input type='password' class='form100' name='Adgangskode'></TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=20 HEIGHT=20>&nbsp;</TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=32 HEIGHT=20>&nbsp;</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=4 WIDTH=241 HEIGHT=5 class='nonewhite'>&nbsp;</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=89 HEIGHT=27><input type='submit' value='Luk Op' class='bluebutton' name='Action'></form></TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=3 WIDTH=152 HEIGHT=27 class='nonewhite'>&nbsp;</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"</TABLE>"
RESPONSE.WRITE"</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"</TABLE>"
RESPONSE.WRITE"</BODY>"
RESPONSE.WRITE"</HTML>"
End If


%>
Avatar billede 0ffline Nybegynder
08. maj 2004 - 13:59 #8
Fejlen ligger stadig i at den viser 'defaultsiden' overi det andet
Fejlen kan nemmest ses hvis man prøver at logge på med tal f.eks 3333 3 3333, og herefter trykker [JA] til 'Glemt din Adgangskode'
http://exciter.dk/sis/default.asp

Har ændret elseif til if og else igen

Siden ser nu således ud :

<script language="javascript">   
ns4 = (document.layers)? true:false
ie4 = (document.all)? true:false
ie5 =(document.getElementById)? true:false
ns6 = (document.getElementById && !document.all)?true:false;

function over(id){
var styleObj = (ns4)? document.layers[id] : (ie4)? document.all[id].style : document.getElementById(id).style;
styleObj.visibility = "visible";

}

function ud(id){
var styleObj = (ns4)? document.layers[id] : (ie4)? document.all[id].style : document.getElementById(id).style;
styleObj.visibility = "hidden";

}

</script>

<script language="javascript" type="text/javascript">
function nu(obj, vis){
if (obj.checked)
    showlayer(vis)
else
document.getElementById(vis).style.display = 'none'
}
function showlayer(layername) {
    l = document.getElementsByTagName('SPAN');
    for(i=0;l.length>i;i++)l[i].style.display='none';
    document.getElementById(layername).style.display = 'block';
}
</script>



<div id="weblag" name="weblag" style="  position: absolute; left:50; top:220; width: 240; height:321; z-index: 12; visibility: hidden; display:block;">

<%
RESPONSE.WRITE"<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=240>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=2 WIDTH=240 HEIGHT=25>- Manglende login oplysninger &oslash;nskes pr.</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"%>
        <TD ROWSPAN=1 COLSPAN=1 WIDTH=120 HEIGHT=22><form name='formen' style='display:inline'>&nbsp; Email <input type='radio' name='r' onFocus='if (this.blur) this.blur();' onclick="nu(this, 'layer1')">
        <TD ROWSPAN=1 COLSPAN=1 WIDTH=120 HEIGHT=22>Telefon <input type="radio" name="r" onFocus='if (this.blur) this.blur();' onclick="nu(this, 'layer2')"></form></TD>
        </TR>
        </TABLE>

        <span id="layer1" style="display:none;">
<%
RESPONSE.WRITE"<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=240>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=100 HEIGHT=22>&nbsp; Dit Navn:<form action='default.asp' method='POST' style='display:inline'></TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=140 HEIGHT=22><input type='text' class='form100' name='Brugernavn'></TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=100 HEIGHT=22>&nbsp; Email:</TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=140 HEIGHT=22><input type='text' class='form100' name='Kontaktmig'></TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=2 WIDTH=240 HEIGHT=25 align='center'><input type='submit' value='Kontakt mig venligst' class='bluebutton' name='Action7'></form></TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"</TABLE></span>" %>

        <span id="layer2" style="display:none;">
<%
RESPONSE.WRITE"<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=240>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=100 HEIGHT=22>&nbsp; Dit Navn:<form action='default.asp' method='POST' style='display:inline'></TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=140 HEIGHT=22><input type='text' class='form100' name='Brugernavn'></TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=100 HEIGHT=22>&nbsp; Telefon:</TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=140 HEIGHT=22><input type='text' class='form100' name='Kontaktmig'></TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=2 WIDTH=240 HEIGHT=25 align='center'><input type='submit' value='Kontakt mig venligst' class='bluebutton' name='Action7'></form></TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"</TABLE></span>"
RESPONSE.WRITE"</div>"






            ' Afsendelse af forespørgelse på login oplysningerne

If Request.Form("Action7") = "Kontakt mig venligst" Then

  phonemail = Request.Form("Kontaktmig")
  fornavn = Request.Form("Brugernavn")


Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ContentType = "text/html"
JMail.ServerAddress = "mail.smask.info"
JMail.Priority = 1
JMail.Sender = "mailrobot@smask.info"
JMail.SenderName = "S.M.A.S.K"
JMail.AddRecipientEx "admin@smask.info", "Bente Thompson"
JMail.Subject = "Manglende login oplysninger"
JMail.Body = JMail.Body & "Hej<br>"
JMail.Body = JMail.Body & "Kan du hjælpe mig med nogle login oplysninger.<br>"
JMail.Body = JMail.Body & "Du kan kontakte mig på <b>" & phonemail &"</b><br>"
JMail.Body = JMail.Body & "Med venlig hilsen<br><B>" & fornavn &"</B>"
JMail.Execute
Set JMail = Nothing
RESPONSE.WRITE"<HTML>"
RESPONSE.WRITE"<HEAD>"
RESPONSE.WRITE"<TITLE>S.M.A.S.K - Svejbaek Medarbejdernes Fritids & Sports Klub</TITLE>"
RESPONSE.WRITE"<META http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>"
RESPONSE.WRITE"<link rel='stylesheet' href='styles/smaskstyle.css' type='text/css'>"
RESPONSE.WRITE"</HEAD>"
RESPONSE.WRITE"<BODY BGCOLOR='#FFFFFF'>"
RESPONSE.WRITE"<div id='frontimage' class='smasker'>"
RESPONSE.WRITE"<IMG SRC='smasksgfx/smasker.gif' WIDTH=85 HEIGHT=127 BORDER=0 >"
RESPONSE.WRITE"</div>"
RESPONSE.WRITE"<div id='frontinfo' class='svejbaekinfo'>"
RESPONSE.WRITE"<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=360 CLASS='whitetable'>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=3 WIDTH=360 HEIGHT=126 class='greentext'><div align='center'><B>Velkommen hos SIS learnings personaleforening</B></div><div class='smaller'><B>~ S</B>vejbaek <B>M</B>edarbejdernes <B>A</B>ktivitets & <B>S</B>ports <B>K</B>lub <B>~</B></div>"
RESPONSE.WRITE"<HR CLASS='bluehr'>S.M.A.S.K arrangerer med j&aelig;vne mellemrum events af vidt forskellige karakterer, s&aring;ledes at mange interesser tilgodeses.<br>Det v&aelig;re sig indenfor b&aring;de sport, fritid og kultur s&aring;vel som faglige aktiviteter.<br>Her p&aring; siden kan <I>medlemmerne</I> l&oslash;bende f&oslash;lge med i, hvad der sker i foreningen og meget andet.<br><br>"
RESPONSE.WRITE"</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"</TABLE>"
RESPONSE.WRITE"</div>"
RESPONSE.WRITE"<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=320 class='blacktable'>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=2 WIDTH=267 HEIGHT=65><IMG SRC='smasksgfx/hlsmask.png' WIDTH=267 HEIGHT=65 BORDER=0 ></TD>"
RESPONSE.WRITE"<TD ROWSPAN=2 COLSPAN=1 WIDTH=53 HEIGHT=194><IMG SRC='smasksgfx/hlinfo.png' WIDTH=53 HEIGHT=194 BORDER=0 ></TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=26 HEIGHT=129>&nbsp;</TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=241 HEIGHT=129>"
RESPONSE.WRITE"<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=240 HEIGHT=128>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=2 WIDTH=240 HEIGHT=5 class='nonewhite'>&nbsp;</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=2 WIDTH=240 HEIGHT=66>Du vil blive kontaktet hurtigst muligt! !<br><br></TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=2 WIDTH=240 HEIGHT=5 class='nonewhite'>&nbsp;</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=108 HEIGHT=20>&nbsp;</TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=132 HEIGHT=20>&nbsp;</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=2 WIDTH=240 HEIGHT=5 class='nonewhite'>&nbsp;</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=108 HEIGHT=27>&nbsp;</TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=132 HEIGHT=27 class='nonewhite'>&nbsp;</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"</TABLE>"
RESPONSE.WRITE"</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"</TABLE>"
RESPONSE.WRITE"<div id='frontpage' class='frontpage'>"
RESPONSE.WRITE"<a href='default.asp' target='_parent' onFocus='if (this.blur) this.blur();' class='smallblue'><< Til forsiden</a></span>"
RESPONSE.WRITE"</div>"
RESPONSE.WRITE"<div id='frontpage' class='frontpage'>"
RESPONSE.WRITE"<a href='default.asp' target='_parent' onFocus='if (this.blur) this.blur();' class='smallblue'><< Til forsiden</a></span>"
RESPONSE.WRITE"</div>"

End If

            ' Layer indeholdende Password Reminder ... ikke genkendt email

    If Request.Form("ActionA") = "Tilsend" Then

Set myConn = Server.CreateObject("ADODB.Connection")
myConn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("db/smask.mdb")
strSQL = ("SELECT * FROM smask_members WHERE email = '" & Request("Eadresse") & "'")
Set rs = myConn.Execute(strSQL)
if rs.EOF then
RESPONSE.WRITE"<HTML>"
RESPONSE.WRITE"<HEAD>"
RESPONSE.WRITE"<TITLE>S.M.A.S.K - Svejbaek Medarbejdernes Fritids & Sports Klub</TITLE>"
RESPONSE.WRITE"<META http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>"
RESPONSE.WRITE"<link rel='stylesheet' href='styles/smaskstyle.css' type='text/css'>"
RESPONSE.WRITE"</HEAD>"
RESPONSE.WRITE"<BODY BGCOLOR='#FFFFFF'>"
RESPONSE.WRITE"<div id='frontimage' class='smasker'>"
RESPONSE.WRITE"<IMG SRC='smasksgfx/smasker.gif' WIDTH=85 HEIGHT=127 BORDER=0 >"
RESPONSE.WRITE"</div>"
RESPONSE.WRITE"<div id='frontinfo' class='svejbaekinfo'>"
RESPONSE.WRITE"<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=360 CLASS='whitetable'>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=3 WIDTH=360 HEIGHT=126 class='greentext'><div align='center'><B>Velkommen hos SIS learnings personaleforening</B></div><div class='smaller'><B>~ S</B>vejbaek <B>M</B>edarbejdernes <B>A</B>ktivitets & <B>S</B>ports <B>K</B>lub <B>~</B></div>"
RESPONSE.WRITE"<HR CLASS='bluehr'>S.M.A.S.K arrangerer med j&aelig;vne mellemrum events af vidt forskellige karakterer, s&aring;ledes at mange interesser tilgodeses.<br>Det v&aelig;re sig indenfor b&aring;de sport, fritid og kultur s&aring;vel som faglige aktiviteter.<br>Her p&aring; siden kan <I>medlemmerne</I> l&oslash;bende f&oslash;lge med i, hvad der sker i foreningen og meget andet.<br><br>"
RESPONSE.WRITE"</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"</TABLE>"
RESPONSE.WRITE"</div>"
RESPONSE.WRITE"<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=320 class='blacktable'>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=2 WIDTH=267 HEIGHT=65><IMG SRC='smasksgfx/hlsmask.png' WIDTH=267 HEIGHT=65 BORDER=0 ></TD>"
RESPONSE.WRITE"<TD ROWSPAN=2 COLSPAN=1 WIDTH=53 HEIGHT=194><IMG SRC='smasksgfx/hlinfo.png' WIDTH=53 HEIGHT=194 BORDER=0 ></TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=26 HEIGHT=129>&nbsp;</TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=241 HEIGHT=129>"
RESPONSE.WRITE"<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=240 HEIGHT=128>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=2 WIDTH=240 HEIGHT=5 class='nonewhite'>&nbsp;</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=2 WIDTH=240 HEIGHT=66>Databasen genkendte ikke skrevne email.<br>Check om du skulle have skrevet forkert!<div class='smallred'>Ellers, kontakt Webmaster for Adgangskode *</div><br></TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=2 WIDTH=240 HEIGHT=5 class='nonewhite'>&nbsp;<form action='default.asp' method='POST' style='display:inline'></TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=108 HEIGHT=20>Skriv din Email:</TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=132 HEIGHT=20><input type='text' class='forms' name='Eadresse'></TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=2 WIDTH=240 HEIGHT=5 class='nonewhite'>&nbsp;</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=108 HEIGHT=27><input type='submit' value='Tilsend' class='bluebutton' name='ActionA'></form></TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=132 HEIGHT=27 class='nonewhite'>&nbsp;</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"</TABLE>"
RESPONSE.WRITE"</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"</TABLE>"
RESPONSE.WRITE"<div id='frontcontact' class='webmaster'>"
RESPONSE.WRITE"<a href='#'  onClick=""over('weblag')"" onFocus='if (this.blur) this.blur();' class='smallblue'>* Webmaster</a></span>"
RESPONSE.WRITE"</div>"
RESPONSE.WRITE"<div id='frontpage' class='frontpage'>"
RESPONSE.WRITE"<a href='default.asp' target='_parent' onFocus='if (this.blur) this.blur();' class='smallblue'><< Til forsiden</a></span>"
RESPONSE.WRITE"</div>"

else

            ' Password Reminder med genkendt og afsendt login oplysninger

Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ContentType = "text/html"
JMail.ServerAddress = "mail.smask.info"
JMail.Priority = 1
JMail.Sender = "mailrobot@smask.info"
JMail.SenderName = "S.M.A.S.K_Password_Reminder"
JMail.AddRecipientEx "" & rs("email") & "", "" & rs("username") & ""
JMail.Subject = "Glemt password"
JMail.Body = JMail.Body & "Hej  "& rs("username") &"<br>"
JMail.Body = JMail.Body &"Jeg har været vores database igennem, og faldt over dette" &"<br>"
JMail.Body = JMail.Body & "Dit password er: <b>" & rs("userid") &"</b><br>"
JMail.Body = JMail.Body & "Dit id er: <b>" & rs("id") &"</b><br>"
JMail.Body = JMail.Body & "Med venlig hilsen " &"<br>"
JMail.Body = JMail.Body &" &nbsp; &nbsp; &nbsp;<I>S.M.A.S.K_Password_Reminder</I>" &"<br>"
JMail.Execute
Set JMail = Nothing
RESPONSE.WRITE"<HTML>"
RESPONSE.WRITE"<HEAD>"
RESPONSE.WRITE"<TITLE>S.M.A.S.K - Svejbaek Medarbejdernes Fritids & Sports Klub</TITLE>"
RESPONSE.WRITE"<META http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>"
RESPONSE.WRITE"<link rel='stylesheet' href='styles/smaskstyle.css' type='text/css'>"
RESPONSE.WRITE"</HEAD>"
RESPONSE.WRITE"<BODY BGCOLOR='#FFFFFF'>"
RESPONSE.WRITE"<div id='frontimage' class='smasker'>"
RESPONSE.WRITE"<IMG SRC='smasksgfx/smasker.gif' WIDTH=85 HEIGHT=127 BORDER=0 >"
RESPONSE.WRITE"</div>"
RESPONSE.WRITE"<div id='frontinfo' class='svejbaekinfo'>"
RESPONSE.WRITE"<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=360 CLASS='whitetable'>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=3 WIDTH=360 HEIGHT=126 class='greentext'><div align='center'><B>Velkommen hos SIS learnings personaleforening</B></div><div class='smaller'><B>~ S</B>vejbaek <B>M</B>edarbejdernes <B>A</B>ktivitets & <B>S</B>ports <B>K</B>lub <B>~</B></div>"
RESPONSE.WRITE"<HR CLASS='bluehr'>S.M.A.S.K arrangerer med j&aelig;vne mellemrum events af vidt forskellige karakterer, s&aring;ledes at mange interesser tilgodeses.<br>Det v&aelig;re sig indenfor b&aring;de sport, fritid og kultur s&aring;vel som faglige aktiviteter.<br>Her p&aring; siden kan <I>medlemmerne</I> l&oslash;bende f&oslash;lge med i, hvad der sker i foreningen og meget andet.<br><br>"
RESPONSE.WRITE"</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"</TABLE>"
RESPONSE.WRITE"</div>"
RESPONSE.WRITE"<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=320 class='blacktable'>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=2 WIDTH=267 HEIGHT=65><IMG SRC='smasksgfx/hlsmask.png' WIDTH=267 HEIGHT=65 BORDER=0 ></TD>"
RESPONSE.WRITE"<TD ROWSPAN=2 COLSPAN=1 WIDTH=53 HEIGHT=194><IMG SRC='smasksgfx/hlinfo.png' WIDTH=53 HEIGHT=194 BORDER=0 ></TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=26 HEIGHT=129>&nbsp;</TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=241 HEIGHT=129>"
RESPONSE.WRITE"<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=240 HEIGHT=128>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=2 WIDTH=240 HEIGHT=5 class='nonewhite'>&nbsp;</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=2 WIDTH=240 HEIGHT=66>Dine login informationer er blevet afsendt !<br><br></TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=2 WIDTH=240 HEIGHT=5 class='nonewhite'>&nbsp;</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=108 HEIGHT=20>&nbsp;</TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=132 HEIGHT=20>&nbsp;</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=2 WIDTH=240 HEIGHT=5 class='nonewhite'>&nbsp;</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=108 HEIGHT=27>&nbsp;</TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=132 HEIGHT=27 class='nonewhite'>&nbsp;</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"</TABLE>"
RESPONSE.WRITE"</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"</TABLE>"
RESPONSE.WRITE"<div id='frontpage' class='frontpage'>"
RESPONSE.WRITE"<a href='default.asp' target='_parent' onFocus='if (this.blur) this.blur();' class='smallblue'><< Til forsiden</a></span>"
RESPONSE.WRITE"</div>"

    End If
        End If

            ' Password Reminder

    If Request.Form("Action3") = "JA" Then

RESPONSE.WRITE"<HTML>"
RESPONSE.WRITE"<HEAD>"
RESPONSE.WRITE"<TITLE>S.M.A.S.K - Svejbaek Medarbejdernes Fritids & Sports Klub</TITLE>"
RESPONSE.WRITE"<META http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>"
RESPONSE.WRITE"<link rel='stylesheet' href='styles/smaskstyle.css' type='text/css'>"
RESPONSE.WRITE"</HEAD>"
RESPONSE.WRITE"<BODY BGCOLOR='#FFFFFF'>"
RESPONSE.WRITE"<div id='frontimage' class='smasker'>"
RESPONSE.WRITE"<IMG SRC='smasksgfx/smasker.gif' WIDTH=85 HEIGHT=127 BORDER=0 >"
RESPONSE.WRITE"</div>"
RESPONSE.WRITE"<div id='frontinfo' class='svejbaekinfo'>"
RESPONSE.WRITE"<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=360 CLASS='whitetable'>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=3 WIDTH=360 HEIGHT=126 class='greentext'><div align='center'><B>Velkommen hos SIS learnings personaleforening</B></div><div class='smaller'><B>~ S</B>vejbaek <B>M</B>edarbejdernes <B>A</B>ktivitets & <B>S</B>ports <B>K</B>lub <B>~</B></div>"
RESPONSE.WRITE"<HR CLASS='bluehr'>S.M.A.S.K arrangerer med j&aelig;vne mellemrum events af vidt forskellige karakterer, s&aring;ledes at mange interesser tilgodeses.<br>Det v&aelig;re sig indenfor b&aring;de sport, fritid og kultur s&aring;vel som faglige aktiviteter.<br>Her p&aring; siden kan <I>medlemmerne</I> l&oslash;bende f&oslash;lge med i, hvad der sker i foreningen og meget andet.<br><br>"
RESPONSE.WRITE"</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"</TABLE>"
RESPONSE.WRITE"</div>"
RESPONSE.WRITE"<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=320 class='blacktable'>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=2 WIDTH=267 HEIGHT=65><IMG SRC='smasksgfx/hlsmask.png' WIDTH=267 HEIGHT=65 BORDER=0 ></TD>"
RESPONSE.WRITE"<TD ROWSPAN=2 COLSPAN=1 WIDTH=53 HEIGHT=194><IMG SRC='smasksgfx/hlinfo.png' WIDTH=53 HEIGHT=194 BORDER=0 ></TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=26 HEIGHT=129>&nbsp;</TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=241 HEIGHT=129>"
RESPONSE.WRITE"<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=240 HEIGHT=128>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=2 WIDTH=240 HEIGHT=5 class='nonewhite'>&nbsp;</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=2 WIDTH=240 HEIGHT=66>Har du indskrevet din email-adresse i din Profil, kan du f&aring; tilsendt din Adgangskode.<br><div class='smallred'>Ellers, kontakt Webmaster for Adgangskode *</div><br></TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=2 WIDTH=240 HEIGHT=5 class='nonewhite'>&nbsp;<form action='default.asp' method='POST' style='display:inline'></TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=108 HEIGHT=20>Skriv din Email:</TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=132 HEIGHT=20><input type='text' class='forms' name='Eadresse'></TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=2 WIDTH=240 HEIGHT=5 class='nonewhite'>&nbsp;</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=108 HEIGHT=27><input type='submit' value='Tilsend' class='bluebutton' name='ActionA'></form></TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=132 HEIGHT=27 class='nonewhite'>&nbsp;</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"</TABLE>"
RESPONSE.WRITE"</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"</TABLE>"
RESPONSE.WRITE"<div id='frontcontact' class='webmaster'>"
RESPONSE.WRITE"<a href='#'  onClick=""over('weblag')"" onFocus='if (this.blur) this.blur();' class='smallblue'>* Webmaster</a></span>"
RESPONSE.WRITE"</div>"
RESPONSE.WRITE"<div id='frontpage' class='frontpage'>"
RESPONSE.WRITE"<a href='default.asp' target='_parent' onFocus='if (this.blur) this.blur();' class='smallblue'><< Til forsiden</a></span>"
RESPONSE.WRITE"</div>"

End If


            ' Login error oplysninger

If Request.Form("Action") = "Luk Op" Then

    ' Her forberedes de indtastede værdier til validering
    strUID = Trim(Replace(Request.Form("Brugernavn"),"'",""))
    strPWD = Trim(Replace(Request.Form("Adgangskode"),"'",""))
    strIDNR = Trim(Replace(Request.Form("Idnr"),"",""))




    If Len(strUID) > 0 And Len(strPWD) > 0 And Len(strIDNR) > 0 AND IsNumeric(Request.Form("Idnr")) = True Then


        Set myConn = Server.CreateObject("ADODB.Connection")
        myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/smask.mdb")


        strSQL = "SELECT username FROM smask_members"&_
            " WHERE (username = '" & strUID & "')"&_
            " AND (userid = '" & strPWD & "')"&_
            " AND (id = " & strIDNR & ")"

        Set rs = myConn.Execute(strSQL)
        If Not (rs.BOF Or rs.EOF) Then
            ' Hvis brugeren fandtes i databasen
            intUID = rs("username")
        Else

            strERR = "Fejl i login.<br><span class='nonewhite'><br><br><br></span><form action='default.asp' method='POST' style='display:inline'><span class='smallerror'><input type='submit' value='NEJ' class='bluebutton' name='NoneAction'> Glemt din Adgangskode? <input type='submit' value='JA' class='bluebutton' name='Action3'></span></form>"
        End If


        myConn.Close
        Set myConn = Nothing

        If Len(intUID) Then
            ' Hvis variablen intUID indeholder en værdi sættes denne i sessionen "UserID" og brugeren bliver sendt videre
            Session("Username") = intUID
            Session.Timeout = 45
            Response.Redirect("filter.asp")
        End If
    Else

        strErr = "Fejl i enten<br><I> Navn, id eller Kode</I>"
    End If

    If Len(strErr) > 0 Then

        strErr = "<p class='centererror'>" & strErr & "</p>"

RESPONSE.WRITE"<HTML>"
RESPONSE.WRITE"<HEAD>"
RESPONSE.WRITE"<TITLE>S.M.A.S.K - Svejbaek Medarbejdernes Fritids & Sports Klub</TITLE>"
RESPONSE.WRITE"<META http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>"
RESPONSE.WRITE"<link rel='stylesheet' href='styles/smaskstyle.css' type='text/css'>"
RESPONSE.WRITE"</HEAD>"
RESPONSE.WRITE"<BODY BGCOLOR='#FFFFFF'>"
RESPONSE.WRITE"<div id='frontimage' class='smasker2'>"
RESPONSE.WRITE"<IMG SRC='smasksgfx/smasker2.gif' WIDTH=85 HEIGHT=132 BORDER=0 >"
RESPONSE.WRITE"</div>"
RESPONSE.WRITE"<div id='frontinfo' class='svejbaekinfo'>"
RESPONSE.WRITE"<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=360 CLASS='whitetable'>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=3 WIDTH=360 HEIGHT=126 class='greentext'><div align='center'><B>Velkommen hos SIS learnings personaleforening</B></div><div class='smaller'><B>~ S</B>vejbaek <B>M</B>edarbejdernes <B>A</B>ktivitets & <B>S</B>ports <B>K</B>lub <B>~</B></div>"
RESPONSE.WRITE"<HR CLASS='bluehr'>S.M.A.S.K arrangerer med j&aelig;vne mellemrum events af vidt forskellige karakterer, s&aring;ledes at mange interesser tilgodeses.<br>Det v&aelig;re sig indenfor b&aring;de sport, fritid og kultur s&aring;vel som faglige aktiviteter.<br>Her p&aring; siden kan <I>medlemmerne</I> l&oslash;bende f&oslash;lge med i, hvad der sker i foreningen og meget andet.<br><br>"
RESPONSE.WRITE"</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"</TABLE>"
RESPONSE.WRITE"</div>"
RESPONSE.WRITE"<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=320 class='blacktable'>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=2 WIDTH=267 HEIGHT=65><IMG SRC='smasksgfx/hlsmask.png' WIDTH=267 HEIGHT=65 BORDER=0 ></TD>"
RESPONSE.WRITE"<TD ROWSPAN=2 COLSPAN=1 WIDTH=53 HEIGHT=194><IMG SRC='smasksgfx/hlinfo.png' WIDTH=53 HEIGHT=194 BORDER=0 ></TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=26 HEIGHT=129>&nbsp;</TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=241 HEIGHT=129>"
RESPONSE.WRITE"<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=241 HEIGHT=121>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=2 WIDTH=241 HEIGHT=6 class='nonewhite'>&nbsp;</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=2 WIDTH=241 HEIGHT=40>" & strErr &"</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=4 WIDTH=241 HEIGHT=4 class='nonewhite'><form action='default.asp' method='POST' style='display:inline'></TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=89 HEIGHT=22>Medlem Navn:</TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=100 HEIGHT=22><input type='text' class='form100' name='Brugernavn'></TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=20 HEIGHT=22>Id:</TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=32 HEIGHT=22><input type='text' class='formshort' name='Idnr'></TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=4 WIDTH=241 HEIGHT=5 class='nonewhite'>&nbsp;</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=89 HEIGHT=20>Adgangskode:</TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=100 HEIGHT=20><input type='password' class='form100' name='Adgangskode'></TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=20 HEIGHT=20>&nbsp;</TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=32 HEIGHT=20>&nbsp;</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=4 WIDTH=241 HEIGHT=5 class='nonewhite'>&nbsp;</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=89 HEIGHT=27><input type='submit' value='Luk Op' class='bluebutton' name='Action'></form></TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=3 WIDTH=152 HEIGHT=27 class='nonewhite'>&nbsp;</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"</TABLE>"
RESPONSE.WRITE"</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"</TABLE>"

        End If
    End If

          ' Default side med loginbox

RESPONSE.WRITE"<HTML>"
RESPONSE.WRITE"<HEAD>"
RESPONSE.WRITE"<TITLE>S.M.A.S.K - Svejbaek Medarbejdernes Fritids & Sports Klub</TITLE>"
RESPONSE.WRITE"<META http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>"
RESPONSE.WRITE"<link rel='stylesheet' href='styles/smaskstyle.css' type='text/css'>"
RESPONSE.WRITE"</HEAD>"
RESPONSE.WRITE"<BODY BGCOLOR='#FFFFFF'>"
RESPONSE.WRITE"<div id='frontimage' class='smasker'>"
RESPONSE.WRITE"<IMG SRC='smasksgfx/smasker.gif' WIDTH=85 HEIGHT=127 BORDER=0 >"
RESPONSE.WRITE"</div>"
RESPONSE.WRITE"<div id='frontinfo' class='svejbaekinfo'>"
RESPONSE.WRITE"<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=360 CLASS='whitetable'>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=3 WIDTH=360 HEIGHT=126 class='greentext'><div align='center'><B>Velkommen hos SIS learnings personaleforening</B></div><div class='smaller'><B>~ S</B>vejbaek <B>M</B>edarbejdernes <B>A</B>ktivitets & <B>S</B>ports <B>K</B>lub <B>~</B></div>"
RESPONSE.WRITE"<HR CLASS='bluehr'>S.M.A.S.K arrangerer med j&aelig;vne mellemrum events af vidt forskellige karakterer, s&aring;ledes at mange interesser tilgodeses.<br>Det v&aelig;re sig indenfor b&aring;de sport, fritid og kultur s&aring;vel som faglige aktiviteter.<br>Her p&aring; siden kan <I>medlemmerne</I> l&oslash;bende f&oslash;lge med i, hvad der sker i foreningen og meget andet.<br><br>"
RESPONSE.WRITE"</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"</TABLE>"
RESPONSE.WRITE"</div>"
RESPONSE.WRITE"<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=320 class='blacktable'>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=2 WIDTH=267 HEIGHT=65><IMG SRC='smasksgfx/hlsmask.png' WIDTH=267 HEIGHT=65 BORDER=0 ></TD>"
RESPONSE.WRITE"<TD ROWSPAN=2 COLSPAN=1 WIDTH=53 HEIGHT=194><IMG SRC='smasksgfx/hlinfo.png' WIDTH=53 HEIGHT=194 BORDER=0 ></TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=26 HEIGHT=129><form action='default.asp' method='POST' style='display:inline'></TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=241 HEIGHT=129>"
RESPONSE.WRITE"<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=241 HEIGHT=121>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=2 WIDTH=241 HEIGHT=6 class='nonewhite'>&nbsp;</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=2 WIDTH=241 HEIGHT=40>" & strErr &"</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=4 WIDTH=241 HEIGHT=4 class='nonewhite'><form action='default.asp' method='POST' style='display:inline'></TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=89 HEIGHT=22>Medlem Navn:</TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=100 HEIGHT=22><input type='text' class='form100' name='Brugernavn'></TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=20 HEIGHT=22>Id:</TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=32 HEIGHT=22><input type='text' class='formshort' name='Idnr'></TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=4 WIDTH=241 HEIGHT=5 class='nonewhite'>&nbsp;</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=89 HEIGHT=20>Adgangskode:</TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=100 HEIGHT=20><input type='password' class='form100' name='Adgangskode'></TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=20 HEIGHT=20>&nbsp;</TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=32 HEIGHT=20>&nbsp;</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=4 WIDTH=241 HEIGHT=5 class='nonewhite'>&nbsp;</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"<TR>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=1 WIDTH=89 HEIGHT=27><input type='submit' value='Luk Op' class='bluebutton' name='Action'></form></TD>"
RESPONSE.WRITE"<TD ROWSPAN=1 COLSPAN=3 WIDTH=152 HEIGHT=27 class='nonewhite'>&nbsp;</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"</TABLE>"
RESPONSE.WRITE"</TD>"
RESPONSE.WRITE"</TR>"
RESPONSE.WRITE"</TABLE>"
RESPONSE.WRITE"</BODY>"
RESPONSE.WRITE"</HTML>"



%>
Avatar billede 0ffline Nybegynder
08. maj 2004 - 14:24 #9
hmmm ... det hjalp da lidt
Avatar billede 0ffline Nybegynder
08. maj 2004 - 14:55 #10
Perfekt..
Avatar billede 0ffline Nybegynder
08. maj 2004 - 14:59 #11
Endnu engang tak for jeres svar. Jeg fik det desværre ikke til at virke ved at lave en lang elseif sætning, men problemet blev da løst tilsidst.
Jeg håber I er tilfredse med at dele de oprindelige 60 points lige over, da der ikke kom noget tilbagemeldinger efter jeg forhøjede points antal, tager jeg selv disse.
Fortsat god weekend / 0ffline
Avatar billede Ny bruger Nybegynder

Din løsning...

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

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

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

Log ind eller opret profil

Hov!

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

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

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
IT-JOB

Capgemini Danmark A/S

Microsoft AI Solution Architect

Aller Leisure A/S

Erfaren softwareudvikler til rejsebranchen

Forsvarsministeriets Materiel- og Indkøbsstyrelse

Solution Manager til Cyberdivisionen

Capgemini Danmark A/S

AI/Data Engineer

AL Sydbank

Automation Developer - Digital & Processes
Seneste spørgsmål Seneste aktivitet
I dag 12:21 Er det svindel eller fra Microsoft Af mort1 i Andet sikkerhed
I går 11:56 Er det muligt at lave sin egen webserver i boligforening? Af Strawberry i Cloudtjenester
14/0810:21 Ny printer, men hvilken Af mort1 i Printere
13/0819:41 USB på Linux Af Uvanga i Linux
12/0818:26 Hvilken type mus Af mort1 i PC
White papers
Flere white papers »