Web Hosting, Free Web Site Builder & Domain Name, Web Hosting Made Easy By Brinkster

Customer Login . Webmail Login . About Us . Contact Us

Save to web space

E-mail Link

Add to Favorites

Simple adding to a database
Added By: Nickman0

Rated:

(3 of 5) by 8.

Login to rate this snippet.

Language: Visual Basic Script

Description:

A simple script that adds a person's name into a database.

Code Snippet:

<html>
<head>
<title>Database Example</title>
<meta name="vs_TargetSchema" content="HTML 4.0">
<meta http-equiv="content-type" content="text/html; charset=windows-1252">
</head>
<body bgColor="#000000">
<center>
<font color="#FFFFFF" size="2" face="Tahoma, Verdana">
<%
'Start with some basic security snippets
'Good idea if your adding personal information like the name of the user although not required

Response.Expires = -1000
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Pragma", "no-cache"
Response.AddHeader "cache-control", "private"

Dim oConn 'Holds the database connection
Dim sql 'Holds the SQL statement
Dim DBname 'Holds the database name
Dim vName 'Holds the record that we will be inserting into the database

vName = "Dude"
DBname = Server.MapPath("/username/db/test_db.mdb") 'Dont forget to change your username

'Start our database connection

'But first, lets check to make sure that the user submitted something valid instead of something blank

If Len (Name) > 0 Then
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBname & ";"
'Start SQL statement
sql = "INSERT INTO People (Name) VALUES ('" & vName & "')"
oConn.Execute(sql)

'Tell the user the record was added successfully

Response.Write("Thank you " & vName & ", your name was successfully added into the database.")

Else

'If the fields didnt make it into the database, tell them
Response.Write("You forgot one of the mandatory fields.")

End if

'Just make the BACK link here
Response.Write("<br><a href=""javascript:history.back(1)"">Back</a>")

'Close the objects

DBCon.Close
Set DBCon = Nothing
%>
</font>
</body>
</html>

Close X

Click Here
to get support using Skype.

Don't have Skype?
Click here to download it for FREE!