PDA

View Full Version : Paging through Recordsets

Vimal
05-27-2003, 01:05 AM
Anyone can help?

I am constantly getting the same error message, and I cant figure out what's the problem in my code.

Here's the error message:

ADODB.Recordset error '800a0bb9'
The application is using arguments that are of the wrong type, are out of acceptable range, or are in conflict with one another.

/blacklist/result5.asp, line 105

And line 105 is :
Connrcs.AbsolutePage = Current_Page

Here are my codes:
<%Response.Buffer = True%>

<html>

<head>
<title>BII - Blacklist Application</title>
</head>



<p align="center"><span style="position: absolute; left: 13; top: 4"><a href="mainmenu.asp"><img border="0" src="../newcontacts/images/home.gif" WIDTH="22" HEIGHT="22"></a></span><img border="0" src="../newcontacts/images/newlogo.gif" WIDTH="111" HEIGHT="78"></p>



<p align="center"><b><font color="#FF0000" face="Calisto MT" size="3">BLACKLIST
APPLICATION</font></b></p>



<p align="center"><font face="Calisto MT" color="#FF9900"><b><i>List of
Blacklisted Persons</i></b></font><font size="4" face="Copperplate Gothic Bold">&nbsp;</font></p>



<p align="center">&nbsp;</p>



<% '*****************************************************************

'DECLARE ALL LOCAL VARIABLES
Dim Conn
Dim connrcs
Dim strConn
Dim name
Dim strSQL
Dim strURL
Dim sPath
Dim Page_Size
Dim Current_Page
Dim Page_Count


strURL = Request.ServerVariables("URL")


'Number of books to be displayed per page
Page_Size = 20

If Request("Page") = "" Then
Current_Page = 1
Else
Current_Page = CInt(Request("Page"))
End if


'SET CONNECTION TO LOCAL VARIABLE
sPath = Server.MapPath("blacklistdb.mdb")
strConn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & sPath


'Open connection to the DB
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open strConn


Set connrcs = Server.CreateObject("ADODB.Recordset")

Connrcs.Pagesize = Page_Size

strSQL = "SELECT * FROM details ORDER BY name"


connrcs.open strSQL, conn
conn.Execute(strSQL)
%>


<table border="1" align="center" height="1" width="50%">
<tr>
<th height="1" align="center" width="20%">
<font color="black"><font size="2"><div align="center">Name</div></font>
</th>
<th height="1" align="center" width="25%">
<font color="black"><font size="2"><div align="center">Other Names</div></font>
</th>
<th height="1" align="center" width="25%">
<font color="black"><font size="2"><div align="center">Also Known As</div></font>
</th>
<th height="1" align="center" width="15%">
<font color="black"><font size="2"><div align="center">Country</div></font>
</th>
<th height="1" align="center" width="15%">
<font color="black"><font size="2"><div align="center">Referred By</div></font>
</th>

</tr>

<%
Page_Count = Connrcs.PageCount

If 1 > Current_Page Then Current_Page = 1
If Current_Page > Page_count Then Current_Page = Page_Count

Connrcs.AbsolutePage = Current_Page

Do While Connrcs.AbsolutePage = Current_Page and Not Connrcs.EOF

Response.Write "<tr><th><font size=2><p align=center><a href=""details.asp?blid=" & connrcs(0) & """><br>"
Response.Write Server.HtmlEncode(connrcs(1)) & "</a></td></p>"
Response.Write "<td><font size=2><center>" & connrcs(2) & "</td></font></center>"
Response.Write "<td><font size=2><center>" & connrcs(13) & "</td></font></center>"
Response.Write "<td><font size=2><center>" & connrcs(6) & "</td></font></center>"
Response.Write "<td><font size=2><center>" & connrcs(11) & "</td></font></center>"
Response.Write "</tr>" & vbCrLf

connrcs.MoveNext
Loop

connrcs.close
Conn.close
Set connrcs = Nothing
Set Conn = Nothing


If Current_Page <> 1 Then
Response.Write "<a href =""result5.asp?Page="
Response.Write Current_Page - 1
Response.Write """><center><img src=""images/prev_1.gif"" border=""0""></a>" & vbCrLf
End if

