Creating a flat file with VB Script

The part I am having problem with

Page 1 of 1

3 Replies - 6914 Views - Last Post: 12 November 2006 - 10:51 PM Rate Topic: -----

#1 computer_girl  Icon User is offline

  • New D.I.C Head

Reputation: 0
  • View blog
  • Posts: 23
  • Joined: 14-September 06

Creating a flat file with VB Script

Posted 09 November 2006 - 09:37 PM

I have tried everything this is a project for school. I am using VBScript and I am trying to create a flat file that will Capture the data entered on a webpage form and import it to the access database. I am not sure if this is the right place to post this if not just let me know. Thank you for any help you can give me I really appreciate it. This is what I have so far the part I am having trouble with is underlined and the font color I made red so you can find it easier.

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>

<script>
self.resizeTo(900,900);
</script>
</head>

<title>Student Information Form</title>

 <script language="Javascript1.2">
<!--
// (C) 2003 CodeLifter.com
// Source: CodeLifter.com
// Do not remove this header

// Set the message for the alert box
am = "This function is disabled!";

// do not edit below this line
// ===========================
bV  = parseInt(navigator.appVersion)
bNS = navigator.appName=="Netscape"
bIE = navigator.appName=="Microsoft Internet Explorer"

function nrc(e) {
   if (bNS && e.which > 1){
	  alert(am)
	  return false
   } else if (bIE && (event.button >1)) {
	 alert(am)
	 return false;
   }
}

document.onmousedown = nrc;
if (document.layers) window.captureEvents(Event.MOUSEDOWN);
if (bNS && bV<5) window.onmousedown = nrc;
-->
</script>


<script language="vbscript">
<!--
Function concatAll()

Dim TheForm 
Set TheForm = document.mTheForm

Rem Concat the names
strData = Chr(34) & TheForm.fName.Value & Chr(34) & ", " & Chr(34) & TheForm.mName.Value & Chr(34) & ", " & Chr(34) & TheForm.lName.Value & Chr(34)

Rem Concat the phones
strData = strData & ", " & Chr(34) & TheForm.phoneNum.Value & Chr(34) & ", " & Chr(34) & TheForm.phoneNumAlt.Value & Chr(34) & ", " & Chr(34) & TheForm.phoneCellNum.Value & Chr(34)

Rem Concat the email
strData = strData & Chr(34) & ", " & Chr(34) & TheForm.email.Value & Chr(34)

Rem Concat the Streets
strData = strData & ", " & Chr(34) & TheForm.snailStreet.Value & Chr(34) & ", " & Chr(34) & TheForm.snailCity.Value & Chr(34) & ", " & Chr(34) & TheForm.snailState.Value & Chr(34) & ", " & Chr(34) & TheForm.snailZip.Value & Chr(34)

Rem Concat the Degree Hours
strData = strData & ", " & Chr(34) & TheForm.degHours.Value & Chr(34)

Rem Concat the Major
strData = strData & ", " & Chr(34) & TheForm.DegreePlan.Value & Chr(34)

Rem Concat the Tuition Status
strData = strData & ", " & Chr(34) & TheForm.TuitionStatus.Value & Chr(34)

Rem Concat the Enrollment
For b = 0 to TheForm.enrollment.length -1
	If TheForm.enrollment(b).checked Then
		strData = strData & ", " & Chr(34) & TheForm.enrollment(b).Value & Chr(34)
	End If
Next

Rem Concat the Date and LastUpdate
strData = strData & ", " & Chr(34) & Date & Chr(34)

Rem Concat the Financial Aid
For c = 0 to TheForm.finanAid.length -1
	If TheForm.finanAid(c).checked Then
		strData = strData & ", " & Chr(34) & TheForm.finanAid(c).Value & Chr(34)
	End If
Next

Rem Concat the contact choice
strData = strData & ", " & Chr(34)
For a = 0 to TheForm.mailList.length -1
	If TheForm.mailList(a).checked Then
		 strData = strData & CStr(TheForm.mailList(a).Value) & Chr(34)
	End If
Next

Rem Concat the comment
strData = strData & ", " & Chr(34) & TheForm.comments.Value & Chr(34)

concatAll=strData
End Function

