Programmers Resource - Still needing help

ubigdummie

06-15-2003, 08:00 PM

Hey Guys. Still having a bit of a problem here. I now can see the managevehicles.asp page after posting the HTML form to it (addvehicle.asp). The only record that will show up is the one I entered into the DB manually. The info I post from the form does not get inserted into the DB. The reason the updatevehicles part is in the following code is because this code will be used for both adding and updating the records. Should I make two seperate files (one for adding and one for updating?). What am I doing wrong?

<%
FUNCTION fixQuotes( theString )
fixQuotes = REPLACE( theString, "'", "''" )
END FUNCTION

' Get the Form Variables
addVehicle = TRIM( Request( "addVehicle" ) )
updateVehicle = TRIM( Request( "updateVehicle" ) )

vehicleID = TRIM( Request( "vehicleID" ) )
stockNumber = TRIM( Request( "stockNumber" ) )
VIN = TRIM( Request( "VIN" ) )
make = TRIM( Request( "make" ) )
model = TRIM( Request( "model" ) )
autoYear = TRIM( Request( "autoYear" ) )
transmission = TRIM( Request( "transmission" ) )
engine = TRIM( Request( "engine" ) )
exteriorColor = TRIM( Request( "exteriorColor" ) )
interiorColor = TRIM( Request( "interiorColor" ) )
vehiclePicture = TRIM( Request( "vehiclePicture" ) )
priceRange = TRIM( Request( "priceRange" ) )
sellingPrice = TRIM( Request( "sellingPrice" ) )
mileage = TRIM( Request( "mileage" ) )
bodyStyle = TRIM( Request( "bodyStyle" ) )
numberDoors = TRIM( Request( "numberDoors" ) )
options = TRIM( Request( "options" ) )
dealershipPhone = TRIM( Request( "dealershipPhone" ) )
salesmanName = TRIM( Request( "salesmanName" ) )
salesmanExt = TRIM( Request( "salesmanExt" ) )
salesmanEmail = TRIM( Request( "salesmanEmail" ) )
vehicleStatus = TRIM( Request( "vehicleStatus" ) )
autoType = TRIM( Request( "autoType" ) )

' Assign Default Values
IF vehicleID = "" THEN
vehicleID = "?????"
END IF
IF priceRange = "" or NOT isNUMERIC( priceRange ) THEN
priceRange = 0
END IF
IF sellingPrice = "" or NOT isNUMERIC( sellingPrice ) THEN
sellingPrice = 0
END IF
IF vin = "" THEN
vin = "?????"
END IF
IF make = "" THEN
make = "?????"
END IF
IF model = "" THEN
model = "?????"
END IF
IF autoYear = "" THEN
autoYear = "?????"
END IF
IF transmission = "" THEN
transmission = "?????"
END IF
IF engine = "" THEN
engine = "?????"
END IF
IF exteriorColor = "" THEN
exteriorColor = "?????"
END IF
IF interiorColor = "" THEN
interiorColor = "?????"
END IF
IF vehiclePicture = "" THEN
vehiclePicture = "?????"
END IF
IF mileage = "" THEN
mileage = "?????"
END IF
IF bodyStyle = "" THEN
bodyStyle = "?????"
END IF
IF numberDoors = "" THEN
numberDoors = "?????"
END IF
IF options = "" THEN
options = "?????"
END IF
IF dealershipPhone = "" THEN
dealershipPhone = "?????"
END IF
IF salesmanName = "" THEN
salesmanName = "?????"
END IF
IF salesmanExt = "" THEN
salesmanExt = "?????"
END IF
IF salesmanEmail = "" THEN
salesmanEmail = "?????"
END IF
IF vehicleStatus = "" THEN
vehicleStatus = "?????"
END IF
IF autoType = "" THEN
autoType = "?????"
END IF

