navigation
a webmaster learning community
     Home    Register     Search      Help      Login    
Sponsors

Shopping Cart Software
Ecommerce software integrated into Frontpage, Dreamweaver and Golive templates. No monthly fees and available in ASP and PHP versions.

Website Templates
We also have a wide selection of Dreamweaver, Expression Web and Frontpage templates as well as webmaster tools and CSS layouts.

Frontpage website templates
Creative Website Templates for FrontPage, Dreamweaver, Flash, SwishMax

Search Forums
 

Advanced search
Recent Posts

 Todays Posts
 Most Active posts
 Posts since last visit
 My Recent Posts
 Mark posts read

Microsoft MVP

 

Form fields and ASP

 
View related threads: (in this forum | in all forums)

Logged in as: Guest
Users viewing this topic: none
Printable Version 

All Forums >> Web Development >> ASP and Database >> Form fields and ASP
Page: [1]
 
xterradane

 

Posts: 143
From: Mobile, AL USA
Status: offline

 
Form fields and ASP - 1/7/2002 19:57:30   
Okay, here is something weird. I have a my profile page in which some one can push a link to post their resume or another link to edit the existing one. They both go to the below page. If the press creat the page looks great! If they press update the form fields are far apart. Any ideas?

<% Response.Buffer=True%>
<!--#include file="JobBoard.asp"-->

<html>

<head>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Resume Submission</title>
<meta name="Microsoft Border" content="none, default">
</head>
<body stylesrc="index.htm">
<!--webbot bot="Include" U-Include="SNavigation.htm" TAG="BODY" -->
<p><%
Dim blnNew, blnNotFound
Select Case Request.QueryString("Action")
Case "AddNew"
blnNew = True
Response.Write "Please note that at this time you are only able to have one resume." &_
"If you already have one and submit another it will overwrite the existing resume." &_
"To edit an existing resume please go back and choose the edit button. <b>Please Add New Resume Below:"
Case "Update"
blnNew = False
Response.Write "<ALIGN= ""CENTER"">Please Update Resume Below:"
Case "NotFound"
blnNotFound = True
Response.Write "Your Resume was not Found, Please submit a new one:"
End Select

Dim rsUser
Set rsUser = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM Resume WHERE EMail='" & Session("EMail") & "';"
rsUser.Open strSQL, objConn, adOpenForwardOnly, adLockOptimistic, adCmdText

If Not blnNew AND rsUser.EOF Then
Response.Redirect "MyProfile.asp?Action=NotFound"
End If

