sql_insert = "insert into tblPets (intPetKey, strPetName, intPetType, strPetBreed, strPetGender, strPetMeds, " & _
" strPetBirthdate, strPetQuarters, strHealth, strVaccinations, strExercise, strBehaviorAdult, strBehaviorChild, strBehaviorAnimal, " & _
" strVetName, strVetAddress, strVetPhone, strPetNotes, intXrefCust, intPetNumber, strLastModified) " & _
" values (" & nNewPetKey & "," & sPetName & "," & nPetType & "," & sPetBreed & "," & sPetGender & "," & _
sPetMeds & "," & sPetBirthdate & "," & sPetQuarters & "," & sPetHealth & "," & sVaccinations & "," & sPetExercise & "," & _
sBehaviorAdult & "," & sBehaviorChild & "," & sBehaviorAnimal & "," & sVetName & "," & sVetAddress & "," & _
sVetPhone & "," & sPetNote & "," & nCustKey & "," & nNewPetCount & "," & sDateString & ")"
'response.write sql_insert
'response.end
objConn.execute sql_insert
if err.number <> 0 then
Response.write "Error with sql insert = " & err.description & "-" & sql_insert
end if