IF cart(i,3) = 1 THEN
	    Shot=Shot & productn & " + EXPRESS POST " & cart(i,2)
	ELSE
	    Shot=Shot & productn & " " & cart(i,2)
	END IF
	strSQL10 =("DELETE * FROM prname")		
	strSQL9 =("INSERT INTO prname (pname) VALUES('" & Shot & "')")
	RS.Open strSQL, Conn
	RS.Open strSQL2, Conn