%>
<form method="POST" action="AddResume.asp">
<%
If blnNew Then %>
<INPUT TYPE="Hidden" NAME="EMail" VALUE=" " > <%
Else %>
<INPUT TYPE="Hidden" NAME="EMail" VALUE= "<%=Request("EMail") %>"> <%
End If
%>
<hr size="1" color="#FF9933">
<table height="907" width="953">
<tr>
<td width="133" height="25">
<font size="2" face="Verdana"><b>Address:</b></font></td>
<b>
<td width="800" height="25" colspan="4">
<b><font size="2" face="Verdana"><input type="text" name="Address" value="<% If Not blnNew Then Response.Write rsUser("Address")End If%>" size="69">
</font></b></td>
</tr>
</b>
<tr>
<td width="133" height="25">
<p align="left"> <font size="2" face="Verdana"><b>City:</b></font></td>
<b>
<td width="334" height="25">
<b><font size="2" face="Verdana"><input type="text" name="City" value="<% If Not blnNew Then Response.Write rsUser("City") End If%>" size="24">
</font>
</b></td>
<td width="140" height="25" colspan="2" align="right">
<p align="left">
<b>
<font size="2" face="Verdana">
State:</font></b></p>
</td>
<td width="320" height="25">
<b><font size="2" face="Verdana"><input type="text" name="State" value="<% If Not blnNew Then Response.Write rsUser("State") End If%>" size="24"> </font> </b></td>
</tr>
</b>
<tr>
<td width="133" height="25">
<font size="2" face="Verdana"> <b> Country:</b></font></td>
<b>
<td width="334" height="25">
<b><font size="2" face="Verdana"><input type="text" name="Country" value="<% If Not blnNew Then Response.Write rsUser("Country") End If%>" size="24"></font></b></td>
<td width="140" height="25" colspan="2" align="right">
<p align="left">
<b><font size="2" face="Verdana">Zip Code: </font>
</b></p>
</td>
<td width="320" height="25">
<b> <font size="2" face="Verdana"> <input type="text" name="Zip" value="<% If Not blnNew Then Response.Write rsUser("Zip") End If%>" size="24">
</font>
</b></td>
</tr>
</b>
<tr>
<td width="133" height="25">
<font size="2" face="Verdana"><b>Home Phone:</b></font></td>
<td width="334" height="25">
<b><font size="2" face="Verdana"><input type="text" name="HomePhone" value="<% If Not blnNew Then Response.Write rsUser("HomePhone") End If%>" size="24">
</font>
</b></td>
<td width="140" height="25" colspan="2" align="right">
<b>
<p align="left">
<font size="2" face="Verdana">
Other Phone:</font></p>
</b>
</td>
<td width="320" height="25">
<b><font size="2" face="Verdana"><input type="text" name="OtherPhone" value="<% If Not blnNew Then Response.Write rsUser("OtherPhone") End If%>" size="20">
</font>
</b></td>
</tr>
<tr>
<td width="927" height="1" colspan="5">
</td>
</tr>
<tr>
<td width="133" height="25">
<b>
<font size="2" face="Verdana">Job Title:</font>
</b>
</td>
<td width="334" height="25">
<p style="word-spacing: 0; margin-top: 0; margin-bottom: 0">
<b><font size="2" face="Verdana"><input type="text" name="JobTitle" value="<% If Not blnNew Then Response.Write rsUser("JobTitle") End If%>" size="38"></font></b></p>
<p style="word-spacing: 0; margin-top: 0; margin-bottom: 0"><font color="#FF0000" face="Verdana" size="1">(Athletic
Director, Soccer Coach, etc)</font></td>
<td width="140" height="50" colspan="2" align="right" rowspan="2">
<b>
<p align="left">
<font size="2" face="Verdana">Certifications:</font>
</b>
</td>
<td width="320" height="50" rowspan="2">
<b>
<font face="Verdana">
<Textarea name="Certifications" ROWS=5 COLS=39 WRAP="Virtual"><% If Not blnNew Then Response.Write rsUser("Certifications")End If%></Textarea></font>
</b>
</td>
</tr>
<tr>
<td width="133" height="25">
<font face="Verdana" size="2"><b>Job Categories: </b></font><font face="Verdana" size="1">(you
can choose up to 5 multiple categories by holding done the Ctrl key
while choosing)</font></td>
<b>
<td width="334" height="25">
<font face="Verdana"><b>
<select size="5" name="JobType" value="<% If Not blnNew Then Response.Write rsUser("JobType") End If%>">
<option value="Academic">Academic</option>
<option value="Assistantships">Assistantships</option>
<option value="Athletic Trainer">Athletic Training</option>
<option value="Biomechanics">Biomechanics</option>
<option value="Clinical">Clinical</option>
<option value="Coaching">Coaching</option>
<option value="Exercise Physiologist">Exercise Physiologist</option>
<option value="Fitness Director">Fitness Director</option>
<option value="Fitness Instructor">Fitness Instructor</option>
<option value="Internship">Internship</option>
<option value="Personal Trainer">Personal Trainer</option>
<option value="Physical Therapy">Physical Therapy</option>
<option value="Recreation">Recreation</option>
<option value="Sales">Sales</option>
<option value="Sports Management">Sports Management</option>
<option value="Strength Coach">Strength Coach</option>
<option value="Other">Other</option>
</select></b></font></td>
</tr>
</b>
<b>
<tr>
<td width="133" height="6">
<b>
<font size="2" face="Verdana">Highest Degree Obtained:</font>
</b>
</td>
<td width="334" height="6" colspan="2">
<b><font size="2" face="Verdana"><input type="text" name="Degree" value="<% If Not blnNew Then Response.Write rsUser("Degree") End If%>" size="29"> </font> </b></td>
<td width="140" height="6">
<b>
<p align="left">
<font size="2" face="Verdana">Major:</font></p>
</b>
</td>
<td width="320" height="6">
<b><font size="2" face="Verdana"><input type="text" name="Major" value="<% If Not blnNew Then Response.Write rsUser("Major") End If%>" size="22"> </font> </b></td>
</tr>
<tr>
<td width="133" height="6">
<b><font size="2" face="Verdana">Career Level: </font></b></td>
<td width="334" height="6" colspan="2">
<b><font size="2" face="Verdana"><select size="1" name="CareerLevel" value="<% If Not blnNew Then Response.Write rsUser("CareerLevel") End If%>">
<option selected>Entry Level</option>
<option>0-1 Years</option>
<option>1-3 Years</option>
<option>3-5 Years</option>
<option>5+ years</option>
 