[color=#FF0000][u]Sub makeTempFlatFile


Rem TempNote:  Change path to F:\ClassProject\flatfile.txt when not on local machine
Dim fso, file
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile("I:\ClassProject\StudentRecordImport.txt", 8)
file.WriteLine( concatAll )
file.Close

MsgBox "Flatfile created."

End Sub[/u][/color]Sub cmdSubmit_onclick
	Dim mTheForm
	Set mTheForm = document.mTheForm
	
	Rem Check to make sure all required fields are filled 
	If Len(mTheForm.fName.Value) = 0 Then
		mTheForm.fName.Focus
		MsgBox "Please input your first name.", 0, "Value not provided!" 
		Exit Sub
	End If
	If Len(mTheForm.lName.Value) = 0 Then
		mTheForm.lName.Focus
		MsgBox "Please input your last name.", 0, "Value not provided!" 
		Exit Sub
	End If
	If Len(mTheForm.phoneNum.Value) = 0 Then
		mTheForm.phoneNum.Focus
		MsgBox "Please input a valid home phone number.", 0, "Value not provided!" 
		Exit Sub
	ElseIf IsNumeric(mTheForm.phoneNum.Value) = False Then
		mTheForm.phoneNum.Focus
		MsgBox "Please input a numeric home phone number with no dashes or spaces."
		Exit Sub
	End If
	If Len(mTheForm.phoneCellNum.Value) > 0 And IsNumeric(mTheForm.phoneNumAlt.Value) = False Then
		mTheForm.phoneNumAlt.Focus
		MsgBox "Please input a numeric work phone number with no dashes or spaces."
		Exit Sub
	End If
	If Len(mTheForm.phoneCellNum.Value) > 0 And IsNumeric(mTheForm.phoneCellNum.Value) = False Then
		mTheForm.phoneCellNum.Focus
		MsgBox "Please input a numeric cell phone number with no dashes or spaces."
		Exit Sub
	End If
	If Len(mTheForm.snailStreet.Value) = 0 Then
		mTheForm.snailStreet.Focus
		MsgBox "Please input your Street address.", 0, "Value not provided!" 
		Exit Sub
	End If
	If Len(mTheForm.snailCity.Value) = 0 Then
		mTheForm.snailCity.Focus
		MsgBox "Please input your City.", 0, "Value not provided!" 
		Exit Sub
	ElseIf IsNumeric(mTheForm.snailCity.Value) = True Then
		mTheForm.snailCity.Focus
		MsgBox "Please input a valid City name."
		Exit Sub
	End If
	If mTheForm.snailState.SelectedIndex = 0 Then
		mTheForm.snailState.Focus
		MsgBox "Please input your State.", 0, "Value not provided!" 
		Exit Sub
	End If
	If Len(mTheForm.snailZip.Value) = 0 Then
		mTheForm.snailZip.Focus
		MsgBox "Please input your Zip code.", 0, "Value not provided!" 
		Exit Sub
	ElseIf IsNumeric(mTheForm.snailZip.Value) = False Then
		mTheForm.snailZip.Focus
		MsgBox "Please input a valid numeric zip code."
		Exit Sub
	End If
	If Len(mTheForm.snailZip2.Value) > 0 And IsNumeric(mTheForm.snailZip2.Value) = False Then
		mTheForm.snailZip2.Focus
		MsgBox "Please input a numerical postage code not one with letters"
		Exit Sub
	End If
	If Len(mTheForm.email.Value) = 0 Then
		mTheForm.email.Focus
		MsgBox "Please input your email address. If you do not have one you can check with your college to see if you have one premade for you, or you can get one at http://gmail.google.com The field is required because email will be the primary means of contact.", 0, "Value not provided!" 
		Exit Sub
	End If
	If Len(mTheForm.degHours.Value) = 0 Then
		mTheForm.degHours.Focus
		MsgBox "Please indicate the number of accredited college hours have you have taken towards your chosen degree plan.", 0, "Value not provided!" 
		Exit Sub
	ElseIf IsNumeric(mTheForm.degHours.Value) = False Then
		mTheForm.degHours.Focus
		MsgBox "Please indicate at least a three digit numeric number of accredited college hours."
		Exit Sub
	End If
	If mTheForm.DegreePlan.SelectedIndex = 0 Then
		mTheForm.DegreePlan.Focus
		MsgBox "You need to select a degree plan/major. If you are unsure of your degree, select at least the 'Undecided' option."
		Exit Sub
	End If
	
	makeTempFlatFile
End Sub
-->
</script>
</head>
<%
	im = request.Form("fil")
	co = request.Form("colo")
	fo = request.Form("fon")
	sz = request.Form("siz")
	fc = request.Form("fcr")
%>

<body bgcolor="<%= co %>">
<font face="<%= fo %>">
<font size="<%= sz %>">
<font color="<%= fc %>">
<img src="<%=im%>" alt="Seal or logo">
<BR>
<BR>
<form name="mTheForm">


<center><font face="<%= fo %>" color="<%= fc %>" size="+2">Student Information Form</font></center>
<hr>

<BR><font color ="666666" face= "<%= fo %>">Student Contact Information</font>
<BR>
<BR><BR>
<BR> 

First Name:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input name="fName" type="text" size="20" maxlength="20">

&nbsp;&nbsp;&nbsp;
Middle initial:&nbsp;&nbsp;
<input type="text" size="4" maxlength="1" name="mName">
 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
Last Name:&nbsp;&nbsp;&nbsp;<input type="text" size="20" maxlength="20" name="lName">
<BR><BR>
Home Phone:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input type="text" size="20" maxlength="15" name="phoneNum">&nbsp;&nbsp;&nbsp;&nbsp;
 
Work Phone:&nbsp;&nbsp;&nbsp;<input type="text" size="20" maxlength="15" name="phoneNumAlt">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

Cell Phone:&nbsp;&nbsp;&nbsp;<input type="text" size="20" maxlength="15" name="phoneCellNum">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<BR><BR>
Street Address:&nbsp;&nbsp;<input name="snailStreet" type="text" size="20" maxlength="40">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

City:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<input name="snailCity" type="text" size="20" maxlength="20">

<P>
State Abbreviation:
<SELECT NAME="SnailState">

 <OPTION value="" selected></OPTION>
<option>AL</option>
<option>AK</option>
<option>AS</option>
<option>AZ</option>
<option>AR</option>
<option>CA</option>
<option>CO</option>
<option>CT</option>
<option>DE</option>
<option>DC</option> 
<option>FM</option> 
<option>FL</option>
<option>GA</option>
<option>GU</option>
<option>HI</option>
<option>ID</option>
<option>IL</option>
<option>IN</option>
<option>IA</option>
<option>KS</option>
<option>KY</option>
<option>LA</option>
<option>ME</option> 
<option>MH</option> 
<option>MD</option>
<option>MA</option>
<option>MI</option>
<option>MN</option>
<option>MS</option>
<option>MO</option>
<option>MT</option>
<option>NE</option>
<option>NV</option>
<option>NH</option>
<option>NJ</option>
<option>NM</option>
<option>NY</option>
<option>NC</option>
<option>ND</option>
<option>MP</option>
<option>OH</option>
<option>OK</option>
<option>OR</option>
<option>PW</option>
<option>PA</option>
<option>PR</option>
<option>RI</option>
<option>SC</option>
<option>SD</option>
<option>TN</option>
<option>TX</option>
<option>UT</option>
<option>VT</option>
<option>VI</option>
<option>VA</option>
<option>WA</option>
<option>WV</option>
<option>WI</option> 
<option>WY</option>
<option>Canada</option>
<option>Mexico</option>
<option>Other. Please indicate in sugguestion/comments box.</option>
</select>

<!--&nbsp;If other, please indicate:<input type="text" size="10" maxlength="20"> -->
</p>

Zip Code:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<input name="snailZip" type="text" size="10" maxlength="10">&nbsp;-&nbsp;<input name="snailZip2" type="text" size="10" maxlength="10">
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

Email Address:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input name="email" type="text" size="20" maxlength="40">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<BR>
<BR>
Allow College or school to send you information:
<input name="mailList" type="radio" value="yes">Yes
<input name="mailList" type="radio" value="no">No
<BR>
<BR>
<BR>

<hr>


<BR><font color ="666666" face= "<%= fo %>">Student College History</font>
<BR>
<BR>
<BR>
Please select a degree plan for your education needs:&nbsp;
<select name="DegreePlan">
 <option selected>Please make one selection</option>
 <option>Undecided</option>
<option>Accounting AAS</option>
<option>Accounting Certificate of Technology</option>
<option>Accounting Occupational Certificate</option>
<option>Aeronautical Technology Aircraft Dispatcher Certificate of Technology</option>
<option>Aeronautical Technology Aircraft Maintenance Management AAS</option>
<option>Aeronautical Technology Aviation Management AAS</option>
<option>Aeronautical Technology Career Pilot Certificate of Technology</option>
<option>Aeronautical Technology Pilot Development Program AAS</option>
<option>Aeronautical Technology Pilot Development Program Certificate of Technology</option>
<option>Conditioning Technology AAS</option>
<option>Conditioning Technology Certificate of Technology</option>
<option>Air Conditioning (Commercial and Industrial) Certificate of Technology</option>
<option>Conditioning (Residential)Technology Occupational Certificate</option>
<option>Applied Computer Electronics Technology AAS</option>
<option>Applied Computer Electronics Technology Certificate of Technology</option>
<option>Applied Computer Electronics Communication Technology Occupational Certificate</option>
<option>Applied Computer Electronics Computer/Electronics Technician Occupational Certificate</option>
<option>Automotive Painting Occupational Certificate</option>
<option>Automotive Collision Repair Assistant Specialty Occupational Certificate</option>
<option>Automotive Collision Repair AAS</option>
<option>Automotive Collision Repair Certificate of Technology</option>
<option>Automotive Non-Collision Repair Certificate of Technology</option>
<option>Automotive Collision Repair Technology-Management Specialty AAS</option>
<option>Automotive Collision Repair Technology-Management Specialty Certificate of Technology</option>
<option>Art-Commercial—AAS</option>
<option>Art—Commercial Certificate of Technology</option>
<option>Art—Commercial Multimedia/Animation--Occupational Certificate</option>
<option>Automotive Technology AAS</option>
<option>AC Automotive Technology—AC Delco AAS</option>
<option>AC Automotive Technology—AC Delco Certificate of Technology</option>
<option>Automotive Technology—Basic Certificate of Technology</option>
<option>Automotive Technology–Daimler Chrysler</option>
<option>Automotive Technology—Ford AAS</option>
<option>Automotive Technology—Ford Maintenance and Light Repair Certificate of Technology
<option>Automotive Technology—General Motors AAS</option>
<option>Automotive Technology—Honda AAS</option>
<option>Automotive Technology—Honda Certificate of Technology</option>
<option>Automotive—Honda Maintenance and Light Repair Certificate of Technology</option>
<option>Automotive Technology—Machinist Certificate of Technology</option>
<option>Automotive Technology—Maintenance and Light Repair Certificate of Technology</option>
<option>Automotive Technology—Toyota AAS</option>
<option>Automotive Technology—Toyota Certificate of Technology</option>
<option>Automotive Technology— Certificate of Technology</option>
<option>Automotive Tech—Under Hood Certificate of Technology</option>
<option>Business Mgmt - Supervision AAS</option>
<option>Business Mgmt - Supervision Certificate of Technology</option>
<option>Business Mgmt - Supervision Occupational Certificate</option>
<option>Business Mgmt - Small Business Entrepreneur AAS</option>
<option>Business Mgmt - Small Business Entrepreneur Certificate of Technology</option>
<option>Business Management - E Commerce Occupational Certificate</option>
<option>Business Office Technology—Executive/Administrative Assistant AAS</option>

<option>Business Office Technology—Executive/Administrative Assistant Certificate of Technology</option>
<option>Business Office Technology—General Office Clerk Occupational Certificate</option>
<option>Business Office Technology—Legal Secretary AAS</option>
<option>Business Office Technology—Legal Secretary Certificate of Technology</option>
<option>Business Office Technology—Medical Administrative Assistant AAS</option>
<option>Business Office Technology—Medical Administrative Assistant Certificate of Technology</option>
<option>Business Software Specialist Certificate of Technology</option>
<option>Child Care—Administrator Credential Occupational Certificate</option>
<option>DIR Child Development Associate Training for Directors Occupational Certificate</option>
<option>CUR Child Development & Family Studies Curriculum Specialist</option>
<option>Child Development and Family Studies AAS</option>
<option>Child Development and Family Studies Certificate of Technology</option>
<option>Child Development—Teacher Aide Certificate of Technology</option>
<option>Computer Information Systems-Advanced Database Design-Occupational Certificate</option>
<option>Computer Information Systems—Applications Programming AAS</option>
<option>Computer Information systems—Info Tech Security AAS</option>
<option>Computer Information systems—Info Tech Security Certificate of Technology</option>
<option>Computer Information Systems—Applications Programming Certificate of Technology</option>
<option>Computer Information Systems-Database Design-Certificate of Technology</option>
<option>Computer Information Systems—Game Design and Development Certificate of Technology</option>
<option>Computer Information Systems—Game Design and Development Occupational Certificate</option>
<option>Computer Information Systems—Core IT Occupational Certificate</option>
<option>Computer Information Systems—Windows Programming Occupational Certificate</option>
<option>Computer Information Systems—Web Applications Development AAS</option>
<option>Computer Information Systems—Web Applications Development Certificate of Technology</option>
<option>Computer Information Systems—Web Page Design and Implementation</option>
<option>Computer Information Systems—Computer Support AAS</option>
<option>Computer Information Systems—Computer Support Certificate of Technology</option>
<option>Computer Information Systems—Network Administration Microsoft Specialty AAS</option>
<option>Computer Information Systems—Network Administration Microsoft Specialty</option>
<option>Computer Information Systems—Network Administration Security-AAS</option>
<option>Computer Information Systems—Beginning Network Microsoft Specialty</option>
<option>Computer Information Systems—Advanced Network Microsoft Specialty</option>
<option>Computer Information Systems—Network Administration Cisco Specialty AAS</option>
<option>Computer Information Systems—Network Administration Cisco Specialty</option>
<option>Computer Information Systems—Beginning Network Administration Cisco Specialty</option>
<option>Computer Information Systems—Advanced Network Administration Cisco</option>
<option>Computer Information Systems—Advanced Information Technology Security</option>
<option>Computer Information Systems—E-Commerce/Web Page Design Occupational Certificate</option>
<option>Computer Information Systems—Beginning Database Specialist Occupational Certificate</option>
<option>Commercial Truck Driving (CE)</option>
<option>Cosmetology—Facial Occupational Certificate</option>
<option>Cosmetology—Hairweaving and Braiding Marketable Skills Achiever Award</option>
<option>Cosmetology Instructor AAS</option>
<option>Cosmetology Instructor Certificate of Technology</option>
<option>Cosmetology—Nail Technician Occupational Certificate</option>
<option>Cosmetology Operator AAS</option>
<option>Cosmetology Operator Certificate of Technology</option>
<option>Cosmetology—High School Cosmetology Operator Dual Credit Certificate of Technology</option>
<option>Criminal Justice—Academic Peace Officer Licensure Certificate of Technology</option>
<option>Criminal Justice—Core Certificate of Technology</option>
<option>Criminal Justice—Corrections Option Certificate of Technology</option>
<option>Criminal Justice—Crime Scene Technician Certificate of Technology</option>
<option>Criminal Justice—Law Enforcement AAS</option>
<option>Criminal Justice—Law Enforcement Certificate of Technology</option>
<option>Criminal Justice—Social Services AAS</option>
<option>Criminal Justice—Social Services Certificate of Technology</option>
<option>Culinary Arts—Chef’s Apprenticeship Training AAS</option>
<option>Culinary Arts—Chef’s Apprenticeship Training Certificate of Technology</option>
<option>Culinary Arts—Chef Training AAS</option>
<option>Culinary Arts—Chef Training Certificate of Technology</option>
<option>Culinary Arts—Restaurant Management AAS</option>
<option>Culinary Arts—Restaurant Management Certificate of Technology</option>
<option>Diesel Repair Technology AAS</option>
<option>Diesel Repair Technology Certificate of Technology</option>
<option>Dietetic Technician—Nutrition Care AAS</option>
<option>Dietetic Technician—Nutrition Care Certificate of Technology</option>
<option>Dietetics—Food Service Management AAS</option>
<option>Dietetics—Food Service Management Certificate of Technology</option>
<option>Electrical Technician Occupational Certificate</option>
<option>Electrical Technician AAS</option>
<option>Electrical Technician Certificate of Technology</option>
<option>Electronic Instrumentation AAS</option>
<option>Electronic Instrumentation Certificate of Technology</option>
<option>Emergency Medical Technology AAS</option>
<option>Emergency Medical Technology Certificate of Technology</option>
<option>Emergency Medical Technology Occupational Certificate</option>
<option>Emergency Medical Technology Basic & Intermediate Occupational Certificate</option>
<option>English for Speakers of Other Languages</option>
<option>Engineering Design Graphics AAS</option>
<option>Engineering Design Graphics Certificate of Technology</option>
<option>Fire Protection Technology—Firefighting AAS</option>
<option>Fire Protection Technology—Firefighting Certificate of Technology</option>
<option>Fire Protection Tech—Firefighter Paramedic AAS</option>
<option>Geographic Information Science AAS</option>
<option>Geographic Information Science Certificate of Technology</option>
<option>Geographic Information Science Occupational Certificate</option>
<option>Geomatic Surveying Technology AAS</option>
<option>Geomatic Surveying Technology Certificate of Technology</option>
<option>Geomatic Surveying Technology Occupational Certificate</option>
<option>Gerontology Services AAS</option>
<option>Gerontology Services Certificate of Technology</option>
<option>Health Information Management AAS</option>
<option>Health Information Management—Cancer Data Management Occupational Certificate</option>
<option>Health Information Management—Medical Billing and Coding Certificate of Technology</option>
<option>Health Information Management—Medical Billing-Occupational Certificate</option>
<option>Instrumentation Technology AAS</option>
<option>Instrumentation Technology Certificate of Technology</option>
<option>Interior Design AAS</option>
<option>Interior Design Certificate of Technology</option>
<option>PRO Interior Design—Professional Credential in Interior Design Certificate of Technology</option>
<option>International Business and Trade AAS</option>
<option>International Business and Trade Certificate of Technology</option>
<option>International Business and Trade Occupational Certificate</option>
<option>Licensed Vocational Nurse Certificate of Technology</option>
<option>Medical Imaging Technology—Computed Tomography Occupational Certificate</option>
<option>MRI Medical Imaging Technology—Medical Resonance Imaging Occupational Certificate</option>
<option>Medical Assisting Certificate of Technology</option>
<option>Medical Laboratory Technology AAS</option>
<option>Medical Laboratory Technology—Clinical Laboratory Assistant Occupational Certificate</option>
<option>Medical Radiography AAS</option>
<option>Mental Health Clinical and Counseling Psychology AAS</option>
<option>Mental Health Technician Certificate of Technology</option>
<option>Mental Health Substance Abuse Counseling Certificate of Technology</option>
<option>Music—Recording AAS</option>
<option>Music—Audio Broadcast Technology Certificate of Technology</option>
<option>Music—Techniques of Audio Engineering Certificate of Technology</option>
<option>Sound Recording Occupational Certificate</option>
<option>Nursing—LVN-RN Mobility AAS</option>
<option>Nursing—LVN-RN Transition AAS</option>
<option>Nursing—Paramedic-RN Mobility AAS</option>
<option>Nursing—Paramedic-RN Transition AAS</option>
<option>Nursing—Associate Degree RN AAS</option>
<option>Occupational Health and Safety Technology AAS</option>
<option>Occupational Health and Safety Technology Certificate of Technology</option>
<option>Paralegal AAS</option>
<option>Pharmacy Technician Certificate of Technology</option>
<option>THRPY Physical Therapist Assistant AAS</option>
<option>Process Technology—Chemical Lab Technician AAS</option>
<option>Process Technology AAS</option>
<option>Process Technology Certificate of Technology</option>
<option>Real Estate AAS</option>
<option>Real Estate Certificate of Technology</option>
<option>Real Estate Occupational Certificate</option>
<option>Respiratory Care AAS</option>
<option>Surgical Technology Certificate of Technology</option>
<option>Vision Care Technology AAS</option>
<option>Vision Care Technology Certificate of Technology</option>
<option>Vision Care Technology Occupational Certificate</option>
<option>Visual Communications AAS</option>
<option>Visual Communications Certificate of Technology</option>
<option>Visual Communications-Multimedia/Animation Certificate of Technology</option>
<option>Welding Technology—Gas Shielded Welding Certificate of Technology</option>
<option>Welding Technology—Non-Destructive Testing AAS</option>
<option>Welding Technology—Non-Destructive Testing Certificate of Technology</option>
<option>Welding Technology—Non-Destructive Testing Occupational Certificate</option>
<option>Welding Technology—Quality Assurance Technology Occupational Certificate</option>
<option>Welding Technology—Stick Pipe Occupational Certificate</option>
<option>Welding Technology—Structural Welder Occupational Certificate</option>
<option>Welding Technology AAS</option>
<option>Welding Technology—Combination Welder Certificate of Technology</option>


</select>
<BR>
<BR>
<BR>Please indicate the number of accredited college hours
<BR> have you have taken towards your chosen degree plan:
<input name="degHours" type="text" size="3" maxlength="3">
<BR>
<BR>
<BR>

<BR>
Tuition Status:&nbsp;
<select name="TuitionStatus">
<option selected>Please make one selection</option>
<option>In District</option>
<option>Out of District</option>
<option>Out of State/Country</option>
</select>
<BR><BR><BR>
Current student at this college:
<input name="enrollment" type="radio" value="Current Student">Current Student
<input name="enrollment" type="radio" value="Former Student">Former Student
<input name="enrollment" type="radio" value="Perspective Student">Perspective Student

<BR><BR><BR>
Would you like Financial Aid Information?
<input name="finanAid" type="radio" value="Yes">Yes
<input name="finanAid" type="radio"="No">No
<BR>
<BR>
<BR>
<br>
<hr>
<br>
<center>
<p>Suggestions or Comments:</p>
<textarea name="comments" rows="6" cols="55"></textarea>
<BR>
<BR>
<br><input type="button" name="cmdSubmit" value="Submit">&nbsp;&nbsp;<input type="reset" value="Reset">



</center>

</form>


<BR>
<BR>
<BR>
</body>
</html> 


Thank you for any advise or help you have. :D

~Renee'

Is This A Good Question/Topic? 0
  • +

Replies To: Creating a flat file with VB Script

#2 computer_girl  Icon User is offline

  • New D.I.C Head

Reputation: 0
  • View blog
  • Posts: 23
  • Joined: 14-September 06

Re: Creating a flat file with VB Script

Posted 09 November 2006 - 10:17 PM

I am trying to create a flat file that captures the text field from a website form and imports it into a database. When I try it this is the error message I get:

Line: 108
Char: 1
Error: ActiveX component can't create Object: 'Scripting.FileSystemObject'
Code: 0
URL: http://www.formasp.s...com/default.asp

I posted a few minutes ago the one titled I have tried everything it has all of the code but here is the part that I am having trouble with below.
 Sub makeTempFlatFile


Rem TempNote:  Change path to F:\ClassProject\flatfile.txt when not on local machine
Dim fso, file
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile("I:\ClassProject\StudentRecordImport.txt", 8)
file.WriteLine( concatAll )
file.Close

MsgBox "Flatfile created."


Thank you for any help in advance I really appreciate it. :)
~Renee'
Was This Post Helpful? 0
  • +
  • -

#3 Amadeus  Icon User is offline

  • g+ + -o drink whiskey.cpp
  • member icon

Reputation: 248
  • View blog
  • Posts: 13,506
  • Joined: 12-July 02

Re: Creating a flat file with VB Script

Posted 10 November 2006 - 07:24 AM

Check and see if the following is the problem:

http://support.microsoft.com/kb/311269

Aside from that, it could be a missing dll on the server/machine...can't remember the name right now...
Was This Post Helpful? 0
  • +
  • -

#4 computer_girl  Icon User is offline

  • New D.I.C Head

Reputation: 0
  • View blog
  • Posts: 23
  • Joined: 14-September 06

Re: Creating a flat file with VB Script

Posted 12 November 2006 - 10:51 PM

View PostAmadeus, on 10 Nov, 2006 - 07:24 AM, said:

Check and see if the following is the problem:

http://support.microsoft.com/kb/311269

Aside from that, it could be a missing dll on the server/machine...can't remember the name right now...



Thank you Amadeus I will check that out. If you think of the name of the missing dll file let me please let me know.

Thanks a bunch!
~Renee'
Was This Post Helpful? 0
  • +
  • -

Page 1 of 1