<html>
<head>
<title>ASCAM Winery Customers Database Application</title>
<Img height="350" width="175" style="float:left;" SRC="https://fbcdn-sphotos-e-a.akamaihd.net/hphotos-ak-xap1/v/t1.0-9/1538743_739414219404453_295536607_n.jpg?oh=44ac8ad664ec4c955320953ecc897abf&oe=546C928C&__gda__=1416231439_9f7ec10eb3a492796ca997745cd36163">
<Img height="350" width="175" style="float:right;" SRC="https://fbcdn-sphotos-h-a.akamaihd.net/hphotos-ak-xpf1/v/t1.0-9/10418140_272292502973344_2392827848855223574_n.jpg?oh=31ea8cfd238262ea38791e54fd894927&oe=5461E223&__gda__=1416653129_a039fc9ac8f3adcb4f4d220274565fad">
<SCRIPT Language="VBSCRIPT">
dim strCon
dim conn
dim rs
sub Edit_OnClick()
rs.fields("ID") = SCAM.Name1.value
rs.Update
end sub
sub del_OnClick()
if not rs.eof and not rs.bof then
rs.Delete
rs.MoveNext
if not rs.eof then
SCAM.Name1.value=rs.fields("CustomerID")
SCAM.CustomerFirstName.value=rs.fields("CustomerFirstName")
SCAM.CustomerLastName.value=rs.fields("CustomerLastName")
SCAM.BillingAddress.value=rs.fields("BillingAddress")
SCAM.EmailAddress.value=rs.fields("EmailAddress")
SCAM.City.value=rs.fields("City")
SCAM.State.value=rs.fields("State")
else
rs.MoveFirst
SCAM.Name1.value=rs.fields("CustomerID")
SCAM.CustomerFirstName.value=rs.fields("CustomerFirstName")
SCAM.CustomerLastName.value=rs.fields("CustomerLastName")
SCAM.BillingAddress.value=rs.fields("BillingAddress")
SCAM.EmailAddress.value=rs.fields("EmailAddress")
SCAM.City.value=rs.fields("City")
SCAM.State.value=rs.fields("State")
end if
end if
end sub
sub dbConn()
strCon="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Winery.mdb;
Persist Security Info=False"
Set Conn=CreateObject("ADODB.Connection")
Set rs=CreateObject("ADODB.recordset")
Conn.Open strCon
rs.ActiveConnection = conn
'rs.CursorLocation = adUseClient
'rs.CursorType = adOpenKeyset
rs.LockType = 2
rs.Source = "customer"
rs.Open
rs.MoveFirst
SCAM.Name1.value=rs.fields("CustomerID")
SCAM.CustomerFirstName.value=rs.fields("CustomerFirstName")
SCAM.CustomerLastName.value=rs.fields("CustomerLastName")
SCAM.BillingAddress.value=rs.fields("BillingAddress")
SCAM.EmailAddress.value=rs.fields("EmailAddress")
SCAM.City.value=rs.fields("City")
SCAM.State.value=rs.fields("State")
end sub
sub MoveNext_Onclick()
if not rs.eof then
rs.MoveNext
if not rs.eof then
SCAM.Name1.value=rs.fields("CustomerID")
SCAM.CustomerFirstName.value=rs.fields("CustomerFirstName")
SCAM.CustomerLastName.value=rs.fields("CustomerLastName")
SCAM.BillingAddress.value=rs.fields("BillingAddress")
SCAM.EmailAddress.value=rs.fields("EmailAddress")
SCAM.City.value=rs.fields("City")
SCAM.State.value=rs.fields("State")
end if
end if
end sub
sub MovePrev_Onclick()
if not rs.bof then
rs.MovePrevious
if not rs.bof then
SCAM.Name1.value=rs.fields("CustomerID")
SCAM.CustomerFirstName.value=rs.fields("CustomerFirstName")
SCAM.CustomerLastName.value=rs.fields("CustomerLastName")
SCAM.BillingAddress.value=rs.fields("BillingAddress")
SCAM.EmailAddress.value=rs.fields("EmailAddress")
SCAM.City.value=rs.fields("City")
SCAM.State.value=rs.fields("State")
end if
end if
end sub
sub AddNew_Onclick()
rs.AddNew
rs.fields("CustomerID")=SCAM.Name1.value
rs.fields("CustomerFirstName")=SCAM.CustomerFirstName.value
rs.fields("CustomerLastName")=SCAM.CustomerLastName.value
rs.fields("BillingAddress")=SCAM.BillingAddress.value
rs.fields("EmailAddress")=SCAM.EmailAddress.value
rs.fields("City")=SCAM.City.value
rs.fields("State")=SCAM.State.value
rs.Update
end sub
sub Search()
SCAM.CustomerFirstName.value=""
SCAM.CustomerLastName.value=""
SCAM.BillingAddress.value=""
SCAM.EmailAddress.value=""
SCAM.City.value=""
SCAM.State.value=""
rs.MoveFirst()
do while not rs.eof
if rs.fields("CustomerID") = int(SCAM.Name1.value) then
SCAM.Name1.value=rs.fields("CustomerID")
SCAM.CustomerFirstName.value=rs.fields("CustomerFirstName")
SCAM.CustomerLastName.value=rs.fields("CustomerLastName")
SCAM.BillingAddress.value=rs.fields("BillingAddress")
SCAM.EmailAddress.value=rs.fields("EmailAddress")
SCAM.City.value=rs.fields("City")
SCAM.State.value=rs.fields("State")
end if
rs.MoveNext()
loop
end sub
</script>
<BODY onLoad="dbConn()">
<FORM NAME="SCAM" Method="Post">
<Center><h3>ASCAM Winery Customers Database Connection</h3>
<TABLE border="0" cellpadding="2" cellspacing="2">
<tr>
<td>
Customer ID
</td>
<td>
<INPUT TYPE="TEXT" NAME="Name1">
</td>
</tr>
<TR>
<TD>
First Name
</TD>
<TD>
<INPUT type="text" name="CustomerFirstName">
</TD>
</TR>
<TR>
<TD>
Last Name
</TD>
<TD>
<INPUT type="text" name="CustomerLastName">
</TD>
</TR>
<TR>
<TD>
Email
</TD>
<TD>
<INPUT type="text" name="EmailAddress">
</TD>
</TR>
<TR>
<TD>
Phone
</TD>
<TD>
<INPUT type="text" name="Phone">
</TD>
</TR>
<TR>
<TD>
Fax
</TD>
<TD>
<INPUT type="text" name="FaxNumber">
</TD>
</TR>
<TR>
<TD>
Address
</TD>
<TD>
<INPUT type="text" name="BillingAddress">
</TD>
</TR>
<TR>
<TD>
City
</TD>
<TD>
<INPUT type="text" name="City">
</TD>
</TR>
<TR>
<TD>
State
</TD>
<TD>
<INPUT type="text" name="State">
</TD>
</TR>
<TR>
<TD>
Zip Code
</TD>
<TD>
<INPUT type="text" name="ZipCode">
</TD>
</TR>
</TD>
</TR>
<tr>
<table>
<td>
<INPUT TYPE=BUTTON name="AddNew" value="Add">
<INPUT TYPE=BUTTON name="MoveNext" value="Move Next">
<INPUT TYPE=BUTTON name="MovePrev" value="Move Previous">
<input type="button" value="Search" onClick="Search()">
<input type="reset" value="Reset" onClick = "location.reload();">
<INPUT TYPE=BUTTON name="del" value="Delete"><br>
</tr></td></table>
</form>
<SCRIPT LANGUAGE="JavaScript">
var mydate=new Date()
var year=mydate.getYear()
if (year < 1000)
year+=1900
var day=mydate.getDay()
var month=mydate.getMonth()
var daym=mydate.getDate()
if (daym<10)
daym="0"+daym
var dayarray=new Array("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday")
var montharray=new Array("January","February","March","April","May","June","July","August","September","October","November","December")
document.write("<large><font color='000000' face='Chiller'><b>"+dayarray[day]+", "+montharray[month]+" "+daym+", "+year+"</b></font></small>")
</SCRIPT>
</head>
</body></html>
What am i doing wrong?
↧
Cant link access database to html page
↧