</select> </font> </b></td>
<td width="140" height="6">
<p align="left">
</td>
<td width="320" height="6">
</td>
</tr>
<tr>
<td width="133" height="25">
<b><font size="2" face="Verdana">Desired Location:</font></b></td>
<td width="334" height="25" colspan="2">
<font face="Verdana" size="2"><select size="5" name="State" multiple>
<option selected value="Any">Any</option>
<option value="International">International-Non US</option>
<option value="Alabama">Alabama</option>
<option value="Alaska">Alaska</option>
<option value="Arizona">Arizona</option>
<option value="Arkansas">Arkansas</option>
<option value="California">California</option>
<option value="Colorado">Colorado</option>
<option value="Connecticut">Connecticut</option>
<option value="Delaware">Delaware</option>
<option value="Florida">Florida</option>
<option value="Georgia">Georgia</option>
<option value="Hawaii">Hawaii</option>
<option value="Idaho">Idaho</option>
<option value="Illinois">Illinois</option>
<option value="Indiana">Indiana</option>
<option value="Iowa">Iowa</option>
<option value="Kansas">Kansas</option>
<option value="Kentucky">Kentucky</option>
<option value="Louisiana">Louisiana</option>
<option value="Maine">Maine</option>
<option value="Maryland">Maryland</option>
<option value="Massachusetts">Massachusetts</option>
<option value="Michigan">Michigan</option>
<option value="Minnesota">Minnesota</option>
<option value="Mississippi">Mississippi</option>
<option value="Missouri">Missouri</option>
<option value="Montana">Montana</option>
<option value="Nebraska">Nebraska</option>
<option value="Nevada">Nevada</option>
<option value="New Hamshire">New Hamshire</option>
<option value="New Jersey">New Jersey</option>
<option value="New Mexico">New Mexico</option>
<option value="New York">New York</option>
<option value="North Carolina">North Carolina</option>
<option value="North Dakota">North Dakota</option>
<option value="Ohio">Ohio</option>
<option value="Oklahoma">Oklahoma</option>
<option value="Oregon">Oregon</option>
<option value="Pennsylvania">Pennsylvania</option>
<option value="Rhode Island">Rhode Island</option>
<option value="South Carolina">South Carolina</option>
<option value="South Dakota">South Dakota</option>
<option value="Tennessee">Tennessee</option>
<option value="Texas">Texas</option>
<option value="Utah">Utah</option>
<option value="Vermont">Vermont</option>
<option value="Virginia">Virginia</option>
<option value="Washington">Washington</option>
<option value="Washington, DC">Washington, DC</option>
<option value="Wisconsin">Wisconsin</option>
<option value="Wyoming">Wyoming</option>
</select></font></td>
<td width="140" height="25">
<p align="right">
</p>
</td>
<td width="320" height="25">
</td>
</tr>
<tr>
<td width="945" height="21" colspan="5">
</td>
</tr>
<tr>
<td width="945" height="21" colspan="5">
<b><font size="2" face="Verdana">Attached Resume: <font color="#FF0000" size="2">Please cut and
paste your resume into the text box below. </font></font></b></td>
</tr>
<tr>
<td width="945" height="556" colspan="5">
<font face="Verdana">
<Textarea name="Resume" ROWS=28 COLS=98 WRAP="Virtual"><% If Not blnNew Then Response.Write rsUser("Resume") End If%> </Textarea>
</font>
</td>
</tr>
<tr>
<td width="945" height="27" colspan="5">
<font face="Verdana">
<input type="submit" value="<% If Not blnNew Then %>Update Resume <% Else %>Post Resume <% End If %>"></font></td>
</tr>

</form></table>
</b>
</body>





























































 
daveh42

 

Posts: 83
From: Maine USA
Status: offline

 
RE: Form fields and ASP - 1/7/2002 20:15:22   
The align="center" in your Case "Update" is probably causing it.


Hope this helps,

Dave


 

(in reply to xterradane)
xterradane

 

Posts: 143
From: Mobile, AL USA
Status: offline

 
RE: Form fields and ASP - 1/8/2002 19:38:17   
That did not work

 

(in reply to xterradane)
Spooky

 

Posts: 26599
Joined: 11/11/1998
From: Middle Earth
Status: offline

 
RE: Form fields and ASP - 1/8/2002 20:36:30   
Do you have a URL we could view?

§þððk¥
Database / DRW Q & A
VP-ASP Shopping cart
Spooky Login

(in reply to xterradane)
xterradane

 

Posts: 143
From: Mobile, AL USA
Status: offline

 
RE: Form fields and ASP - 1/9/2002 12:55:53   
I will repost on Monday when I load it.

 

(in reply to xterradane)
Page:   [1]

All Forums >> Web Development >> ASP and Database >> Form fields and ASP
Page: [1]
Jump to: 1





New Messages No New Messages
Hot Topic w/ New Messages Hot Topic w/o New Messages
Locked w/ New Messages Locked w/o New Messages
 Post New Thread
 Reply to Message
 Post New Poll
 Submit Vote
 Delete My Own Post
 Delete My Own Thread
 Rate Posts