Web Analytics Made Easy -
StatCounter Help finding an ASP script - CodingForum

Announcement

Collapse
No announcement yet.

Help finding an ASP script

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

  • Help finding an ASP script

    I want to make a script that registars a user, lets them login, enter events into a calendar (only if they are a member), sign a guestbook (don't have to be a member), enter details onto an online database about there car insurance (don't have to be a member).
    The members list i want to use as a mailing list as well.

    I want to use access as the database to store it on but i can't connect with dsn.

    I have found asp scripts that have a calendar, guest book but they all use dsn to connect and i don't know eoungh not to setup a dsnless conection.

    I would also like a script so i can get the user to rate certain links.

    I know this sounds like alot but when i have the basic of adding to an Access database from an ASP page, i think i can learn the rest

  • #2
    Andy,

    the best thing for you to do is to start working on it yourself (cause the scripts you asked for are a lot of work) and when you get stuck, ask us some questions...

    no one really has time to build you a custom script/application unless you're paying them to do so...

    if you want to learn, make mistakes... then ask for help!

    Happy programming

    ~Quack

    Comment


    • #3
      On my website I have a free ASP login/registration script you can use - I limited it to that to keep it simple, but you should be able to add the other stuff you want.

      P.S. It uses a DSN-less Access DB connection (from brinkster.com).

      Former ASP Forum Moderator - I'm back!

      If you can teach yourself how to learn, you can learn anything. ;)

      Comment


      • #4
        Thanks for that

        I have downloaded and have PWS on my machine, but i get this error

        Microsoft JET Database Engine error '80004005'

        'C:\Inetpub\db\userpass.mdb' is not a valid path. Make sure that the path name is spelled correctly and that you are connected to the server on which the file resides.

        /nimblenova/login/login/validate_register.asp, line 38

        I think the problem is C:\Inetpub\, this is not where the database is.

        This is from validate.asp
        the code in question are

        Set TheConnection = Server.CreateObject("ADODB.Connection")
        'ThePath = Server.MapPath("./db/userpass.mdb")
        'TheConnection.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & ThePath

        sConnString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="
        sMapPath = Server.MapPath("\")
        sMapPath = Mid(sMapPath, 1, InStrRev(sMapPath,"\")-1) & "./db/userpass.mdb ;" & _
        "Persist Security Info=False;"
        sConnString = sConnString & sMapPath
        TheConnection.Open sConnString


        the red bits are the database.

        any ideas

        Comment


        • #5
          whoa, that's alot of code just to connect...

          try this instead

          Set TheConnection = Server.CreateObject("ADODB.Connection")
          TheConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=./db/userpass.mdb"
          TheConnection.Open

          try that..

          Note: if you're using Access 97, cahnge the '4.0' in the connection string to 3.1

          ~Quack

          Comment


          • #6
            Nope still can't getting working

            I put the datbase in the same folder

            entered
            Set TheConnection = Server.CreateObject("ADODB.Connection")
            TheConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=userpass.mdb"
            TheConnection.Open

            And i am getting

            Microsoft JET Database Engine error '80004005'

            Could not find file 'C:\userpass.mdb'.

            /nimblenova/login/login/validate_register.asp, line 31

            I am useing Access 2002

            Comment


            • #7
              Using the orginal script i placed the database in
              'C:\Inetpub\db\userpass.mdb'
              which is where is said it was and it worked.

              But why does it put this C:\intepub on it?

              Comment


              • #8
                try this then...

                Set TheConnection = Server.CreateObject("ADODB.Connection")
                TheConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\inetpub\db\userpass.mdb"
                TheConnection.Open

                see if that works...

                ~Quack

                Comment


                • #9
                  That's set up for brinkster.com, where they have a separate folder named "db" you need to put your databases in. If it's in the same folder as your script just take that part of the path out!

                  Also - if you aren't sure of the exact path of the page in question, you can stick this on the page to give you the local path:

                  <% = Request.ServerVariables("TRANSLATED_PATH") %>

                  Former ASP Forum Moderator - I'm back!

                  If you can teach yourself how to learn, you can learn anything. ;)

                  Comment


                  • #10
                    Hi

                    If your db is not in the same folder as the calling page, you need to refer to the complete virtual path to the data source. You can (and should) use Server.MapPath to point to the correct location of the data source (as refrenced from your virtual root).

                    Avoid using references to your local drive. When you upload to your remote server, the mapping or assignment of your virtual root may not be the same as on your local machine, and you will have to change the reference to the source code correspondingly, for the code to work. If you have a hundred pages, this can be a nightmare.

                    When using Server.MapPath , the path is always referenced from your virtual directory, so the physical location would not matter.

                    There's a similar discussion in this thread
                    http://www.codingforum.net/showthrea...=&threadid=163
                    aspxtreme

                    Comment


                    • #11
                      I think i got that bit working thanks guys
                      This is my new error

                      Server object error 'ASP 0177 : 800401f3'

                      Server.CreateObject Failed

                      /nimblenova/login/login/validate_register.asp, line 148

                      800401f3

                      It comes from this lot
                      <% Sub SendMail() '****************************************************
                      Set objCDO = Server.CreateObject("CDONTS.NewMail")

                      objCDO.To = email
                      objCDO.From = "[email protected]"
                      objCDO.cc = ""
                      objCDO.bcc = ""

                      txtMessage = "========================================================" & CHR(10)
                      txtMessage = txtMessage & "Please confirm your website registration below." & CHR(10)
                      txtMessage = txtMessage & "========================================================" & CHR(10)
                      txtMessage = txtMessage & CHR(10)
                      txtMessage = txtMessage & FormatDateTime(Date(),1) & CHR(10)
                      txtMessage = txtMessage & Time() & CHR(10)
                      txtMessage = txtMessage & "Your IP Address: " & ip & CHR(10)
                      txtMessage = txtMessage & CHR(10)
                      txtMessage = txtMessage & CHR(10)
                      txtMessage = txtMessage & "Please note: You will not be able to access the website until you have confirmed your registration." & CHR(10)
                      txtMessage = txtMessage & "Please click the link below to confirm your registration:" & CHR(10)
                      txtMessage = txtMessage & CHR(10)
                      txtMessage = txtMessage & "http://www.yourwebsite.com/login/confirm.asp?ID=" & id & CHR(10)

                      objCDO.Subject = "Thank you for registering!"
                      objCDO.Body = txtMessage
                      objCDO.Send
                      Set objCDO = Nothing

                      End Sub 'SendMail() '**************************************************** %>

                      And i get the impretion that its because i can't send Email direct from the server

                      Comment


                      • #12
                        You're right - I'd check out 4guysfromrolla.com they probably have an explanation of how to install CDONTS on your server.
                        Former ASP Forum Moderator - I'm back!

                        If you can teach yourself how to learn, you can learn anything. ;)

                        Comment


                        • #13
                          Thanks for all the help guys i think i am starting to get the hang of this now.

                          Comment

                          Working...
                          X