Der er en ting du kan hjælpe med
Microsoft OLE DB Provider for ODBC Drivers error '800401f3'
[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0x6fc Thread 0xd60 DBC 0x1469024 Jet'.
/test/community/default.asp, line 362
<%page = Request("page")
Response.Buffer = True
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("BangDesign.mdb") & ""
Session.LCID = 1030%>
<html>
<head>
<meta http-equiv="Content-Language" content="da">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Bang Designs Community -
www.bang-design.dk</title><link rel="stylesheet" type="text/css" href="BangDesign.css">
</head>
<body>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1" height="36">
<tr>
<td width="100%" height="19"><img border="0" src="banner.jpg"><br>
<a href="default.asp?page=profil">Se profiler</a> -
<a href="default.asp?page=inbox">Tjek mail</a> -
<a href="default.asp?page=logoff">Log af</a>
<%if session("Admin")=True then response.write(" - <a href=""default.asp?page=maillist"">Maillist</a>") end if%><br>
</td>
</tr>
<%if page="" then%>
<tr>
<td width="100%" height="17" valign="top">
<font size=3 color=red><%=Request.Querystring("error")%></font><br>
<form method=post action=default.asp?page=login>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2">
<tr>
<td width="100%" colspan="2">Log ind som
medlem, eller <a href="default.asp?page=opret">opret bruger</a>..<br>
Husk at du skal aktivere cookies for at besøge sitet..<br>
<br>
</td>
</tr>
<tr>
<td width="18%">Brugernavn:</td>
<td width="82%">
<font face="Verdana">
<input type=text style="border:1px solid rgb(0,0,0); COLOR: #000000; BACKGROUND-COLOR: #e6ebed" name=Brugernavn size="18" value="<%= Request.Cookies("brugernavn") %>"></font></td>
</tr>
<tr>
<td width="18%">Password:</td>
<td width="82%">
<font face="Verdana">
<input type=password style="border:1px solid rgb(0,0,0); COLOR: #000000; BACKGROUND-COLOR: #e6ebed"name=password size="18" value="<%= Request.Cookies("password") %>"></font></td>
</tr>
<tr>
<td width="18%"> </td>
<td width="82%"> </td>
</tr>
<tr>
<td width="18%"> </td>
<td width="82%">
<input type=submit style="BORDER-RIGHT: rgb(0,0,0) 1px solid; BORDER-TOP: rgb(0,0,0) 1px solid; FONT-SIZE: 10px; BORDER-LEFT: rgb(0,0,0) 1px solid; COLOR: #000000; BORDER-BOTTOM: rgb(0,0,0) 1px solid; BACKGROUND-COLOR: #e6ebed" value=Login></td>
</tr>
</table>
</form>
</td>
</tr>
<%end if
if page = "login" then
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM Brugere where brugernavn = '" & Request.form("brugernavn") & "'"
rs.Open strSQL, Conn, 1, 3
'//Hvis der ingen bruger findes med det ønskede navn
If rs.BOF Or rs.EOF Then
Response.Redirect("default.asp?error=Ingen bruger med det navn!")
end if
'//Hvis kodeordet matcher kodeordet i databasen
if rs("password") = Request.form("password") then
'Laver session, med brugernavn og id
session("brugernavn") = rs("brugernavn")
session("password") = rs("password")
session("admin") = rs("admin")
session("email") = rs("email")
session("id") = rs("id")
session("login") = yes
Session.Timeout = 1000
Response.Cookies("brugernavn") = rs("brugernavn")
Response.Cookies("password") = rs("password")
Response.Cookies("brugernavn").Expires = Now + 365
Response.Cookies("password").Expires = Now + 365
Response.Redirect("default.asp?page=logged_in")
else
'//Hvis kodeordet var forkert!
Response.Redirect("default.asp?error=Du har indtastet forkert password!")
end if
rs.Close
Set rs = Nothing
end if
if page="opret" then%>
<tr>
<td width="100%" height="17" valign="top">
<form method="POST" action="default.asp?page=gem">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber3" height="343">
<tr>
<td width="100%" colspan="2" height="48">Opret ny bruger..<br>
E-mail adressen skal være gyldig, da der sendes en bekræftelses mail til den
når du opretter dig..<br>
</td>
</tr>
<tr>
<td width="1%" height="20">Dit Navn</td>
<td width="106%" height="20">
<font face="Verdana">
<input type=text style="border:1px solid rgb(0,0,0); COLOR: #000000; BACKGROUND-COLOR: #e6ebed" name=Navn size="18" maxlength="255"></font></td>
</tr>
<tr>
<td width="1%" height="20">Din E-mail</td>
<td width="106%" height="20">
<font face="Verdana">
<input type=text style="border:1px solid rgb(0,0,0); COLOR: #000000; BACKGROUND-COLOR: #e6ebed" name=Email size="18" maxlength="50"></font></td>
</tr>
<tr>
<td width="1%" height="20">Ønsket Brugernavn</td>
<td width="106%" height="20">
<font face="Verdana">
<input type=text style="border:1px solid rgb(0,0,0); COLOR: #000000; BACKGROUND-COLOR: #e6ebed" name=Brugernavn size="18" maxlength="50"></font></td>
</tr>
<tr>
<td width="1%" height="20">Ønsket Password</td>
<td width="106%" height="20">
<font face="Verdana">
<input type=text style="border:1px solid rgb(0,0,0); COLOR: #000000; BACKGROUND-COLOR: #e6ebed" name=Password size="18" maxlength="50"></font></td>
</tr>
<tr>
<td width="1%" height="20">Hvor Bor Du</td>
<td width="106%" height="20"><select size="1" style="border:1px solid rgb(0,0,0); COLOR: #000000; BACKGROUND-COLOR: #e6ebed" name="Region">
<option selected value="Nordjylland">Nordjylland</option>
<option value="Østjylland">Østjylland</option>
<option value="Vestjylland">Vestjylland</option>
<option value="Midtjylland">Midtjylland</option>
<option value="Sønderjylland">Sønderjylland</option>
<option value="Fyn og Øer">Fyn og Øer</option>
<option value="Nordsjælland">Nordsjælland</option>
<option value="København">København</option>
<option value="Vestsjælland">Vestsjælland</option>
<option value="Sydsjælland">Sydsjælland</option>
<option value="Bornholm">Bornholm</option>
</select></td>
</tr>
<tr>
<td width="1%" height="20">Din Fødselsdag</td>
<td width="106%" height="20"><select size="1" style="border:1px solid rgb(0,0,0); COLOR: #000000; BACKGROUND-COLOR: #e6ebed" name="Day">
<option selected value="1">01</option>
<option value="2">02</option>
<option value="3">03</option>
<option value="4">04</option>
<option value="5">05</option>
<option value="6">06</option>
<option value="7">07</option>
<option value="8">08</option>
<option value="9">09</option>
<option value="10">10</option>
<option value="11">11</option>
<option value="12">12</option>
<option value="13">13</option>
<option value="14">14</option>
<option value="15">15</option>
<option value="16">16</option>
<option value="17">17</option>
<option value="18">18</option>
<option value="19">19</option>
<option value="20">20</option>
<option value="21">21</option>
<option value="22">22</option>
<option value="23">23</option>
<option value="24">24</option>
<option value="25">25</option>
<option value="26">26</option>
<option value="27">27</option>
<option value="28">28</option>
<option value="29">29</option>
<option value="30">30</option>
<option value="31">31</option>
</select> - <select size="1" style="border:1px solid rgb(0,0,0); COLOR: #000000; BACKGROUND-COLOR: #e6ebed" name="Month">
<option selected value="1">Januar</option>
<option value="2">Februar</option>
<option value="3">Marts</option>
<option value="4">April</option>
<option value="5">Maj</option>
<option value="6">Juni</option>
<option value="7">Juli</option>
<option value="8">August</option>
<option value="9">September</option>
<option value="10">Oktober</option>
<option value="11">November</option>
<option value="12">December</option>
</select></td>
</tr>
<tr>
<td width="1%" height="50">Dine Hobbyer</td>
<td width="106%" height="50">
<textarea rows="3" style="border:1px solid rgb(0,0,0); COLOR: #000000; BACKGROUND-COLOR: #e6ebed" name="Hobbyer" cols="23"></textarea></td>
</tr>
<tr>
<td width="1%" height="50">Info Om Dig</td>
<td width="106%" height="50">
<textarea rows="3" style="border:1px solid rgb(0,0,0); COLOR: #000000; BACKGROUND-COLOR: #e6ebed" name="Info" cols="23"></textarea></td>
</tr>
<tr>
<td width="1%" height="20">Skjul Mail Adresse</td>
<td width="106%" height="20">
<input type="checkbox" style="border:1px solid rgb(0,0,0); COLOR: #000000; BACKGROUND-COLOR: #e6ebed" name="Skjul" value="1"></td>
</tr>
<tr>
<td width="1%" height="16"></td>
<td width="106%" height="16"></td>
</tr>
<tr>
<td width="1%" height="23"> </td>
<td width="106%" height="23">
<input type="submit" value="Opret Bruger" style="border:1px solid rgb(0,0,0); COLOR: #000000; FONT-SIZE: 10px; BACKGROUND-COLOR: #e6ebed"></td>
</tr>
<tr>
<td width="23%" height="16"></td>
<td width="77%" height="16"></td>
</tr>
</table>
</form>
</td>
</tr>
<%end if%>
<tr>
<td width="100%" height="17" valign="top">
<%if page="gem" then
if Request.form("Brugernavn") = "" then Response.redirect("default.asp?error=Du glemte at vælge et brugernavn! <a href='java script:history.back(1)'>Tilbage</a>") end if
if Request.form("Password") = "" then Response.redirect("default.asp?error=Du glemte at vælge et password! <a href='java script:history.back(1)'>Tilbage</a>") end if
if Request.form("Email") = "" then Response.redirect("default.asp?error=Du glemte at skrive en e-mail adresse! <a href='java script:history.back(1)'>Tilbage</a>") end if
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From Brugere where brugernavn = '" & Request.form("brugernavn") & "'"
rs.Open strSQL, Conn, 1, 3
'//Tjecker om brugernavnet er optaget!
If Not (rs.BOF Or rs.EOF) Then
Response.Redirect("default.asp?page=fejl&error=Brugernavnet er desværre optaget, og du må vælge et andet! <a href='java script:history.back(1)'>Tilbage</a>")
end if
rs.addnew
rs("Navn") = Request.form("Navn")
rs("Brugernavn") = Request.form("Brugernavn")
rs("Password") = Request.form("Password")
rs("Hobbyer") = Request.form("Hobbyer")
rs("Info") = Request.form("Info")
rs("Region") = Request.form("Region")
rs("Day") = Request.form("Day")
rs("Month") = Request.form("Month")
rs("Email") = Request.form("Email")
rs("IP") = Request.ServerVariables("REMOTE_ADDR")
rs.update
'// Jmail starter her
'// her under sender vi en velkomst mail til brugeren om han er oprettet
'// du kan slette her fra til jmail slut teksten
'// hvis du ikke har understøttelse for jmail på serveren..
on error resume next
'// RETTELSER START! I følgende sætninger skal du rette domain til dit eget domain, og din egen velkomst tekst..
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "mail.domain.dk"
JMail.Sender = "mailrobot@domain.dk"
JMail.Subject = "Velkommen til mit community"
JMail.AddRecipient ""&request.form("Email")&""
JMail.Priority = 1
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.HTMLBody = "Hej "&request.form("Brugernavn")&", mange gange velkommen på <a href='
www.domain.dk</a>" target="_blank">http://www.domain.dk'>
www.domain.dk</a>, du har netop oprettet dig selv som bruger, dit brugernavn er: "&request.form("Brugernavn")&" og dit password er: "&request.form("Password")&" god fornøjelse på <a href='
www.domain.dk</a>.."" target="_blank">http://www.domain.dk'>
www.domain.dk</a>.." '// RETTELSER SLUT!..
JMail.Execute
Set JMail = Nothing
'// Jmail slutter her, du kan slette her fra op til jmail start teksten..
Response.Write("Velkommen "&Request.Form("Brugernavn")&", du er nu oprettet som bruger, og kan <b><a href='default.asp'>logge ind her</a></b>, dine login oplysninger er desuden sendt til din mail adresse!")%>
</td>
</tr>
<%end if%>
<tr>
<td width="100%" height="17" valign="top">
<%if page="logged_in" then
if session("Brugernavn")="" then response.redirect("default.asp?error=Du skal logge ind for at se siden") end if%>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber4">
<tr>
<td width="100%">Hej <%=session("Brugernavn")%>..<br><%if session("Admin")=True then response.write("Du er admin så du har adgang til admin funktionerne<br>") end if%><br>
Du kan rette din profil <a href="default.asp?page=ret">her</a>..<br>
</td>
</tr>
<tr><td>
<%sql = "select * from Brugere where Month="&Month(now)&" ORDER BY Brugernavn"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, Conn, 1, 3
If rs.Eof or rs.Bof then
response.write("<table><tr><td>Der er ingen brugere der har fødselsdag i denne måned..</td></tr></table>")
else
response.write("<table border=""0""><tr><td>Fødselsdage i denne måned..</td></tr>")
Do Until rs.eof
response.write("<tr><td><a href=""mailto:"&rs("Email")&""">"&rs("Brugernavn")&"</a> har fødselsdag den: "&rs("Day")&"-"&rs("Month")&"-"&Year(now)&"</td></tr>")
rs.movenext
loop
response.write("<tr><td>Klik på navnet for at sende en fødselsdags hilsen..</td></tr></table>")
'//Her lukker vi efter os!
rs.Close
Set rs = Nothing
end if%>
</td></tr>
</table>
</td>
</tr>
<%end if%>
<%if page="upload" then%>
<FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="default.asp?page=gem_upload">
<tr>
<td width="100%" height="17" valign="top">
<p><font face="Verdana" size="1">Hver sød kun at upload jpg og gif
filer..</font></p>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<tr>
<td width="13%"><b><font size="1" face="Verdana">Billede fil:</font></b></td>
<td width="87%"><INPUT TYPE=FILE NAME="THEFILE" size="20"></td>
</tr>
<tr>
<td width="13%"> </td>
<td width="87%"> </td>
</tr>
<tr>
<td width="13%"> </td>
<td width="87%">
<INPUT TYPE=SUBMIT VALUE="Upload!"></td>
</tr>
</table></FORM>
</td></tr>
<%end if%>
<!-- ASP Upload Start -->
<%if page="gem_upload" then
Set Upload = Server.CreateObject("Persits.Upload")
' we use memory uploads, so we must limit file size
Upload.SetMaxSize 250000, True
' Intercept all exceptions to display user-friendly error
On Error Resume Next
' Save to memory. Path parameter is omitted
Upload.OverwriteFiles = False
'// RETTELSE HER - ret stien til din profil billede mappe..
Count = Upload.Save("d:\home\tooniedk\www\design\community2002\profil_billeder")
' 8 is the number of "File too large" exception
If Err.Number = 8 Then
Response.Write "Billede filen er for store, max 250 kb."
Else
If Err <> 0 Then
Response.Write "ERROR! : " & Err.Description
Else
Response.Write "Whoohaaaa! "
End If
End If
' Obtain file object
Set File = Upload.Files("THEFILE")
If Not File Is Nothing Then
' Build ADO connection string
Connect = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("BangDesign.mdb")
' If you use SQL Server, the connecton string must look something like this:
' Connect = "Provider=SQLOLEDB;Server=MYSRV;Database=master;UID=sa;PWD=xxx"
' Use ADO Recordset object
Set rs = Server.CreateObject("adodb.recordset")
' Reopen recordset to insert file
rs.Open "Brugere", Connect, 2, 3
rs.Update
rs("billede") = File.ExtractFilename
rs.Update
Response.redirect "default.asp?page=logged_in"
Else
Response.Write "<br>.. Billedet var ikke uploadet.."
End If%>
</td></tr>
<%end if%>
<!-- ASP Upload Slut -->
<%if page="logoff" then
if session("Brugernavn")="" then response.redirect("default.asp?error=Du skal være logget ind for at kunne logge af") end if
session.abandon
response.redirect("default.asp?error=Du er nu logget af")
end if
if page="ret" then%>
<tr><td>Du kan uploade et billede <a href="default.asp?page=upload">her</a>..<br></td></tr>
<%if session("Brugernavn")="" then response.redirect("default.asp?error=Du skal logge ind for at redigere i din profil") end if
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM Brugere where brugernavn = '" & Session("brugernavn") & "'"
rs.Open strSQL, Conn, 1, 3%>
<tr>
<td width="100%" height="17" valign="top">
<form method="POST" action="default.asp?page=opdater">
<table width="562">
<tr>
<td width="195">Dit Navn</td>
<td width="357">
<font face="Verdana">
<input type=text style="border:1px solid rgb(0,0,0); COLOR: #000000; BACKGROUND-COLOR: #e6ebed" name=Navn size="18" maxlength="255" value="<%=rs("Navn")%>"></font></td>
</tr>
<tr>
<td width="195">Din E-mail</td>
<td width="357">
<font face="Verdana">
<input type=text style="border:1px solid rgb(0,0,0); COLOR: #000000; BACKGROUND-COLOR: #e6ebed" name=Email size="18" maxlength="50" value="<%=rs("Email")%>"></font></td>
</tr>
<tr>
<td width="195">Password</td>
<td width="357">
<font face="Verdana">
<input type=password style="border:1px solid rgb(0,0,0); COLOR: #000000; BACKGROUND-COLOR: #e6ebed" name=Password size="18" maxlength="50" value="<%=rs("Password")%>"></font></td>
</tr>
<tr>
<td width="195">Hvor Bor Du</td>
<td width="357"><select size="1" style="border:1px solid rgb(0,0,0); COLOR: #000000; BACKGROUND-COLOR: #e6ebed" name="Region">
<option selected value="<%=rs("Region")%>"><%=rs("Region")%></option>
<option value="Nordjylland">Nordjylland</option>
<option value="Østjylland">Østjylland</option>
<option value="Vestjylland">Vestjylland</option>
<option value="Midtjylland">Midtjylland</option>
<option value="Sønderjylland">Sønderjylland</option>
<option value="Fyn og Øer">Fyn og Øer</option>
<option value="Nordsjælland">Nordsjælland</option>
<option value="København">København</option>
<option value="Vestsjælland">Vestsjælland</option>
<option value="Sydsjælland">Sydsjælland</option>
<option value="Bornholm">Bornholm</option>
</select></td>
</tr>
<tr>
<td width="195">Din Fødselsdag</td>
<td width="357"><select size="1" style="border:1px solid rgb(0,0,0); COLOR: #000000; BACKGROUND-COLOR: #e6ebed" name="Day">
<option selected value="<%=rs("Day")%>"><%=rs("Day")%></option>
<option value="1">01</option>
<option value="2">02</option>
<option value="3">03</option>
<option value="4">04</option>
<option value="5">05</option>
<option value="6">06</option>
<option value="7">07</option>
<option value="8">08</option>
<option value="9">09</option>
<option value="10">10</option>
<option value="11">11</option>
<option value="12">12</option>
<option value="13">13</option>
<option value="14">14</option>
<option value="15">15</option>
<option value="16">16</option>
<option value="17">17</option>
<option value="18">18</option>
<option value="19">19</option>
<option value="20">20</option>
<option value="21">21</option>
<option value="22">22</option>
<option value="23">23</option>
<option value="24">24</option>
<option value="25">25</option>
<option value="26">26</option>
<option value="27">27</option>
<option value="28">28</option>
<option value="29">29</option>
<option value="30">30</option>
<option value="31">31</option>
</select> - <select size="1" style="border:1px solid rgb(0,0,0); COLOR: #000000; BACKGROUND-COLOR: #e6ebed" name="Month">
<option selected value="<%=rs("Month")%>"><%=rs("Month")%></option>
<option value="1">Januar</option>
<option value="2">Februar</option>
<option value="3">Marts</option>
<option value="4">April</option>
<option value="5">Maj</option>
<option value="6">Juni</option>
<option value="7">Juli</option>
<option value="8">August</option>
<option value="9">September</option>
<option value="10">Oktober</option>
<option value="11">November</option>
<option value="12">December</option>
</select></td>
</tr>
<tr>
<td width="195">Dine Hobbyer</td>
<td width="357">
<textarea rows="3" style="border:1px solid rgb(0,0,0); COLOR: #000000; BACKGROUND-COLOR: #e6ebed" name="Hobbyer" cols="23"><%=rs("Hobbyer")%></textarea></td>
</tr>
<tr>
<td width="195">Info Om Dig</td>
<td width="357">
<textarea rows="3" style="border:1px solid rgb(0,0,0); COLOR: #000000; BACKGROUND-COLOR: #e6ebed" name="Info" cols="23"><%=rs("Info")%></textarea></td>
</tr>
<tr>
<td width="195">Skjul Mail Adresse</td>
<td width="357">
<input type="radio" value="1" name="Skjul"> Ja<br>
<input type="radio" name="Skjul" value="0" checked> Nej</td>
</tr>
<tr>
<td width="195">Modtag Nyhedsbrev</td>
<td width="357">
<input type="radio" value="1" checked name="Nyheder"> Ja<br>
<input type="radio" name="Nyheder" value="0"> Nej</td>
</tr>
<tr>
<td width="195"> </td>
<td width="357">
</td>
</tr>
<tr>
<td width="195"> </td>
<td width="357">
<input type="submit" value="Opdater Bruger" style="border:1px solid rgb(0,0,0); COLOR: #000000; FONT-SIZE: 10px; BACKGROUND-COLOR: #e6ebed"></td>
</tr>
<tr>
<td width="195"> </td>
<td width="357"> </td>
</tr>
</table>
</form>
</td>
</tr>
</table>
</td>
</tr>
<%rs.Close
Set rs = Nothing
end if
if page="opdater" then
if Request.form("Password") = "" then Response.redirect("default.asp?error=Du glemte at vælge et password! <a href='java script:history.back(1)'>Tilbage</a>") end if
if Request.form("Email") = "" then Response.redirect("default.asp?error=Du glemte at skrive en e-mail adresse! <a href='java script:history.back(1)'>Tilbage</a>") end if
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From Brugere where brugernavn = '" & session("brugernavn") & "'"
rs.Open strSQL, Conn, 1, 3
'//Tjecker om brugernavnet er optaget!
rs.update
rs("Navn") = Request.form("Navn")
rs("Password") = Request.form("Password")
rs("Hobbyer") = Request.form("Hobbyer")
rs("Info") = Request.form("Info")
rs("Region") = Request.form("Region")
rs("Day") = Request.form("Day")
rs("Month") = Request.form("Month")
rs("Email") = Request.form("Email")
rs("Skjult_Mail") = Request.form("Skjul")
rs("Maillist") = Request.form("Nyheder")
rs("IP") = Request.ServerVariables("REMOTE_ADDR")
rs.update
rs.Close
Set rs = Nothing
Response.write("Din profil blev opdateret..")
end if%>
<%if page="profil" then
if session("Brugernavn")="" then response.redirect("default.asp?error=Du skal logge ind for at se profiler") end if
sql = "select * from Brugere ORDER BY Brugernavn"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, Conn, 1, 3 %>
<tr>
<td width="100%" height="17" valign="top">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber5" height="35">
<tr>
<td width="31%" height="18">Brugernavn</td>
<td width="69%" height="18">Mail</td>
</tr>
<%Do While not rs.eof%>
<tr>
<td width="31%" height="16"><a href="default.asp?page=view&ID=<%=rs("ID")%>"><%=rs("Brugernavn")%></a><%if session("Admin")=True then response.write(" - <a href=""default.asp?page=slet&id="&rs("ID")&""">Slet Bruger</a>") end if%></td>
<td width="69%" height="16"><a href="default.asp?page=new&MailModtager=<%=rs("Brugernavn")%>">Send mail</a></td>
</tr>
<%rs.movenext
loop
rs.Close
Set rs = Nothing%>
</table>
</td></tr>
<%end if%>
<%if page="view" then
if session("Brugernavn")="" then response.redirect("default.asp?error=Du skal logge ind for at se profiler") end if
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM Brugere where ID = " & Request.Querystring("ID") & ""
rs.Open strSQL, Conn, 1, 3
info = Replace(rs("Info"), VbCrLF, "<br>")
hobbyer = Replace(rs("Hobbyer"), VbCrLF, "<br>")%>
<tr>
<td width="100%" height="17" valign="top">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber6">
<tr>
<td width="100%" colspan="2">Hej <%=session("Brugernavn")%> her kan du se min profil..<br>Du kan sende mig en besked
<a href="default.asp?page=new&MailModtager=<%=rs("Brugernavn")%>">her</a>..<br>
</td>
</tr>
<tr>
<td width="24%">Brugernavn</td>
<td width="76%"><%=rs("Brugernavn")%></td>
</tr>
<tr>
<td width="24%">Rigtigt Navn</td>
<td width="76%"><%=rs("Navn")%></td>
</tr>
<tr>
<td width="24%">E-mail Adresse</td>
<td width="76%"><%if rs("Skjult_Mail")=True then response.write("Mail Adresse Skjult") else response.write(""&rs("Email")&"") end if%></td>
</tr>
<tr>
<td width="24%">Fødselsdag</td>
<td width="76%"><%=rs("Day")%>/<%=rs("Month")%></td>
</tr>
<tr>
<td width="24%" valign="top">Hobbyer</td>
<td width="76%" valign="top"><%=Hobbyer%></td>
</tr>
<tr>
<td width="24%" valign="top">Info Om Brugeren</td>
<td width="76%" valign="top"><%=Info%></td>
</tr>
<tr>
<td width="24%">Billede</td>
<td width="76%"><img src="profil_billeder/<%=rs("billede")%>"></td>
</tr>
<tr>
<td width="24%"> </td>
<td width="76%"> </td>
</tr>
<tr>
<td width="24%"> </td>
<td width="76%"> </td>
</tr>
<tr>
<td width="24%"> </td>
<td width="76%"> </td>
</tr>
</table>
</td></tr>
<%end if%>
<%if page="inbox" then
if session("Brugernavn")="" then response.redirect("default.asp?error=Du skal logge ind for at tjekke mail") end if%>
<tr>
<td width="100%" height="17" valign="top">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<tr>
<td width="50%" colspan="2"><b>Din Indbakke</b></td>
<td width="50%" colspan="2">
<p align="right"><b><%
Set Rs = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("BangDesign.mdb")
Rs.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
Sql = "Select count(*) as Found from Mails where MailModtager='"& Session("brugernavn") &"'"
Set Record = Rs.Execute(Sql)
Ialt = Record("found")
%>
Du har <% =ialt %> mails i din indbakke</b></td>
</tr>
<tr>
<td width="100%" colspan="4"><hr color="#FFFF80" size="4"></td>
</tr>
<tr>
<td width="32%"><b>Fra</b></td>
<td width="36%" colspan="2"><font face="Verdana"><b>Emne</b></td>
<td width="32%"><b>Modtaget</b></td>
</tr>
<%sql = "select * from Mails where MailModtager='"& Session("Brugernavn") &"' ORDER BY MailId Desc"
Set rs = Server.CreateObject("ADODB.Recordset")
set rs = Conn.execute(SQL)
Set myConn = Server.CreateObject("ADODB.Connection")
Do until rs.eof%>
<tr>
<td width="32%"><a href="default.asp?page=read&Id=<%=rs("MailId")%>"><<%=rs("Foran")%>><%=rs("MailAfsender")%><<%=rs("bag")%>></a></td>
<td width="36%" colspan="2"><%=rs("MailEmne")%></td>
<td width="32%"><%=rs("Dato")%></td>
</tr>
<%rs.movenext
loop
rs.Close
Set rs = Nothing%>
</table>
</td></tr>
<%end if%>
<%if page="new" then
if session("Brugernavn")="" then response.redirect("default.asp?error=Du skal logge ind for at sende mails") end if%>
<tr>
<td width="100%" height="17" valign="top">
<%Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From Brugere where brugernavn='"&request.querystring("MailModtager")&"'"
rs.Open strSQL, Conn, 1, 3 %>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2">
<tr>
<td width="100%" colspan="2"><b><font face="Verdana">Skriv Ny Mail</font></b></td>
</tr>
<form method=post action=default.asp?page=gem_mail>
<tr>
<td width="100%" colspan="2"><hr color="#FFFF80" size="4"></td>
</tr>
<tr>
<td width="24%"><font size="2" face="Verdana">Til Bruger</font></td>
<td width="76%">
<input type="text" name="MailModtager" size="20" value="<%=Request.QueryString("MailModtager")%>"></td>
</tr>
<tr>
<td width="24%"><font size="2" face="Verdana">Mail Emne</font></td>
<td width="76%"><input type="text" name="MailEmne" size="20"></td>
</tr>
<tr>
<td width="24%" valign="top"><font size="2" face="Verdana">Mail Indhold</font></td>
<td width="76%"><textarea rows="6" name="MailIndhold" cols="27"></textarea></td>
</tr>
<tr>
<td width="24%"> </td>
<td width="76%"> </td>
</tr>
<tr>
<td width="24%"> </td>
<td width="76%"><input type="submit" value="Send Mail" name="Post"></td>
</tr>
</table>
<input type="hidden" name="Brugernavn" value="<%=rs("Brugernavn")%>">
<input type="hidden" name="Email" value="<%=rs("Email")%>">
</form>
</td></tr>
<%end if%>
<%if page="gem_mail" then%>
<tr>
<td width="100%" height="17" valign="top">
<%Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From Mails"
rs.Open strSQL, Conn, 1, 3
rs.addnew
rs("MailModtager") = request.form("MailModtager")
rs("MailAfsender") = Session("Brugernavn")
rs("MailEmne") = Request.form("MailEmne")
rs("MailIndhold") = Request.form("MailIndhold")
rs("AfsenderIP") = Request.ServerVariables("REMOTE_ADDR")
rs.update
'// Jmail starter her
'// her under sender vi en besked til brugeren om der er nu intern mail på dit community
'// du kan slette her fra til jmail slut teksten
'// hvis du ikke har understøttelse for jmail på serveren..
on error resume next
'// RETTELSER START! I følgende sætninger skal du rette domain til dit eget domain, og din egen besked tekst..
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "mail.domain.dk"
JMail.Sender = "mailrobot@domain.dk"
JMail.Subject = "Ny intern mail venter på domain.dk"
JMail.AddRecipient ""&request.form("Email")&""
JMail.Priority = 1
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
' ********** Her starter selve email-en
JMail.HTMLBody = "Hej "&request.form("Brugernavn")&", Der er netop blevet sendt en intern mail til dig på domain.dk's community log ind på <a href='
www.domain.dk</a>.."" target="_blank">http://www.domain.dk'>
www.domain.dk</a>.." JMail.Body = "Hej "&request.form("Brugernavn")&", Der er netop blevet sendt en intern mail til dig på domain.dk's forum log ind på
www.domain.dk.." ' ********** Her slutter selve email-en
'// RETTELSER SLUT!..
JMail.Execute
Set JMail = Nothing
'// Jmail slutter her, du kan slette her fra op til jmail start teksten..
rs.Close
Set rs = Nothing
Conn.Close
set Conn = Nothing
Response.Write("Din mail af afsendt! til "& request.form("MailModtager") &"")
end if %>
<%if page="read" then
if session("Brugernavn")="" then response.redirect("default.asp?error=Du skal logge ind for at læse mail") end if
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * from mails where MailId = " & Request.Querystring("Id") & ""
rs.Open strSQL, Conn, 1, 3
rs("Foran") = "i"
rs("Bag") = "/i"
rs.Update
if rs("MailModtager") <> session("Brugernavn") then Response.Redirect("default.asp?page=inbox") end if
%>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber4">
<tr>
<td width="100%"><b>Læs Mail</b></td>
</tr>
<tr>
<td width="100%"><hr color="#FFFF80" size="4"></td>
</tr>
<tr>
<td width="100%"><font color="#000080">Modtaget fra</font> <%=rs("MailAfsender")%>
<font color="#000080">den</font> <%=rs("Dato")%><br><font color="#000080">Denne mail drejer sig om:</font> <%=rs("MailEmne")%></font></td>
</tr>
<tr>
<td width="100%"><i><%=rs("MailIndhold")%></i></td>
</tr>
<tr>
<td width="100%">
<a href="default.asp?page=delete&MailId=<%=rs("MailId")%>">Slet denne mail</a> -
<a href="mail.asp?page=new&MailModtager=<%=rs("MailAfsender")%>">Besvar Denne Mail</a> -
<a href="java script:history.back(1)">Tilbage</a></td>
</tr>
</table>
<%
rs.Close
Set rs = Nothing%>
</td></tr>
<%end if%>
<% if page = "delete" then
strSQL = "Select * from Mails where MailId = " & Request.Querystring("MailId") & ""
Set rs = Conn.Execute("select * from Mails where MailId = " & Request.QueryString("MailId"))
if rs("MailModtager") = Session("Brugernavn") then
conn.Execute("delete from mails where MailId = " & Request.QueryString("MailId") & "")
response.write("Mailen blev slettet")
end if
end if
%>
<% if page="slet" then%>
<tr>
<td width="100%" height="17" valign="top">
<%if session("Admin")=True then
dim id,SQLstringK
id = Trim(Request.QueryString("id"))
SQLstringK="DELETE FROM Brugere WHERE ID="&id&""
Conn.Execute(SQLstringK)
response.write "Bruger slettet"%>
</td></tr>
<%else
response.redirect("default.asp?error=Du er ikke en admin så du kan ikke slette brugere") end if
end if
if page="maillist" then
if session("Admin")=True then%>
<tr>
<td width="100%" height="17" valign="top">
Kopiere mail adresserne i boksen, og paste det i din email klient i BCC
feltet..<br>
</td></tr>
<tr><td>
<%Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * from Brugere where Maillist=True order by ID"
rs.Open strSQL, Conn, 1, 3 %>
<textarea rows="6" name="Mails" cols="27"><%Do until rs.eof%><%=rs("Email")%>; <%rs.movenext
loop%></textarea>
</td></tr>
<%else
Response.redirect("default.asp?error=Du er ikke admin så kan ikke sende nyhedsbrev ud") end if
end if%>
</table>
<p><font size="1" face="Verdana">Dette community er udviklet af
<a target="_blank" href="
http://bang-design.dk">Claus Bang Andersen</a>.. </font>
</p>
</body>
</html>
<%Conn.Close
Set Conn = Nothing%>