If Current_Page < Page_Count Then
Response.Write "<a href =""result5.asp?Page="
Response.Write Current_Page + 1
Response.Write """><center><img src=""images/next_1.gif"" border=""0""></a>" & vbCrLf
End if


%>

</table>


Thanking you in advance
Vimal
Zebulin
05-27-2003, 03:13 AM
Set connrcs = Server.CreateObject("ADODB.Recordset")


strSQL = "SELECT * FROM details ORDER BY name"
connrcs.open strSQL, conn,1 ,1

'If records found then do the following
if not Connrcs.eof then

%>


<table border="1" align="center" height="1" width="50%">
<tr>
<th height="1" align="center" width="20%">
<font color="black"><font size="2"><div align="center">Name</div></font>
</th>
<th height="1" align="center" width="25%">
<font color="black"><font size="2"><div align="center">Other Names</div></font>
</th>
<th height="1" align="center" width="25%">
<font color="black"><font size="2"><div align="center">Also Known As</div></font>
</th>
<th height="1" align="center" width="15%">
<font color="black"><font size="2"><div align="center">Country</div></font>
</th>
<th height="1" align="center" width="15%">
<font color="black"><font size="2"><div align="center">Referred By</div></font>
</th>

</tr>

<%

Connrcs.Pagesize = Page_Size
Page_Count = Connrcs.PageCount
If 1 > Current_Page Then Current_Page = 1
If Current_Page > Page_count Then Current_Page = Page_Count
Connrcs.AbsolutePage = Current_Page

Do While Connrcs.AbsolutePage = Current_Page and Not Connrcs.EOF

...........



Dont forget to close the if condition for records found
Vimal
05-27-2003, 04:36 AM
Thank you Zebulin.

I am not getting the error anymore. In fact, I can move through the different pages freely, without any errors displayed. However, I am getting a blank table. The different results are not being displayed. Can you help me out with this one please?

Regards,
Vimal
Zebulin
05-27-2003, 10:59 PM
I am getting a blank table. The different results are not being displayed

can you be more specific.. when does this happen .. code would also help.. what do you mean by "different results"
Vimal
05-27-2003, 11:37 PM
can you be more specific.. when does this happen ..what do you mean by "different results"


When I click on the search button, i.e, when the query is executed, I get a blank table, instead of a table filled with results found from the query execution. ( I was supposed to get a list of all records in my database).

The 'paging' part works out perfectly. I can move around the different pages generated without getting the previous error, except that on each page, a blank table is displayed.

I hope I have been explicit enough. Please let me know if not.

Here are the codes:

<%Response.Buffer = True%>

<html>

<head>
<title>BII - Blacklist Application</title>
</head>



<p align="center"><span style="position: absolute; left: 13; top: 4"><a href="mainmenu.asp"><img border="0" src="images/home.gif" WIDTH="22" HEIGHT="22"></a></span><img border="0" src="images/newlogo.gif" WIDTH="111" HEIGHT="78"></p>



<p align="center"><b><font color="#FF0000" face="Calisto MT" size="3">BLACKLIST
APPLICATION</font></b></p>



<p align="center"><font face="Calisto MT" color="#FF9900"><b><i>List of
Blacklisted Persons</i></b></font><font size="4" face="Copperplate Gothic Bold">&nbsp;</font></p>



<p align="center">&nbsp;</p>



<% '*****************************************************************

'DECLARE ALL LOCAL VARIABLES
Dim Conn
Dim connrcs
Dim strConn
Dim name
Dim strSQL
Dim strURL
Dim sPath
Dim Page_Size
Dim Current_Page
Dim Page_Count


strURL = Request.ServerVariables("URL")


'Number of books to be displayed per page
Page_Size = 20

If Request("Page") = "" Then
Current_Page = 1
Else
Current_Page = CInt(Request("Page"))
End if


'SET CONNECTION TO LOCAL VARIABLE
sPath = Server.MapPath("blacklistdb.mdb")
strConn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & sPath


'Open connection to the DB
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open strConn


Set connrcs = Server.CreateObject("ADODB.Recordset")

strSQL = "SELECT * FROM details ORDER BY name"

connrcs.open strSQL, conn, 1, 1
conn.Execute(strSQL)

If not connrcs.eof then
%>


<table border="1" align="center" height="1" width="50%">
<tr>
<th height="1" align="center" width="20%">
<font color="black"><font size="2"><div align="center">Name</div></font>
</th>
<th height="1" align="center" width="25%">
<font color="black"><font size="2"><div align="center">Other Names</div></font>
</th>
<th height="1" align="center" width="25%">
<font color="black"><font size="2"><div align="center">Also Known As</div></font>
</th>
<th height="1" align="center" width="15%">
<font color="black"><font size="2"><div align="center">Country</div></font>
</th>
<th height="1" align="center" width="15%">
<font color="black"><font size="2"><div align="center">Referred By</div></font>
</th>

</tr>

<%
Connrcs.Pagesize = Page_Size
Page_Count = Connrcs.PageCount

If 1 > Current_Page Then Current_Page = 1
If Current_Page > Page_Count Then Current_Page = Page_Count

Connrcs.AbsolutePage = Current_Page

Do While Connrcs.AbsolutePage = Current_Page and Not Connrcs.EOF

Response.Write "<tr><th><font size=2><p align=center><a href=""details.asp?blid=" & connrcs(0) & """><br>"
Response.Write Server.HtmlEncode(connrcs(1)) & "</a></td></p>"
Response.Write "<td><font size=2><center>" & connrcs(2) & "</td></font></center>"
Response.Write "<td><font size=2><center>" & connrcs(13) & "</td></font></center>"
Response.Write "<td><font size=2><center>" & connrcs(6) & "</td></font></center>"
Response.Write "<td><font size=2><center>" & connrcs(11) & "</td></font></center>"
Response.Write "</tr>" & vbCrLf

