" oTextFile.write "Please remember, this script doesn't do any locking. Tables may not all be from an identical era." oTextFile.write "
" oTextFile.write Now oTextFile.write "
" Sub DrawTable(sql) Dim cnSam Dim rsRecordSet Dim rsZones Dim strsql dim i set rsZones = Server.CreateObject("ADODB.Recordset") set rsRecordSet = Server.CreateObject("ADODB.Recordset") Set cnSam = Server.CreateObject("ADODB.Connection") with cnSam .ConnectionString = "DSN=PUT_DATABASE_NAME_HERE;User ID=PUT_USERNAME_HERE;pwd=PUT_DBPASSWORD_HERE" .Open End With strsql = sql rsRecordSet.Open strsql, cnsam, adOpenForwardOnly oTextFile.write "Dumping Data for " oTextFile.write sql oTextFile.write "
" if (rsRecordSet.BOF and rsRecordSet.EOF) then oTextFile.write "No records found
" else oTextFile.write "" & rsRecordSet.Fields(i).Name & " | " Next oTextFile.write "
---|
" & rsRecordSet.Fields(i) & " | " Next oTextFile.write "
" oTextFile.write Now oTextFile.write "
" oTextFile.Close set oTextFile = nothing set oFS = nothing %>Thank You! The database snapshot has been made.
Please fill out the following. When you have finished, please click "Finish".