Export proble need help.

BEJW · Jul 2, 2003

Hello,

The following are my codes, but doesn't work.
Many thanks,
JW

***************************

<HTML>
<HEAD><% @LANGUAGE = VBScript %>
Response.ContentType = "application/vnd.ms-excel"

<TITLE>Post</TITLE>
</HEAD>
<BODY>

<%

dim whichAction

If Request.ServerVariables("QUERY_STRING&quot

<> "" Then
whichAction = Request.QueryString("action&quot

else
whichAction = Request.Form("Action&quot

End if
response.write(whichAction)

If (whichaction = "Add New&quot

Then
%>
<form method="POST" name="Add" action="post.asp">
<p>
First Name <input type="text" name="FirstName" size="20" tabindex="1"><br>
Last Name <input type="text" name="LastName" size="20" tabindex="2"><br>
Date of Birth <input type="text" name="DOB" size="13" value="MM/DD/YYYY" tabindex="3"><br>
Education <input type="text" name="Education" size="2" tabindex="4"><br>
Diagnosis <select size="1" name="Diagnosis">
<option>Age-Associated Memory Impairment</option>
<option>Age-Related Cognitive Decline</option>
<option>Alcohol Abuse/Dependence</option>
<option>Alcohol Dementia</option>
<option>Alzheimer's Disease</option>
<option>Alzheimer's Disease (Early Onset)</option>
<option>Alzheimer's Disease (Early Onset) w/bd</option>
<option>Alzheimer's Disease w/beh dist.</option>
<option>Alzheimer's Disease w/SH</option>
<option>Alzheimer's Disease w/Stroke</option>
<option>Alzheimer's Disease w/WM disease</option>
<option>Amnestic Disorder NOS</option>
<option>Amyloid Angiopathy</option>
<option>Anoxia/Hypoxia</option>
<option>Apathy</option>
<option>Aphasia</option>
<option>Ataxia</option>
<option>Attention Deficit Disorder</option>
<option>Autism</option>
<option>AVM/Aneurysm</option>
<option>Basal Ganglia Calcifications</option>
<option>Behavioral Disturbance</option>
<option>Bipolar Disorder</option>
<option>CADASIL</option>
<option>Cerebellar Disorder</option>
<option>Cognitive Disorder NOS</option>
<option>Corticobasal Degeneration</option>
<option>Creutzfeld-Jacob Disease</option>
<option>Cysticercosis</option>
<option>Cysts</option>
<option>DBS Depression</option>
<option>DBS OCD</option>
<option>Delirium</option>
<option>Dementia NOS</option>
<option>Dementia with Lewy Bodies</option>
<option>Depression</option>
<option>Depression-Vascular</option>
<option>Developmental Disorders</option>
<option>Down's Syndrome</option>
<option>Dystonia</option>
<option>Encephalitis</option>
<option>Epilepsy</option>
<option>Familial Alzheimer's Disease</option>
<option>Forced Normalization</option>
<option>Frontal Lesion</option>
<option>Frontal-Temporal Dementia</option>
<option>Guillain-Barre Syndrome</option>
<option>Hemiparesis</option>
<option>Hemiplegia</option>
<option>Herniation</option>
<option>HIV</option>
<option>Huntington's Disease</option>
<option>Hydrocephalus</option>
<option>Infectious Diseases</option>
<option>Lobotomy</option>
<option>Lupus</option>
<option>Lyme Disease</option>
<option>Medication</option>
<option>Meningioma</option>
<option>Mesial Temporal Sclerosis</option>
<option>Metabolic Disorder</option>
<option>Migraine</option>
<option>Mild Cognitive Impairment-Amnestic</option>
<option>Mild Cognitive Impairment-Other</option>
<option>Mild Cognitive Impairment-Vascular</option>
<option>Mixed Dementia</option>
<option>Movement Disorders (non-PD)</option>
<option>MS/Demyelination</option>
<option>Multiple System Atrophy</option>
<option>Narcolepsy</option>
<option>Neuropathy</option>
<option>Neurosurgical (non-lobotomy)</option>
<option>No Cognitive Impairment</option>
<option>Normal Pressure Hydrocephalus</option>
<option>Obesity</option>
<option>OCD Deep Brain Stimulation</option>
<option>OCD/Gamma Knife</option>
<option>Parkinson's Disease</option>
<option>Parkinson's Disease-Vascular</option>
<option>Parkinson's Plus Syndrome</option>
<option>Personality Disorder</option>
<option>Pituitary Disorder</option>
<option>Pregnancy</option>
<option>Primary Progressive Aphasia</option>
<option>Progressive Supranuclear Palsy</option>
<option>Psychiatric Disorders</option>
<option>Psychogenic</option>
<option>Radiation Necrosis</option>
<option>REM Sleep Behavior Disorder</option>
<option>Sarcoidosis</option>
<option>Schizophrenia</option>
<option>Spinal Cord Disorder</option>
<option>Stroke: Hemorrhagic</option>
<option>Stroke: Large Vessel</option>
<option>Stroke: Posterior Circulation</option>
<option>Stroke: Small Vessel Subcortical</option>
<option>Subcortical Vascular Disease</option>
<option>Subdural Hematoma</option>
<option>Substance Abuse</option>
<option>Tardrive Dyskinesia</option>
<option>Tourette's Syndrome</option>
<option>Toxin</option>
<option>Transient Ischemic Attack</option>
<option>Traumatic Brain Injury</option>
<option>Trigeminal Neuralgia</option>
<option>Tumors</option>
<option>Tumors vs. Stroke</option>
<option>Vascular Dementia: Large Vessel</option>
<option>Vascular Dementia: Small Vessel</option>
<option>Vasculitis</option>
<option>Wernick-Korsakoff Syndrome</option>
</select><br>
Diagnostic Code <input type="text" name="DiagnosticCode" size="6" tabindex="5"><br>
Subcortical Hyperintenisites (SH) <select size="1" name="SH">
<option>Mild</option>
<option>Moderate</option>
<option>Severe</option>
</select></p>
<p><input type="submit" name="Action" value="Add" tabindex="7"><input type="reset" value="Reset" name="B2"></p>
</form>
<%

ElseIf (whichaction = "Add&quot

Then

dim myconnection, connectString, strQuery, objRS
dim strFirstName, strLastName, strDOB, strEducation, strDiagnosis, strDiagnosticCode, strSH

connectString = "DRIVER={Microsoft Access Driver (*.mdb)};" & "DBQ=" & Server.MapPath("C:\Inetpub\

http://wwwroot\A.mdb")

& ";"
set myConnection = Server.CreateObject("ADODB.Connection&quot

myConnection.Open connectString

objRS = Server.CreateObject("ADODB.Recordset&quot

strFirstName = request.form("FirstName&quot

strLastName = request.form("LastName&quot

strDOB = Request.form("DOB&quot

strEducation = Request.form("Education&quot

strDiagnosis = Request.form("Diagnosis&quot

strDiagnosticCode = Request.form("DiagnosticCode&quot

strSH = Request.form("SH&quot

strQuery = "INSERT INTO Patients(FirstName, LastName, DOB, Education, Diagnosis, DiagnosticCode, SH) VALUES "
strQuery = strQuery & "('" & strFirstName & "','" & strLastName & "','" & strDOB & "','" & strEducation & "','"
strQuery = strQuery & strDiagnosis & "','" & strDiagnosticCode & "','" & strSH & "')"
myConnection.Execute strQuery

Set myConnection = Nothing
Set objRS = Nothing

ElseIf (whichaction = "Edit&quot

Then

dim Connection, cString, sQuery, oRS

cString = "DRIVER={Microsoft Access Driver (*.mdb)};" & "DBQ=" & Server.MapPath("C:\Inetpub\

http://wwwroot\A.mdb")

& ";"
set Connection = Server.CreateObject("ADODB.Connection&quot

Connection.Open cString

Set oRS = Server.CreateObject("ADODB.Recordset&quot

PatID = Request.QueryString("ID&quot

sQuery = "select * from Patients where PatientID = " & PatID
Set oRS = Connection.Execute(sQuery)
%>

<form method="POST" name="Add" action="post.asp">
<p>
First Name <input type="text" name="FirstName" size="20" tabindex="1" value="<%=oRS("FirstName&quot

%>"><br>
Last Name <input type="text" name="LastName" size="20" tabindex="2" value="<%=oRS("LastName&quot

%>"><br>
Date of Birth <input type="text" name="DOB" size="13" tabindex="3" value="<%=oRS("DOB&quot

%>"><br>
Education <input type="text" name="Education" size="2" tabindex="4" value="<%=oRS("Education&quot

%>"><br>
Diagnosis <select size="1" name="Diagnosis" selected="<%=oRS("Diagnosis&quot

%>">
<option>Age-Associated Memory Impairment</option>
<option>Age-Related Cognitive Decline</option>
<option>Alcohol Abuse/Dependence</option>
<option>Alcohol Dementia</option>
<option>Alzheimer's Disease</option>
<option>Alzheimer's Disease (Early Onset)</option>
<option>Alzheimer's Disease (Early Onset) w/bd</option>
<option>Alzheimer's Disease w/beh dist.</option>
<option>Alzheimer's Disease w/SH</option>
<option>Alzheimer's Disease w/Stroke</option>
<option>Alzheimer's Disease w/WM disease</option>
<option>Amnestic Disorder NOS</option>
<option>Amyloid Angiopathy</option>
<option>Anoxia/Hypoxia</option>
<option>Apathy</option>
<option>Aphasia</option>
<option>Ataxia</option>
<option>Attention Deficit Disorder</option>
<option>Autism</option>
<option>AVM/Aneurysm</option>
<option>Basal Ganglia Calcifications</option>
<option>Behavioral Disturbance</option>
<option>Bipolar Disorder</option>
<option>CADASIL</option>
<option>Cerebellar Disorder</option>
<option>Cognitive Disorder NOS</option>
<option>Corticobasal Degeneration</option>
<option>Creutzfeld-Jacob Disease</option>
<option>Cysticercosis</option>
<option>Cysts</option>
<option>DBS Depression</option>
<option>DBS OCD</option>
<option>Delirium</option>
<option>Dementia NOS</option>
<option>Dementia with Lewy Bodies</option>
<option>Depression</option>
<option>Depression-Vascular</option>
<option>Developmental Disorders</option>
<option>Down's Syndrome</option>
<option>Dystonia</option>
<option>Encephalitis</option>
<option>Epilepsy</option>
<option>Familial Alzheimer's Disease</option>
<option>Forced Normalization</option>
<option>Frontal Lesion</option>
<option>Frontal-Temporal Dementia</option>
<option>Guillain-Barre Syndrome</option>
<option>Hemiparesis</option>
<option>Hemiplegia</option>
<option>Herniation</option>
<option>HIV</option>
<option>Huntington's Disease</option>
<option>Hydrocephalus</option>
<option>Infectious Diseases</option>
<option>Lobotomy</option>
<option>Lupus</option>
<option>Lyme Disease</option>
<option>Medication</option>
<option>Meningioma</option>
<option>Mesial Temporal Sclerosis</option>
<option>Metabolic Disorder</option>
<option>Migraine</option>
<option>Mild Cognitive Impairment-Amnestic</option>
<option>Mild Cognitive Impairment-Other</option>
<option>Mild Cognitive Impairment-Vascular</option>
<option>Mixed Dementia</option>
<option>Movement Disorders (non-PD)</option>
<option>MS/Demyelination</option>
<option>Multiple System Atrophy</option>
<option>Narcolepsy</option>
<option>Neuropathy</option>
<option>Neurosurgical (non-lobotomy)</option>
<option>No Cognitive Impairment</option>
<option>Normal Pressure Hydrocephalus</option>
<option>Obesity</option>
<option>OCD Deep Brain Stimulation</option>
<option>OCD/Gamma Knife</option>
<option>Parkinson's Disease</option>
<option>Parkinson's Disease-Vascular</option>
<option>Parkinson's Plus Syndrome</option>
<option>Personality Disorder</option>
<option>Pituitary Disorder</option>
<option>Pregnancy</option>
<option>Primary Progressive Aphasia</option>
<option>Progressive Supranuclear Palsy</option>
<option>Psychiatric Disorders</option>
<option>Psychogenic</option>
<option>Radiation Necrosis</option>
<option>REM Sleep Behavior Disorder</option>
<option>Sarcoidosis</option>
<option>Schizophrenia</option>
<option>Spinal Cord Disorder</option>
<option>Stroke: Hemorrhagic</option>
<option>Stroke: Large Vessel</option>
<option>Stroke: Posterior Circulation</option>
<option>Stroke: Small Vessel Subcortical</option>
<option>Subcortical Vascular Disease</option>
<option>Subdural Hematoma</option>
<option>Substance Abuse</option>
<option>Tardrive Dyskinesia</option>
<option>Tourette's Syndrome</option>
<option>Toxin</option>
<option>Transient Ischemic Attack</option>
<option>Traumatic Brain Injury</option>
<option>Trigeminal Neuralgia</option>
<option>Tumors</option>
<option>Tumors vs. Stroke</option>
<option>Vascular Dementia: Large Vessel</option>
<option>Vascular Dementia: Small Vessel</option>
<option>Vasculitis</option>
<option>Wernick-Korsakoff Syndrome</option>
</select><br>
Diagnostic Code <input type="text" name="DiagnosticCode" size="6" tabindex="5" value="<%=oRS("DiagnosticCode&quot

%>"><br>
Subcortical Hyperintenisites (SH) <select size="1" name="SH">
<option>Mild</option>
<option>Moderate</option>
<option>Severe</option>
</select></p>
<input type="Hidden" name="PatientID" value="<%=oRS("PatientID&quot

%>">

<p><input type="submit" name="Action" value="Update" tabindex="7"><input type="reset" value="Reset" name="B2"></p>
</form>
<%
ElseIf (whichaction = "Update&quot

Then

connectString = "DRIVER={Microsoft Access Driver (*.mdb)};" & "DBQ=" & Server.MapPath("C:\Inetpub\

http://wwwroot\A.mdb")

& ";"
set myConnection = Server.CreateObject("ADODB.Connection&quot

myConnection.Open connectString

objRS = Server.CreateObject("ADODB.Recordset&quot

strFirstName = request.form("FirstName&quot

strLastName = request.form("LastName&quot

strDOB = Request.form("DOB&quot

strEducation = Request.form("Education&quot

strDiagnosis = Request.form("Diagnosis&quot

strDiagnosticCode = Request.form("DiagnosticCode&quot

strSH = Request.form("SH&quot

PatID = Request.Form("PatientID&quot

strQuery = "INSERT INTO Patients(FirstName, LastName, DOB, Education, Diagnosis, DiagnosticCode, SH) VALUES "
strQuery = strQuery & "('" & strFirstName & "','" & strLastName & "','" & strDOB & "','" & strEducation & "','"
strQuery = strQuery & strDiagnosis & "','" & strDiagnosticCode & "','" & strSH & "') WHERE PatientID = " & PatID & ";"
Response.write(strQuery)
myConnection.Execute strQuery

'objRS("FirstName&quot

= strFirstName
'objRS("LastName&quot

= strLastName
'objRS("DOB&quot

= strDOB
'objRS("Education&quot

= strEducation
'objRS("Diagnosis&quot

= strDiagnosis
'objRS("DiagnosticCode&quot

= strDiagnosticCode
'objRS("SH&quot

= strSH
'objRS.Update

End If
%>
</BODY>
</HTML>

Tarwn · Jul 2, 2003

Define doesn't work...?

Does it give you an error or just not display anything, or grind forveer wand then timeout...

If it displays an error, what is the error and section of code the error occurs in?

_{01010100 01101001 01100101 01110010 01101110 01101111 01101011 00101110 01100011 01101111 01101101}
^{29 3K 10 3D 3L 3J 3K 10 32 35 10 3E 39 33 35 10 3K 3F 10 38 31 3M 35 10 36 3I 35 35 10 3K 39 3D 35 10 1Q 19}
Do you know how hot your computer is running at home? I do

http://www.tiernok.com/hscripts/systemp.asp

onpnt · Jul 2, 2003

this will not work
Server.MapPath("C:\Inetpub\

http://wwwroot\A.mdb")

http://www.4guysfromrolla.com/webtech/121799-1.shtml

____________________________________________________
_{The most important part of your thread is the subject line.

Make it clear and about the topic so we can find it later for reference. Please!! faq333-3811}

http://www.onpntwebdesigns.com

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Export proble need help.

BEJW

Programmer

Tarwn

Programmer

onpnt

Programmer

Similar threads

Part and Inventory Search

Sponsor