Codes

<% Const IMGS_DIR = "/Missing Persons/" Dim objFSO, objFolderObject, objFileCollection, objFile Dim intFileNumberToUse, intFileLooper Dim objImageFileToUse Dim strImageSrcText Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFolderObject = objFSO.GetFolder(Server.MapPath(IMGS_DIR)) Set objFSO = Nothing Set objFileCollection = objFolderObject.Files Set objFolderObject = Nothing Randomize() intFileNumberToUse = Int(objFileCollection.Count * Rnd) + 1 intFileLooper = 1 For Each objFile in objFileCollection If intFileLooper = intFileNumberToUse Then Set objImageFileToUse = objFile Exit For End If intFileLooper = intFileLooper + 1 Next Set objFileCollection = Nothing strImageSrcText = IMGS_DIR & objImageFileToUse.Name Set objImageFileToUse = Nothing %>

State, Vehicle, Penal, Health & Safety Codes

	Source	Link
State codes
	Legislative Counsel State of California	Assorted Codes
Vehicle codes
	Department of Motor Vehicles	California Vehicle Code

Penal Codes
	Legislative Counsel State of California	California State Penal Codes

Health and Safety Codes	Legislative Counsel State of California	Health and Safety Codes