<%
strVehicleType = session("EditType")
' Create a recordset object to store specific table information
Set conn = Server.CreateObject("ADODB.Recordset")
'Establish what records you want selected for the SQL query string
SQL = "Select * From TblVehicleTypes where VehicleType = '" + strVehicleType + "'"
'Set the recordset object equal to the SQL query string
conn.Open SQL, objADO, 1, 3
strType = conn("VehicleType")
strType2 = request("Type")
If Request.form <> "" Then
if strType2 = "" then
strWarningErrMsg = " All fields are required."
end if
if strWarningErrMsg = "" then
conn("VehicleType") = strType2
'conn("Sizeof1") = strSizeOf1
'conn("Sizeof2") = strSizeOf2
'conn("TextUnder") = strTextUnder
Conn.update
Response.Redirect "menu.asp"
end if
end if
%>