' Open the Database Connection
Set Con = Server.CreateObject( "ADODB.Connection" )
Con.Open "Inventory"
set RS = server.CreateObject("adodb.recordset")
%>
<html>
<head><title>Manage Inventory</title></head>
<body bgcolor="darkblue">
<%
' Add New Product
IF addProduct <> "" THEN
rs.Open"select * from Preowned",con,3,3
RS.AddNew
RS.Fields("vehicle_id")=vehicleID
RS.Fields("stock_number") =stockNumber
RS.Fields("vehicle_vin") =VIN
RS.Fields("vehicle_make") =make
RS.Fields("vehicle_model") = model
RS.Fields("auto_year") = autoYear
RS.Fields("vehicle_transmission") = transmission
RS.Fields("vehicle_engine") = engine
RS.Fields("exterior_color") = exteriorColor
RS.Fields("interior_color") = interiorColor
RS.Fields("vehicle_picture") = vehiclePicture
RS.Fields("price_range") = priceRange
RS.Fields("selling_price") = sellingPrice
RS.Fields("vehicle_mileage") = mileage
RS.Fields("body_style") = bodyStyle
RS.Fields("number_doors") = numberDoors
RS.Fields("vehicle_options") = options
RS.Fields("dealership_phone") = dealershipPhone
RS.Fields("salesman_name") = salesmanName
RS.Fields("salesman_ext") = salesmanExt
RS.Fields("salesman_email") = salesmanEmail
RS.Fields("vehicle_status") = vehicleStatus
RS.Fields("auto_type") = autoType
RS.Update

Rs.close
%>
<center>
<table width="600" cellpadding="4"
cellspacing="0" bgcolor="lightyellow">
<tr>
<td> <%=VIN%> was added to the inventory.</td>
</tr>
</table>
</center>
<p>
<%
END IF

' Update Vehicle
IF updateVehicle <> "" THEN

sqlString= "select * from Preowned "
sqlString= sqlString + "WHERE vehicle_id= "&vehicleID&""
RS.Open sqlString ,Conn,3,3
If Not RS.EOF Then
RS.Fields("stock_number") = stockNumber
RS.Fields("vehicle_vin") = VIN
RS.Fields("vehicle_make") =make
RS.Fields("vehicle_model") = model
RS.Fields("auto_year") = autoYear
RS.Fields("vehicle_transmission") = transmission
RS.Fields("vehicle_engine") = engine
RS.Fields("exterior_color") = exteriorColor
RS.Fields("interior_color") = interiorColor
RS.Fields("vehicle_picture") = vehiclePicture
RS.Fields("price_range") = priceRange
RS.Fields("selling_price") = sellingPrice
RS.Fields("vehicle_mileage") = mileage
RS.Fields("body_style") = bodyStyle
RS.Fields("number_doors") = numberDoors
RS.Fields("vehicle_options") = options
RS.Fields("dealership_phone") = dealershipPhone
RS.Fields("salesman_name") = salesmanName
RS.Fields("salesman_ext") = salesmanExt
RS.Fields("salesman_email") = salesmanEmail
RS.Fields("vehicle_status") = vehicleStatus
RS.Fields("auto_type") = autoType
RS.Update
End If
RS.Close
%>
<center>
<table width="600" cellpadding="4"
cellspacing="0" bgcolor="lightyellow">
<tr>
<td> <%=VIN%> was updated in the inventory.</td>
</tr>
</table>
</center>
<p>
<%
END IF

%>

<center>
<table width="600" border=1 bgcolor="lightyellow"
cellpadding="4" cellspacing="0">
<tr>
<td colspan="2" bgcolor="yellow"> <font face="Arial" size="3"><b> Manage
Vehicles</b></font> </td>
</tr>
<tr>
<td align="center">

<table border="1" size="400" cellpadding="3"
cellspacing=0 bgcolor="white">
<%
sqlString = "SELECT stockNumber, VIN FROM Preowned "
sqlString =sqlString + "ORDER BY VIN"
RS.Open sqlString,Con

WHILE NOT RS.EOF
%>
<tr>
<td>
<a href="updateVehicle.asp?vid=<%=RS( "stockNumber")%>">
<%=RS( "VIN" )%></a>
</td>
</tr>
<%
RS.MoveNext
WEND
%>
</table>
</td>
</tr>
<tr>
<td>
<a href="addVehicle.asp">Add Vehicle</a>
</td>
</tr>
</table>
</center>

</body>
</html>

-----------
Thanks a million!!!

ubigdummie

06-15-2003, 08:03 PM

Here is the addvehicle.asp file. It's just an html form.

Kodo

06-15-2003, 09:35 PM

lets start off with getting RID of all of those if's .. ack!

Function DefVal(strVal)

IF strVal= "" THEN
strVal = "?????"
END IF
DefVal=strVal
End Function

call it like so

vehicleID=DefVal(vehicleID)

*****************************

Next, dump the RS.UPDATE.. it's slow. Use SQL statements

Next, use case statements to jump to which action you need to do.

QueryDo=request.querystring("doaction")

Select case QueryDo

case "update"

SQL statement here for update

case "addnew"

SQL statement for adding a new one

end select

in your forms action, it would like this

action="addvehicle.asp?doaction=update"
or
action="addvehicle.asp?doaction=addnew"

you follow?