connrcs.MoveNext
Loop

connrcs.close
Conn.close
Set connrcs = Nothing
Set Conn = Nothing
%>

</table>
<br>
<br>
<%
If Current_Page < Page_Count Then
Response.Write "<a href =""result5.asp?Page="
Response.Write Current_Page + 1
Response.Write """><center><img src=""images/next_1.gif"" border=""0""></a>" & vbCrLf
End if

If Current_Page <> 1 Then
Response.Write "<a href =""result5.asp?Page="
Response.Write Current_Page - 1
Response.Write """><center><img src=""images/prev_1.gif"" border=""0""></a>" & vbCrLf
End if

End if
%>
decimal9
12-10-2004, 04:44 PM
ADODB.Recordset error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/decimal9/register.asp, line 49

_______________________________________________________________

hello anybody can help me...please urgent!

i have create a registration form ...but when i press submit button error message is appear..i dont what problem...i use access database(.mdb) to be my database.

this is my code:

<%@LANGUAGE="VBSCRIPT"%>

<%
' *** Edit Operations: declare variables

Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd

Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId

Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i

MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" & Request.QueryString
End If

' boolean to abort record edit
MM_abortEdit = false

' query string to execute
MM_editQuery = ""
%>
<%
' *** Redirect if username exists
MM_flag="MM_insert"
If (CStr(Request(MM_flag)) <> "") Then
MM_dupKeyRedirect="register2.asp"
MM_rsKeyConnection=MM_password_STRING
MM_dupKeyUsernameValue = CStr(Request.Form("username"))
MM_dupKeySQL="SELECT username FROM katalaluan WHERE username='" & MM_dupKeyUsernameValue & "'"
MM_adodbRecordset="ADODB.Recordset"
set MM_rsKey=Server.CreateObject(MM_adodbRecordset)
MM_rsKey.ActiveConnection=MM_rsKeyConnection
MM_rsKey.Source=MM_dupKeySQL
MM_rsKey.CursorType=0
MM_rsKey.CursorLocation=2
MM_rsKey.LockType=3
MM_rsKey.Open
If Not MM_rsKey.EOF Or Not MM_rsKey.BOF Then
' the username was found - can not add the requested username
MM_qsChar = "?"
If (InStr(1,MM_dupKeyRedirect,"?") >= 1) Then MM_qsChar = "&"
MM_dupKeyRedirect = MM_dupKeyRedirect & MM_qsChar & "requsername=" & MM_dupKeyUsernameValue
Response.Redirect(MM_dupKeyRedirect)
End If
MM_rsKey.Close
End If
%>
<%
' *** Insert Record: set variables

