Søg
Avatar billede jesper2003 Nybegynder
27. marts 2004 - 15:27 Der er 25 kommentarer og
1 løsning

Instalering af Aspsmart upload på windows server 2003

Hvor dan gør jeg???
Avatar billede tzag_dk Nybegynder
27. marts 2004 - 15:36 #1
hvor langt er du nået?
Avatar billede jesper2003 Nybegynder
27. marts 2004 - 15:37 #2
Jeg har kun downloadet denne:
Download the world famous aspSmartUpload FREE component [Windows 2003 and IIS6
Avatar billede tzag_dk Nybegynder
27. marts 2004 - 15:41 #3
ok, har du kopieret den fil ind i c:/windows/system32 ?
Avatar billede jesper2003 Nybegynder
27. marts 2004 - 15:44 #4
Jeg har ikke pakket noget ud
Avatar billede KingMedia Novice
27. marts 2004 - 15:44 #5
http://www.aspsmart.com/aspSmartUpload/liblocal/docs/Setup.htm
Avatar billede jesper2003 Nybegynder
27. marts 2004 - 15:46 #6
Kan ikke finde ud af den jeg vel ha den på dansk tak
Avatar billede tzag_dk Nybegynder
27. marts 2004 - 15:46 #7
Du skal have aspSmartUpload.dll og aspSmartUploadUtil.dll i system32 mappen!

1. så skal du åbne en komando promt, og gå ind i system32 mappen.

2. Der skriver du: regsvr32 aspSmartUpload.dll
Avatar billede tzag_dk Nybegynder
27. marts 2004 - 15:49 #8
Har du gjort det?
Avatar billede KingMedia Novice
27. marts 2004 - 15:50 #9
jesper2003 >> 

Hvordan vil du (undskyld sproget) nogensinde klare dig gennem programmering, serverObjects, komponenter osv osv, hvis du skal have alt dokumentation på dansk ? :o)

hele "verdenen" af programmering bærer i den grad præg af at man kan læse og forstå engelsk ..  du må ikke tage det som om at jeg "sviner" på nogen måde, for det er SLET ikke meningen :o)

Det jeg mener er bare, at du burde tage dig tiden til at gennemgå det på engelsk :o)

/Mads
Avatar billede jesper2003 Nybegynder
27. marts 2004 - 15:51 #10
Takker tzag.com  skriv et svar
Avatar billede tzag_dk Nybegynder
27. marts 2004 - 15:52 #11
kingmedia >>

Ja... Det kunne du jo godt have ret i :-)
Bare selve programeringen er på engelse!
Avatar billede jesper2003 Nybegynder
27. marts 2004 - 15:53 #12
Jeg kan godt finde ud af andre ting på engelsk men jeg kunne bare ikke finde ud af det med asp upload. vis jeg ikke kunne engelsk sår kunne jeg nok ikke opsætte min server
Avatar billede tzag_dk Nybegynder
27. marts 2004 - 15:54 #13
jesper2003 >>

Vi er ikke færdig endnu, der skal også rettigheder på de to filer!

1. IUSR skal have lov til at bruge filen.

2. Og så skal brugeren af websiden have fuld rettigheder.
Avatar billede KingMedia Novice
27. marts 2004 - 15:54 #14
og jesper2003 ..  ville med glæde hjælpe, men tzag.com var allerede godt igang.. :o)

får du bøvl med aspSmartUpload programmeringen, så kan jeg godt hjælpe, har rodet en del med det :o)

/Mads
Avatar billede jesper2003 Nybegynder
27. marts 2004 - 15:54 #15
Det virker ellers fint nu
Avatar billede tzag_dk Nybegynder
27. marts 2004 - 15:54 #16
ok... så fik vi det afklaret :-)
Avatar billede jesper2003 Nybegynder
27. marts 2004 - 15:55 #17
kingmedia ok
Avatar billede tzag_dk Nybegynder
27. marts 2004 - 15:55 #18
hmm... Det burde det ikke!
men ok :-)

Svar :-)
Avatar billede jesper2003 Nybegynder
27. marts 2004 - 16:09 #19
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>
    &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
    <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>
&nbsp;</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%">&nbsp;</td>
    <td width="82%">&nbsp;</td>
  </tr>
  <tr>
    <td width="18%">&nbsp;</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>
&nbsp;</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">&nbsp;</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">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">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%">&nbsp;</td>
            <td width="87%">&nbsp;</td>
          </tr>
          <tr>
            <td width="13%">&nbsp;</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">&nbsp;</td>
    <td width="357">
    &nbsp;</td>
    </tr>
    <tr>
    <td width="195">&nbsp;</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">&nbsp;</td>
      <td width="357">&nbsp;</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>
&nbsp;</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%">&nbsp;</td>
    <td width="76%">&nbsp;</td>
  </tr>
  <tr>
    <td width="24%">&nbsp;</td>
    <td width="76%">&nbsp;</td>
  </tr>
  <tr>
    <td width="24%">&nbsp;</td>
    <td width="76%">&nbsp;</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%">&nbsp;</td>
    <td width="76%">&nbsp;</td>
  </tr>
  <tr>
    <td width="24%">&nbsp;</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">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%>
Avatar billede KingMedia Novice
27. marts 2004 - 16:16 #20
så vidt jeg husker, er det fordi din database ikke har skriverettigheder, eller mappen den ligger i ikke har skriverettigheder.. :o)

/Mads
Avatar billede jesper2003 Nybegynder
27. marts 2004 - 16:20 #21
Hvor dan laver man det jeg kan ikke huske det for jeg bruger normalt mysql
Avatar billede jesper2003 Nybegynder
27. marts 2004 - 16:23 #22
Men jeg kan alser godt oprette brugerere på mit community
http://guffe.guf4you.dk/test/community/
Avatar billede KingMedia Novice
27. marts 2004 - 16:29 #23
Hmm 2 sek ..
Avatar billede jesper2003 Nybegynder
27. marts 2004 - 16:34 #24
Har du msn? det går lidt hurtigere
Avatar billede jesper2003 Nybegynder
27. marts 2004 - 16:41 #25
Har lige tilføjet dej på min msn
Avatar billede KingMedia Novice
27. marts 2004 - 16:52 #26
Din sti til databasen er forkert.. 

du skal ændre

Server.MapPath("BangDesign.mdb")

til

Server.MapPath("/test/community/BangDesign.mdb")

/Mads
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
Seneste spørgsmål Seneste aktivitet
I går 16:51 Links m.m. virker ikke Af Kjeld Aage Christiansen i PC
I går 11:04 Outlookproblem Af g91 i E-mail programmer
I går 09:21 Firefox - Bøvl med idelig genbekræftelse af identitet Af andershl i Browsere
17/0815:14 Sætte billeder ind i google sheets ark ud fra elev nummer Af lurup i Excel
16/0822:58 Kan man undgå at få vist referer når der klikkes på links Af Strawberry i Browsere
White papers
Flere white papers »