ASP Development
 
Forums: » Register « |  User CP |  Games |  Calendar |  Members |  FAQs |  Sitemap |  Support | 
 
 
User Name:
Password:
Remember me
Go Back   ASP Free ForumsProgrammingASP Development

Reply
Add This Thread To:
  Del.icio.us   Digg   Google   Spurl   Blink   Furl   Simpy   Y! MyWeb 
Thread Tools Search this Thread Rate Thread Display Modes
 
Unread ASP Free Forums Sponsor:
  #1  
Old November 29th, 2003, 03:42 PM
bhups's Avatar
bhups bhups is offline
Registered User
ASP Free Newbie (0 - 499 posts)
 
Join Date: Nov 2003
Location: UK London
Posts: 13 bhups User rank is Just a Lowly Private (1 - 20 Reputation Level) 
Time spent in forums: < 1 sec
Reputation Power: 0
Stop blank lines...

hey all!

i wanna stop having blank lines being inserted into my database wen the page is refreshed...

this is the following code:

Code:

<%
	Dim conn
	Dim RS

	idNumber = Request.Form("text1")
	idNumber = CInt(idNumber)
%>

<%
    Set conn = Server.CreateObject("ADODB.Connection")
    conn.Mode = adModeReadWrite
    conn.open "driver={Microsoft Access Driver (*.mdb)};" & _
              "dbq=" & Server.MapPath("../../Special/chelsea.mdb")

	sql = "SELECT * FROM [team]"
	Set RS = Server.CreateObject ("ADODB.Recordset")
	RS.Open sql, conn, 3, 3

	RS.AddNew
		RS ("jerseyNos")	= Request.Form("Text2")
		RS ("fname")		= Request.Form("Text3")
		RS ("sname")		= Request.Form("Text4")
		RS ("position")		= Request.Form("Text5")
	RS.Update
%>


can someone add to it please?

thanks in advance...

Bhups

Reply With Quote
  #2  
Old November 29th, 2003, 07:02 PM
Memnoch's Avatar
Memnoch Memnoch is offline
Unholy Moderator
Click here for more information.
 
Join Date: Oct 2003
Location: In hell, where did you think?
Posts: 11,879 Memnoch User rank is Lieutenant Colonel (40000 - 50000 Reputation Level)Memnoch User rank is Lieutenant Colonel (40000 - 50000 Reputation Level)Memnoch User rank is Lieutenant Colonel (40000 - 50000 Reputation Level)Memnoch User rank is Lieutenant Colonel (40000 - 50000 Reputation Level)Memnoch User rank is Lieutenant Colonel (40000 - 50000 Reputation Level)Memnoch User rank is Lieutenant Colonel (40000 - 50000 Reputation Level)Memnoch User rank is Lieutenant Colonel (40000 - 50000 Reputation Level)Memnoch User rank is Lieutenant Colonel (40000 - 50000 Reputation Level)Memnoch User rank is Lieutenant Colonel (40000 - 50000 Reputation Level)Memnoch User rank is Lieutenant Colonel (40000 - 50000 Reputation Level)Memnoch User rank is Lieutenant Colonel (40000 - 50000 Reputation Level) 
Time spent in forums: 3 Weeks 5 Days 18 h
Reputation Power: 500
try checking to make sure the fields aren't empty first.
Code:
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Mode = adModeReadWrite
conn.open "driver={Microsoft Access Driver (*.mdb)};" & _
              "dbq=" & Server.MapPath("../../Special/chelsea.mdb")

sql = "SELECT * FROM [team]"
Set RS = Server.CreateObject ("ADODB.Recordset")
RS.Open sql, conn, 3, 3

If(Request.Form("Text2") = "") Then
   'Throw an error
Else If(Request.Form("Text3") = "") Then
   'Throw an error
Else If(Request.Form("Text4") = "") Then
   'Throw an error
Else If(Request.Form("Text5") = "") Then
   'Throw and Error
