need help new to this site

dprulhiere · #1 (**permalink**) November 19th, 2004, 05:20 PM

Value is not getting inserted into clearance ( from strAccess to strClearance) Help please

Where is my mistake
Thank you
Attach Code

<%

Dim strAccess
    strClearance = client
    If Request.Form("Access") = "realestatesales" Then
    strAccess = realtor
     End If

set cmdInsert = Server.CreateObject("ADODB.Command")
cmdInsert.ActiveConnection = MM_RFSOnline_STRING
cmdInsert.CommandText = "INSERT INTO personaldata (username, password, clearance, firstname, lastname, spousename, spouselastname, phone, cell, address, city, state, zip, mailaddress, mailcity, mailstate, mailzip) VALUES ('" + Replace(cmdInsert__strEmailAddress, "'", "''") + "', '" + Replace(cmdInsert__strPassword, "'", "''") + "', '" + Replace(cmdInsert__strClearance, "'", "''") + "', '" + Replace(cmdInsert__strFirstName, "'", "''") + "', '" + Replace(cmdInsert__strLastName, "'", "''") + "','" + Replace(cmdInsert__strSpouseName, "'", "''") + "','" + Replace(cmdInsert__strSpouseLastName, "'", "''") + "','" + Replace(cmdInsert__strPhone, "'", "''") + "', '" + Replace(cmdInsert__strCell, "'", "''") + "', '" + Replace(cmdInsert__strAddress, "'", "''") + "', '" + Replace(cmdInsert__strCity, "'", "''") + "', '" + Replace(cmdInsert__strState, "'", "''") + "', '" + Replace(cmdInsert__strZIP, "'", "''") + "', ' " + Replace(cmdInsert__strMailAddress, "'", "''") + "', '" + Replace(cmdInsert__strMailCity, "'", "''") + "',' " + Replace(cmdInsert__strMailState, "'", "''") + "', '" + Replace(cmdInsert__strMailZIP, "'", "''") + "') "
cmdInsert.CommandType = 1
cmdInsert.CommandTimeout = 0
cmdInsert.Prepared = true
cmdInsert.Execute()
%>

happygv · #2 (**permalink**) November 22nd, 2004, 06:52 PM

Quote:

quote: Value is not getting inserted into clearance

What else do you observe, when you say value is not getting inserted? Any sort of error you see? Can you do a response.write of insert statement and post here?

Code:

...
...
cmdInsert.Prepared = true
Response.write cmdInsert.CommandText 
Response.end
cmdInsert.Execute()

Cheers!

_________________________
- Vijay G
Strive for Perfection

rwaters44 · #3 (**permalink**) December 17th, 2004, 04:18 PM

Quote:

quote:
I'm a bit confused by the question you are asking and the code you posted.

The first 5 lines (through the End If) seem to have nothing to do with the rest of the code.

To respond to your comment on 'Value is not getting inserted into clearance (from strAccess to strClearance):

strClearance = strAccess <- this will make the value of strClearance the same as what is contained in strAccess.

mmcdonal · #4 (**permalink**) December 20th, 2004, 09:10 AM

Try this:

'======================================
Dim strAccess
Dim strClearance

strClearance = "client"

    If Request.Form("Access") = "realestatesales" Then
       strAccess = "realtor"
    End If
'======================================

You can't pass strings unless they are in quotes.
Where are you getting the "Request.Form("Access") from?

mmcdonal