If (CStr(Request("MM_insert")) = "daftar") Then

MM_editConnection = MM_password_STRING
MM_editTable = "katalaluan"
MM_editRedirectUrl = "success.asp"
MM_fieldsStr = "nama|value|ic no|value|username|value|katalaluan|value|alamat|value|emel|value"
MM_columnsStr = "nama|',none,''|[ic no]|none,none,NULL|username|',none,''|katalaluan|',none,''|alamat|',none,''|emel|',none,''"

' create the MM_fields and MM_columns arrays
MM_fields = Split(MM_fieldsStr, "|")
MM_columns = Split(MM_columnsStr, "|")

' set the form values
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))
Next

' append the query string to the redirect URL
If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If

End If
%>
<%
' *** Insert Record: construct a sql insert statement and execute it

Dim MM_tableValues
Dim MM_dbValues

If (CStr(Request("MM_insert")) <> "") Then

' create the sql insert statement
MM_tableValues = ""
MM_dbValues = ""
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_formVal = MM_fields(MM_i+1)
MM_typeArray = Split(MM_columns(MM_i+1),",")
MM_delim = MM_typeArray(0)
If (MM_delim = "none") Then MM_delim = ""
MM_altVal = MM_typeArray(1)
If (MM_altVal = "none") Then MM_altVal = ""
MM_emptyVal = MM_typeArray(2)
If (MM_emptyVal = "none") Then MM_emptyVal = ""
If (MM_formVal = "") Then
MM_formVal = MM_emptyVal
Else
If (MM_altVal <> "") Then
MM_formVal = MM_altVal
ElseIf (MM_delim = "'") Then ' escape quotes
MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"
Else
MM_formVal = MM_delim + MM_formVal + MM_delim
End If
End If
If (MM_i <> LBound(MM_fields)) Then
MM_tableValues = MM_tableValues & ","
MM_dbValues = MM_dbValues & ","
End If
MM_tableValues = MM_tableValues & MM_columns(MM_i)
MM_dbValues = MM_dbValues & MM_formVal
Next
MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"

If (Not MM_abortEdit) Then
' execute the insert
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close

If (MM_editRedirectUrl <> "") Then
Response.Redirect(MM_editRedirectUrl)
End If
End If