Else
   RS.AddNew
   RS ("jerseyNos") = Request.Form("Text2")
   RS ("fname")   = Request.Form("Text3")
   RS ("sname") = Request.Form("Text4")
   RS ("position") = Request.Form("Text5")
   RS.Update
End If
%>

Reply With Quote
  #3  
Old November 30th, 2003, 09:59 AM
bhups's Avatar
bhups bhups is offline
Registered User
ASP Free Newbie (0 - 499 posts)
 
Join Date: Nov 2003
Location: UK London
Posts: 13 bhups User rank is Just a Lowly Private (1 - 20 Reputation Level) 
Time spent in forums: < 1 sec
Reputation Power: 0
cheers mate...


is there n e way i can add the add code to a button so when it gets clicked it updates and adds the data to the db?

i tried it this way but no good...

Code:

<SCRIPT LANGUAGE=ASP/VBSCRIPT>

function AddArtsEvent()

		RS.AddNew
			RS ("jerseyNos")	= Request.Form("Text2")
			RS ("fname")		= Request.Form("Text3")
			RS ("sname")		= Request.Form("Text4")
			RS ("position")		= Request.Form("Text5")
		RS.Update

document.frm1.submit
end function

</SCRIPT>



<FORM NAME="frm1" METHOD="POST" ACTION="formAdd.asp">
<BR>
Jersey Nos: <BR> <INPUT NAME="Text2" SIZE="48">
<BR>
First Name: <BR> <INPUT NAME="Text3" SIZE="48">
<BR>
Second Name: <BR> <INPUT NAME="Text4" SIZE="48">
<BR>
Position: <BR> <INPUT NAME="Text5" SIZE="48">
<BR>
<INPUT TYPE=BUTTON VALUE="Submit" onclick="AddArtsEvent()">
</FORM>


thanks in advance...

Bhups

Reply With Quote
  #4  
Old November 30th, 2003, 04:01 PM
bhups's Avatar
bhups bhups is offline
Registered User
ASP Free Newbie (0 - 499 posts)
 
Join Date: Nov 2003
Location: UK London
Posts: 13 bhups User rank is Just a Lowly Private (1 - 20 Reputation Level) 
Time spent in forums: < 1 sec
Reputation Power: 0
not to worry... got it

Code:

	if Request.form("action")="send" then
		RS.AddNew
			RS ("jerseyNos")	= Request.Form("Text2")
			RS ("fname")		= Request.Form("Text3")
			RS ("sname")		= Request.Form("Text4")
			RS ("position")		= Request.Form("Text5")
		RS.Update
	End if

Reply With Quote
Reply

Viewing: ASP Free ForumsProgrammingASP Development > Stop blank lines...


Thread Tools  Search this Thread 
Search this Thread:

Advanced Search
Display Modes  Rate This Thread 
Rate This Thread:


Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off
View Your Warnings | New Posts | Latest News | Latest Threads | Shoutbox
Forum Jump



 Free IT White Papers!
 
How to Present Effectively Online
This white paper offers practical and actionable advice on the key steps that any presenter should consider as they plan and execute a Webinar or online meeting.

 
Open Source Security Myths
Open Source Software (OSS) is computer software whose source code is available to the general public with relaxed or non-existent intellectual property restrictions (or arrangement such as the public domain), and is usually developed with the input of many contributors.

 
Power and Cooling Capacity Management for Data Centers
This paper describes the principles for achieving power and cooling capacity management.

 
Scalable, Fault-Tolerant NAS for Oracle - The Next Generation
For several years NAS has been evolving as a storage alternative for Oracle databases, and for good reason: NAS is quite often the simplest, most cost-effective storage approach for Oracle. Learn about the benefits that HP's approach to scalable NAS brings to Oracle environments in this comprehensive white paper.

 
Understanding Web Application Security Challenges
This white paper discusses many common threats and preventive measures for Web application security, and explains what you can do to help protect your organization.

 

Forums: » Register « |  User CP |  Games |  Calendar |  Members |  FAQs |  Sitemap |  Support | 
  
 





© 2003-2009 by Developer Shed. All rights reserved. DS Cluster 6 hosted by Hostway
Stay green...Green IT