ASP with mySQL

[stevanicus]

Hi ive created a simple asp file with a html form.. you type a username and password... press add... if your already on the database then it says

response.write("couldn't write name <br />")

not a problem.. however if it is a new name... it gives me errors.. could anyone please tell me how to fix this...

thanks in advanced!

steve

sub addUser()
    if user<>"" and pass<>"" and delete="" then
        mySQL = "SELECT userName FROM customers;"
        objRS.Open mySQL, objConn
    do until objRS.EOF
        for each x in objRS.Fields
        dim valueman
        valueman = x.value
            if user<>valueman then
                response.write("wrote: " & user & " with Pass: " & pass & " <br />")
                mySQL = "INSERT INTO customers VALUES('" & user & "','" & pass & "');"
                objRS.Open mySQL, objConn
                call callMSG(user, pass)
            else
                response.write("couldn't write name <br />")
            end if
            if user<>"" and pass<>"" and delete<>"" then
                mySQL = "DELETE FROM customers WHERE userName='"& user &"';"
                Response.Write("User:" & user & " Has been Deleted from the System")
                objRS.Open mySQL, objConn
            end if
        next
        objRS.MoveNext
    loop
    end if
 
end sub

[JamieHowarth0]

Hi Steve,

Make sure that anonymous logons have modify and write permissions on your MySQL database and table - or set up a new user that your connection can then utilise to write and delete users from your DB.

Best regards,

medicineworker

[stevanicus]

hi, thans for getting back..

the code actually works to add a user and pass.. but im trying to make sure if there already is someone by that user that it doesnt add it

thanks

steve

[JamieHowarth0]

Hi steve,

Try this code and see if it works (notice comments also):

Sub addUser()
Select Case delete '<-- Are we deleting a user?
Case "" '<-- Not deleting user
mySQL = "SELECT userName FROM customers WHERE userName = '" & user & "';" '<-- Try and find a user with that username already
objRS.Open mySQL, objConn, 1, 1
If objRS.RecordCount > 0 '<-- If we find a user with that name already... decline the user!
Response.Write("Couldn't write user, username already exists.<br />")
Else '<-- Add new user!
mySQL = "INSERT INTO customers VALUES('" & user & "','" & pass & "');"
objRS.Close
objRS.Open mySQL, objConn, 2, 3
Response.Write("Wrote: " & user & " with password: " & pass & " <br />")
call callMSG(user, pass)
End If
Case Else '<-- Deleting user
mySQL = "DELETE FROM customers WHERE userName='"& user &"';"
objRS.Open mySQL, objConn, 2, 3
Response.Write("User:" & user & " Has been Deleted from the System")
End Select
 
End Sub

Hope it helps.

medicineworker