End If
%>
<HTML>
<HEAD>
<TITLE>0005_red</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=windows-1251">
<style type="text/css">
<!--
img {
border: none;
}
.tah10 {
font-family: Tahoma;
font-size: 10px;
text-decoration: none;
color: #000000;
}
.tah11 {
font-family: Tahoma;
font-size: 11px;
text-decoration: none;
color: #000000;
}
.ver10 {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 10px;
text-decoration: none;
color: #000000;
}
.ver11 {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 11px;
text-decoration: none;
color: #000000;
}
.tah9 {
font-family: Tahoma;
font-size: 9px;
text-decoration: none;
color: #000000;
}
.ver9 {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 9px;
text-decoration: none;
color: #000000;
}
-->
</style>
</HEAD>
<BODY BGCOLOR=#FFFFFF LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0>
<!-- ImageReady Slices (0005_red.psd - Slices: 03, 04, 05) -->
<TABLE WIDTH=100% height="100%" BORDER=0 CELLPADDING=0 CELLSPACING=0 bgcolor="#FFFFFF">
<TR>
<TD width="50%" rowspan="3" background="images/bg.gif" bgCOLOR="#707787">&nbsp;</TD>
<td width="1" bgcolor="#000000" rowspan="3"><img src="images/spacer.gif" width="1" height="1"></td>
<TD>
<TABLE WIDTH=780 BORDER=0 CELLPADDING=0 CELLSPACING=0>
<TR>
<TD>
<IMG SRC="images/spacer.gif" WIDTH=22 HEIGHT=1 ALT=""></TD>
<TD>
<IMG SRC="images/spacer.gif" WIDTH=24 HEIGHT=1 ALT=""></TD>
<TD>
<IMG SRC="images/spacer.gif" WIDTH=17 HEIGHT=1 ALT=""></TD>
<TD>
<IMG SRC="images/spacer.gif" WIDTH=26 HEIGHT=1 ALT=""></TD>
<TD>
<IMG SRC="images/spacer.gif" WIDTH=23 HEIGHT=1 ALT=""></TD>
<TD>
<IMG SRC="images/spacer.gif" WIDTH=26 HEIGHT=1 ALT=""></TD>
<TD>
<IMG SRC="images/spacer.gif" WIDTH=77 HEIGHT=1 ALT=""></TD>
<TD>
<IMG SRC="images/spacer.gif" WIDTH=189 HEIGHT=1 ALT=""></TD>
<TD>
<IMG SRC="images/spacer.gif" WIDTH=42 HEIGHT=1 ALT=""></TD>
<TD>
<IMG SRC="images/spacer.gif" WIDTH=63 HEIGHT=1 ALT=""></TD>
<TD>
<IMG SRC="images/spacer.gif" WIDTH=33 HEIGHT=1 ALT=""></TD>
<TD>
<IMG SRC="images/spacer.gif" WIDTH=24 HEIGHT=1 ALT=""></TD>
<TD>
<IMG SRC="images/spacer.gif" WIDTH=33 HEIGHT=1 ALT=""></TD>
<TD>
<IMG SRC="images/spacer.gif" WIDTH=45 HEIGHT=1 ALT=""></TD>
<TD>
<IMG SRC="images/spacer.gif" WIDTH=79 HEIGHT=1 ALT=""></TD>
<TD>
<IMG SRC="images/spacer.gif" WIDTH=57 HEIGHT=1 ALT=""></TD>
</TR>
<TR>
<TD>
<IMG SRC="images/t1.gif" WIDTH=22 HEIGHT=27 ALT=""></TD>
<TD>
<a href="#"><IMG SRC="images/u1.gif" WIDTH=24 HEIGHT=27 ALT=""></a></TD>
<TD>
<IMG SRC="images/t2.gif" WIDTH=17 HEIGHT=27 ALT=""></TD>
<TD>
<a href="#"><IMG SRC="images/u2.gif" WIDTH=26 HEIGHT=27 ALT=""></a></TD>
<TD>
<IMG SRC="images/t3.gif" WIDTH=23 HEIGHT=27 ALT=""></TD>
<TD>
<a href="#"><IMG SRC="images/u3.gif" WIDTH=26 HEIGHT=27 ALT=""></a></TD>
<TD COLSPAN=2>
<IMG SRC="images/t4.gif" WIDTH=266 HEIGHT=27 ALT=""></TD>
<TD>
<a href="#"><IMG SRC="images/u4.gif" WIDTH=42 HEIGHT=27 ALT=""></a></TD>
<TD>
<a href="#"><IMG SRC="images/u5.gif" WIDTH=63 HEIGHT=27 ALT=""></a></TD>
<TD COLSPAN=2>
<a href="#"><IMG SRC="images/u6.gif" WIDTH=57 HEIGHT=27 ALT=""></a></TD>
<TD COLSPAN=2>
<a href="#"><IMG SRC="images/u7.gif" WIDTH=78 HEIGHT=27 ALT=""></a></TD>
<TD COLSPAN=2>
<a href="#"><IMG SRC="images/u8.gif" WIDTH=136 HEIGHT=27 ALT=""></a></TD>
</TR>
<TR>
<TD COLSPAN=16> <IMG SRC="images/images/bigtop.jpg" WIDTH=780 HEIGHT=104 ALT=""></TD>
</TR>
<TR>
<TD COLSPAN=7>
<IMG SRC="images/h1.gif" WIDTH=215 HEIGHT=34 ALT=""></TD>
<TD COLSPAN=4>
<IMG SRC="images/h2.gif" WIDTH=327 HEIGHT=34 ALT=""></TD>
<TD COLSPAN=2>
<IMG SRC="images/search.gif" WIDTH=57 HEIGHT=34 ALT=""></TD>
<TD COLSPAN=2 background="images/input.gif" WIDTH=124 HEIGHT=34 align="center">
<input type="text" size="16">
</TD>
<TD> <IMG SRC="images/go.gif" ALT="" WIDTH=57 HEIGHT=34 border="0" usemap="#Map"></TD>
</TR>
</TABLE>
</TD>
<td width="1" bgcolor="#000000" rowspan="3"><img src="images/spacer.gif" width="1" height="1"></td>
<TD width="50%" rowspan="3" background="images/bg.gif" bgCOLOR="#707787">&nbsp;</TD>
</TR>
<TR>
<TD height="100%">
<TABLE WIDTH=780 BORDER=0 CELLPADDING=0 CELLSPACING=0 height="100%">
<TR>
<TD WIDTH=180 HEIGHT=100%>
<TABLE WIDTH=180 BORDER=0 CELLPADDING=0 CELLSPACING=0 height="100%">
<TR>
<TD>
<IMG SRC="images/n1.gif" WIDTH=180 HEIGHT=14 ALT=""></TD>
</TR>
<TR>
<TD WIDTH=180 HEIGHT=100% bgCOLOR="#707787" valign="top">
<div style="padding:15;color:ffffff" class="ver10">
<p>Site Owner : </p>
<p>+ AY4 Interactive Media +(019) (399 8088)</p>
<p>Email : azlie@javascript.org</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
</div>
</TD>
</TR>
</TABLE>
</TD>
<TD WIDTH=404 HEIGHT=581>
<TABLE WIDTH=404 BORDER=0 CELLPADDING=0 CELLSPACING=0 background="images/bg1.gif" height="100%">
<TR>
<TD COLSPAN=2> <IMG SRC="images/top11.gif" WIDTH=404 HEIGHT=18 ALT=""></TD>
</TR>
<TR>
<TD COLSPAN=2 valign="top"> <div style="padding:15" class="ver10">
<form action="<%=MM_editAction%>" method="POST" name="daftar" id="daftar">
<p><strong><font size="2">Registration &gt;&gt;</font></strong></p>
<p><strong>New AY4 E-Games Member Registration Form :</strong></p>
<table width="97%" border="1">
<tr>
<td width="30%"><font color="#000000" size="1">Full
Name<font color="#FF0000">*</font></font></td>
<td width="70%"> <label>
<input name="nama" type="text" id="nama" size="40">
</label></td>
</tr>
<tr>
<td><font color="#000000" size="1">Identity Card No.<font color="#FF0000">*</font></font></td>
<td> <label>
<input name="ic no" type="text" id="ic no" maxlength="12">
<em><font color="#FF0000" size="1">*numeric only</font></em></label></td>
</tr>
<tr>
<td><font size="1">Username<font color="#FF0000">*</font></font></td>
<td> <label>
<input name="username" type="text" id="username" maxlength="8">
</label></td>
</tr>
<tr>
<td><font size="1">Password<font color="#FF0000">*</font></font></td>
<td> <label>
<input name="katalaluan" type="password" id="katalaluan" maxlength="8">
</label></td>
</tr>
<tr>
<td><font size="1">Address<font color="#FF0000">*</font></font></td>
<td> <label>
<textarea name="alamat" id="alamat"></textarea>
</label></td>
</tr>
<tr>
<td><font size="1">Email<font color="#FF0000">*</font></font></td>
<td> <label>
<input name="emel" type="text" id="emel" size="40">
</label></td>
</tr>
</table>
<p align="center">
<label>
<input type="submit" name="Submit" value="Submit">
<input type="reset" name="Submit2" value="Reset">
</label>
</p>
<p><em>Compulsory (<font color="#FF0000">*</font>)</em></p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<input type="hidden" name="MM_insert" value="daftar">
</form>
<br clear="all">
<br>
</div></TD>
</TR>
<TR>
<TD COLSPAN=2>&nbsp; </TD>
</TR>
<TR>
<TD colspan="2" valign="top"> <div style="padding-top:15" align="center"></div>
</TD>
</TR>
</TABLE>
</TD>
<TD WIDTH=196 HEIGHT=581>
<TABLE WIDTH=196 BORDER=0 CELLPADDING=0 CELLSPACING=0 height="100%">
<TR>
<TD>
<IMG SRC="images/h5.gif" WIDTH=196 HEIGHT=49 ALT=""></TD>
</TR>
<TR>
<TD>
<a href="#"><IMG SRC="images/l1.gif" WIDTH=196 HEIGHT=23 ALT=""></a></TD>
</TR>
<TR>
<TD>
<a href="#"><IMG SRC="images/l2.gif" WIDTH=196 HEIGHT=19 ALT=""></a></TD>
</TR>
<TR>
<TD>
<a href="#"><IMG SRC="images/l3.gif" WIDTH=196 HEIGHT=20 ALT=""></a></TD>
</TR>
<TR>
<TD>
<a href="#"><IMG SRC="images/l4.gif" WIDTH=196 HEIGHT=21 ALT=""></a></TD>
</TR>
<TR>
<TD>
<a href="#"><IMG SRC="images/l5.gif" WIDTH=196 HEIGHT=20 ALT=""></a></TD>
</TR>
<TR>
<TD>
<a href="#"><IMG SRC="images/l6.gif" WIDTH=196 HEIGHT=19 ALT=""></a></TD>
</TR>
<TR>
<TD>
<a href="#"><IMG SRC="images/l7.gif" WIDTH=196 HEIGHT=21 ALT=""></a></TD>
</TR>
<TR>
<TD>
<a href="#"><IMG SRC="images/l8.gif" WIDTH=196 HEIGHT=19 ALT=""></a></TD>
</TR>
<TR>
<TD>
<a href="#"><IMG SRC="images/l9.gif" WIDTH=196 HEIGHT=20 ALT=""></a></TD>
</TR>
<TR>
<TD>
<a href="#"><IMG SRC="images/l10.gif" WIDTH=196 HEIGHT=19 ALT=""></a></TD>
</TR>
<TR>
<TD>
<IMG SRC="images/h6.gif" WIDTH=196 HEIGHT=58 ALT=""></TD>
</TR>
<TR>
<TD WIDTH=196 HEIGHT=100% bgCOLOR="#CED2D9" valign="top">
<div style="padding:15" class="ver10"> <img src="images/images/img5.jpg" width="157" height="58"><br>
<br>
</div>
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
</TD>
</TR>
<TR>
<TD>
<TABLE WIDTH=780 BORDER=0 CELLPADDING=0 CELLSPACING=0 background="images/bgdown.gif">
<TR>
<TD WIDTH=780 HEIGHT=26 COLSPAN=2 align="center">
<a href="#" style="color:ffffff" class="ver10"><b>STORE LOCATOR</b></a> &nbsp;&nbsp;&nbsp;&nbsp;
<a href="#" style="color:ffffff" class="ver10"><b>PHARMACY</b></a> &nbsp;&nbsp;&nbsp;&nbsp;
<a href="#" style="color:ffffff" class="ver10"><b>ORDER STATUS</b></a> &nbsp;&nbsp;&nbsp;&nbsp;
<a href="#" style="color:ffffff" class="ver10"><b>CONTACT US</b></a> &nbsp;&nbsp;&nbsp;&nbsp;
<a href="#" style="color:ffffff" class="ver10"><b>HELP</b></a> &nbsp;&nbsp;&nbsp;&nbsp;
<a href="#" style="color:ffffff" class="ver10"><b>SITE MAP</b></a> &nbsp;&nbsp;&nbsp;&nbsp;
<a href="#" style="color:ffffff" class="ver10"><b>SHOPPING</b></a> &nbsp;&nbsp;&nbsp;&nbsp;
<a href="#" style="color:ffffff" class="ver10"><b>CAREERS</b></a>
</TD>
</TR>
<TR>
<TD>
<IMG SRC="images/bot1.gif" WIDTH=32 HEIGHT=28 ALT=""></TD>
<TD WIDTH=748 HEIGHT=28 align="center" class="ver10"> <b> AY4 E-Games
Directory© 2003 • <a href="#" class="ver10"><b>Privacy Policy</b></a>
• <a href="#" class="ver10"><b>Terms Of Use</b></a> </b> </TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
<!-- End ImageReady Slices -->
<map name="Map">
<area shape="circle" coords="13,18,11" href="#">
</map>
</BODY>
</HTML>