Free ASP Componet

From1999.5.26 Visitor counter:

| Free Download | Install/Uninstall | Sample | Specification | Order Your Componet | FeedBack |

ASP Recordset Page Control

When you build a homepage to browse your data with ASP, you will find a problem. The user must spend a long time to wait for the data transfer. You can use the AbsolutePage, PageSize, PageCount property in ASP. But you must write lots of code by youself to count the rows in the page.

The ASP componet - IFIN001, can make you easy to split your browse data. And help you to use ADO (ActiveX Data Object) . In this version include a simple user access control. Total these function are free for you!

IFIN001 componet include 3 object class. ADOControl object help you open the MS-Access .mdb file. PageControl object help you to split your data and control page to display data. UserManager object provide a simple user access control.

Free Download |back to index|

Install ifin001.dll|back to index|

ifin001.dll can work under PWS in Win95/98 or IIS in WindowsNT. First download the file and put them in folder you like. Open a DOS prompt window to run the following command:

regsvr32  ifin001.dll

You can find the regsvr32.exe command file in the "system" folder under win95/98 Windows subdirectory, or the "system32" folder under WinNt subdirectory.The following example suppose your windows system folder is at C driver. And you put your ifin001.dll under c:\download folder:

C:\WINDOWS\SYSTEM\regsvr32  C:\DOWNLOAD\ifin001.dll

If you use WindowsNT, the example is:

C:\WINNT\SYSTEM32\regsvr32  C:\DOWNLOAD\ifin001.dll

If you had install the previous version of IFIN001, you must uninstall the previous before you install the new version IFIN001.

Uninstall ifin001.dll

In you don't need ifin001.dll any more. You can uninstall it. First, stop the IIS or PWS service. And use the following command:

regsvr32  /u  ifin001.dll

Sample for ASP to useIFIN001 |back to index|

Sample 1.Just use PageControl to do page control

<%
Dim con, rs, pgctrl, cpage, maxpage, lineno, maxline
'
'Open the "friends" table of "ifin001sample.MDB"
'
Set con = Server.CreateObject("ADODB.Connection")
con.Open "DRIVER={Microsoft Access Driver (*.mdb)};UID=Admin;DBQ="&Server.mappath("ifin001sample.mdb")&";"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "friends", con, 1, 4
rs.PageSize=3
maxline=rs.PageSize
maxpage=rs.PageCount
'
'Check which page did user select
'
cpage=Request("page")
If CInt(cpage)<1 Then
    cpage=1
Else
    If CInt(cpage)>maxpage Then
        cpage=maxpage
    End If
End If
Response.Write "<center>"
'
'Use the PageControl class of ifin001
'
Set pgctrl=Server.CreateObject("ifin001.PageControl")
Call pgctrl.ShowControl(rs,cpage)
'
'Show the data under this page
'
rs.AbsolutePage=cpage
Response.Write "<table border=1>"
Response.Write "<tr>"
For i=0 To rs.Fields.Count-1
    Response.Write "<td>"&rs(i).name & "</td>"
Next
Response.Write "</tr>"
lineno=1
Do While Not rs.EOF And lineno<=maxline
    Response.Write "<tr>"
    For i=0 To rs.Fields.Count-1
        Response.Write "<td>"&rs(i) & "</td>"
    Next
    Response.Write "</tr>"
    rs.MoveNext
    lineno=lineno+1
Loop
Response.Write "</table>"
rs.Close
%>
to see how the sample 1 run

Sample 2.Use PageControl and ADOControl to control page and recordset

<%
Dim adoctrl, pgctrl, cpage, maxpage
'
'Use the ADOControl class of ifin001
'to open the "friends" table of "ifin001sample.mdb"
'
Set adoctrl = Server.CreateObject("ifin001.ADOControl")
adoctrl.OpenConnection("ifin001sample.mdb")
adoctrl.OpenRecordset("friends")
adoctrl.PageSize=3
maxpage=adoctrl.PageCount
'
'Check which page did user select
'
cpage=Request("page")
If CInt(cpage)<1 Then
    cpage=1
Else
    If CInt(cpage)>maxpage Then
        cpage=maxpage
    End If
End If
Response.Write "<center>"
'
'Use the PageControl class of ifin001
'
Set pgctrl=Server.CreateObject("ifin001.PageControl")
Call pgctrl.ShowControl(adoctrl.CurrentRecordset,cpage)
'
'Show the data under this page
'
Call adoctrl.ListData(Null,Null,cpage)
%>
to see how the sample 2 run

Sample 3.Use UserManager to do user access control

<%
' The following is testing account. In the end of the ID is number 1.
' ID: guest1
' PassWord: guest1
' UserManager has 3 level application:
' 1. Show the login form, ask user to type his ID and password.
' 2. Check the user ID and password. Setting the user rights Session variable.
' 3. Verify User Rights Session Variable, decision the user can or can't access the homepage.

Dim switch,UserDataBase,UserTable
UserDataBase="ifin001sample.mdb"
UserTable="user"

switch=Request("switch")
Select Case switch
Case "login"
  Call Login()
Case "checkid"
  Call Check()
Case Else
  Call ShowPage()
End Select

'Level 1,Show login form
Function Login
Dim userm
Set userm = Server.CreateObject("ifin001.UserManager")
userm.FilePath=UserDataBase
userm.TableName=UserTable
userm.LoginAction=Request.ServerVariables("PATH_INFO")&"?switch=checkid"
Call userm.LoginForm()
End Function

'Level 2,Check user ID and password
Function Check()
Dim userm
Set userm = Server.CreateObject("ifin001.UserManager")
userm.FilePath=UserDataBase
userm.TableName=UserTable
Select case userm.CheckID(Request("ID"),Request("Password"))
Case 1
  Response.Write("Pass!<br>")
Case -1
  Response.Write("Password Error!<br>")
Case 0
  Response.Write("ID not found!<br>")
End Select
End Function

'Level 3,Verify access rights
Function ShowPage()
Dim userm
Set userm = Server.CreateObject("ifin001.UserManager")
Response.Write("<center>")
Response.Write("| <a href='"&Request.ServerVariables("PATH_INFO")&"?switch=login'>Login</a> |<br>")
If userm.CheckAccess("B") Then
Response.Write("Congraturlation! You can access this page.<br>")
Else
Response.Write("You have no right to access.<br>")
End If
End Function
%>
to see how sample 3 run

IFIN001 Componet Specification |back to index|

ADOControl

CurrentConnection |back to specification|
Description:
If you want to process recordset by yourself, or to open multi-recordset under a single connection, use this property to get the current connection pointer.
Sample:
<%
Dim adoctrl,myconnection,myrecordset
Set adoctrl = Server.CreateObject("ifin001.ADOControl")
Call adoctrl.OpenConnection("ifin001sample.mdb")
Set myconnection = adoctrl.CurrentConnection
Set myrecordset = Server.CreateObject("ADODB.RecordSet")
myrecordset.Open "friends", myconnection.ConnectionString, 1, 4
Response.Write(myrecordset("name"))
%>

CurrentRecordset |back to specification|
Description:
Use this property to get the current recordset pointer, and then you can access the other property provided by ADOControl object.
Sample:
<%
Dim adoctrl,myconnection,myrecordset
Set adoctrl = Server.CreateObject("ifin001.ADOControl")
Call adoctrl.OpenConnection("ifin001sample.mdb")
Call adoctrl.OpenRecordset("friends")
Set myrecordset = adoctrl.CurrentRecordset
Response.Write(myrecordset("name"))
%>

Filter |back to specification|
Description:
Use this property to define the filter condition. You can get the current filter condition by this property, too. You can set this property to a empty string to cancel the filter.
Sample:
<%
Dim adoctrl
Set adoctrl = Server.CreateObject("ifin001.ADOControl")
Call adoctrl.OpenConnection("ifin001sample.mdb")
Call adoctrl.OpenRecordset("friends")
adoctrl.Filter="pno = 1"
Response.Write("Filter:"&adoctrl.Filter&"<br>")
Call adoctrl.ListData(Null,Null,1)
adoctrl.Filter=""
Response.Write("<p>None Filter<br>")
Call adoctrl.ListData(Null,Null,1)
%>

PageCount |back to specification|
Description:
Return the total page number of current recordset. This property must use with the PageSize property. Use PageSize property to define how many records a page, and then use PageCount to know how many pages the recordset has.
Sample:
<%
Dim adoctrl
Set adoctrl = Server.CreateObject("ifin001.ADOControl")
Call adoctrl.OpenConnection("ifin001sample.mdb")
Call adoctrl.OpenRecordset("friends")
adoctrl.PageSize=3
Response.Write("Total Records: "&adoctrl.RecordCount&"<br>")
Response.Write("Page Size: "&adoctrl.PageSize&"<br>")
Response.Write("Total Pages: "&adoctrl.PageCount&"<br>")
%>

PageSize |back to specificaion|
Description:
Define or return the quantity of record every page.
Sample:
<%
Dim adoctrl
Set adoctrl = Server.CreateObject("ifin001.ADOControl")
Call adoctrl.OpenConnection("ifin001sample.mdb")
Call adoctrl.OpenRecordset("friends")
adoctrl.PageSize=3
Response.Write("Total Records: "&adoctrl.RecordCount&"<br>")
Response.Write("Page Size: "&adoctrl.PageSize&"<br>")
Response.Write("Total Pages: "&adoctrl.PageCount&"<br>")
%>

RecordCount |back to specification|
Description:
Return the total number of record.
Sample:
<%
Dim adoctrl
Set adoctrl = Server.CreateObject("ifin001.ADOControl")
Call adoctrl.OpenConnection("ifin001sample.mdb")
Call adoctrl.OpenRecordset("friends")
adoctrl.PageSize=3
Response.Write("Total Records: "&adoctrl.RecordCount&"<br>")
Response.Write("Page Size: "&adoctrl.PageSize&"<br>")
Response.Write("Total Pages: "&adoctrl.PageCount&"<br>")
%>

ListData |back to specification|
Syntax:
Call ListData(fieldarray,titlearray,page)
Parameter:
fieldarray As Variant, titlearray As Variant, page As Variant
"fieldarray" is a array list the field  to display, Null means to display the all fields.
"titlearray" is a array list the title of data, Null means use the field name to be the title.
"page" is the page number you want to display.
Description:
You must use OpenConnection and OpenRecordset method to open a database first. And set the PageSize property before you display the data.
Sample:
<%
Dim adoctrl,fieldlist,titlelist
Set adoctrl = Server.CreateObject("ifin001.ADOControl")
Call adoctrl.OpenConnection("ifin001sample.mdb")
Call adoctrl.OpenRecordset("friends")
'Just display pno?name?tel fields
fieldlist=array("pno","name","tel")
'Change the title
titleklist=array("No","Name","TEL")
Call adoctrl.ListData( fieldlist,titleklist,1)
%>

OpenConnection |back to specification|
Syntax:
Call OpenConnection(dbname)
Parameter:
dbname As String
"dbname" is the path and file name of your database file (MS Access MDB file). You must use the virtual path,  not the really path.
Description:
This method only support Microsoft Access MDB file right now. Use DNS-less techonology, no need to set up DNS in ODBC.
Sample:
<%
Dim adoctrl
Set adoctrl = Server.CreateObject("ifin001.ADOControl")
Call adoctrl.OpenConnection("ifin001sample.mdb")
Call adoctrl.OpenRecordset("friends")
%>

OpenRecordset |back to specification|
Syntax:
Call OpenRecordset(sql)
Parameter:
sql As String
"sql" is the SQL statement which you use to open the recordset. You can just use a table name to open the table.
Description:
This method only support OpenKeyset and LockBatchOptimistic record lock method right now. A object just support one recordset.
Sample:
<%
Dim adoctrl
Set adoctrl = Server.CreateObject("ifin001.ADOControl")
Call adoctrl.OpenConnection("ifin001sample.mdb")
Call adoctrl.OpenRecordset("select * from friends where address like '%kaohsiung%'")
%>

PageControl

strCurrentPage |back to specification|
Description:
The page control will display "Current Page:" to show the current page number. You can use this property to change the title. You can use HTML command to change the string style.
Sample:
<%
Dim adoctrl,pgctrl,cpage,maxpage
Set adoctrl = Server.CreateObject("ifin001.ADOControl")
Call adoctrl.OpenConnection("ifin001sample.mdb")
Call adoctrl.OpenRecordset("friends")
adoctrl.PageSize=3
maxpage=adoctrl.PageCount
cpage=Request("page")
If CInt(cpage)<1 Then
  cpage=1
Else
  If CInt(cpage)>maxpage Then
    cpage=maxpage
  End If
End If
Set pgctrl=Server.CreateObject("ifin001.PageControl")
pgctrl.strCurrentPage="<font size=1 color=red>CurrentPage: </font>"
Call pgctrl.ShowControl(adoctrl.CurrentRecordset,cpage)
Call adoctrl.ListData(Null,Null,cpage)
%>

strJumpPage |back to specification|
Description:
The page control will show a button label "JumpTo". Use this property to change the label of button. You cann't use HTML command in a button label.
Sample:
<%
Dim adoctrl,pgctrl,cpage,maxpage
Set adoctrl = Server.CreateObject("ifin001.ADOControl")
Call adoctrl.OpenConnection("ifin001sample.mdb")
Call adoctrl.OpenRecordset("friends")
adoctrl.PageSize=3
maxpage=adoctrl.PageCount
cpage=Request("page")
If CInt(cpage)<1 Then
  cpage=1
Else
  If CInt(cpage)>maxpage Then
    cpage=maxpage
  End If
End If
Set pgctrl=Server.CreateObject("ifin001.PageControl")
pgctrl.strJumpPage="Change Page To:"
Call pgctrl.ShowControl(adoctrl.CurrentRecordset,cpage)
Call adoctrl.ListData(Null,Null,cpage)
%>

strNextPage |back to specification|
Description:
The page control will display "NextPage" to show the hypher-link link to next page. Use this property to change the title. You can use HTML command to change the string style.
Sample:
<%
Dim adoctrl,pgctrl,cpage,maxpage
Set adoctrl = Server.CreateObject("ifin001.ADOControl")
Call adoctrl.OpenConnection("ifin001sample.mdb")
Call adoctrl.OpenRecordset("friends")
adoctrl.PageSize=3
maxpage=adoctrl.PageCount
cpage=Request("page")
If CInt(cpage)<1 Then
  cpage=1
Else
  If CInt(cpage)>maxpage Then
    cpage=maxpage
  End If
End If
Set pgctrl=Server.CreateObject("ifin001.PageControl")
pgctrl.strNextPage="<font size=1 color=red>Next</font>"
Call pgctrl.ShowControl(adoctrl.CurrentRecordset,cpage)
Call adoctrl.ListData(Null,Null,cpage)
%>

strPrePage |back to specification|
Description:
The page control will display "PrePage" to show the hypher-link link to previou page. Use this property to change the title. You can use HTML command to change the string style.
Sample:
<%
Dim adoctrl,pgctrl,cpage,maxpage
Set adoctrl = Server.CreateObject("ifin001.ADOControl")
Call adoctrl.OpenConnection("ifin001sample.mdb")
Call adoctrl.OpenRecordset("friends")
adoctrl.PageSize=3
maxpage=adoctrl.PageCount
cpage=Request("page")
If CInt(cpage)<1 Then
  cpage=1
Else
  If CInt(cpage)>maxpage Then
    cpage=maxpage
  End If
End If
Set pgctrl=Server.CreateObject("ifin001.PageControl")
pgctrl.strPrePage="<font size=1 color=red>Last</font>"
Call pgctrl.ShowControl(adoctrl.CurrentRecordset,cpage)
Call adoctrl.ListData(Null,Null,cpage)
%>

strTotalPage |back to specification|
Description:
The page control will display "Total Page:" to show the total page number. You can use this property to change the title. You can use HTML command to change the string style.
Sample:
<%
Dim adoctrl,pgctrl,cpage,maxpage
Set adoctrl = Server.CreateObject("ifin001.ADOControl")
Call adoctrl.OpenConnection("ifin001sample.mdb")
Call adoctrl.OpenRecordset("friends")
adoctrl.PageSize=3
maxpage=adoctrl.PageCount
cpage=Request("page")
If CInt(cpage)<1 Then
  cpage=1
Else
  If CInt(cpage)>maxpage Then
    cpage=maxpage
  End If
End If
Set pgctrl=Server.CreateObject("ifin001.PageControl")
pgctrl.strTotalPage="<font size=1 color=red>TotalPageNo: </font>"
Call pgctrl.ShowControl(adoctrl.CurrentRecordset,cpage)
Call adoctrl.ListData(Null,Null,cpage)
%>

strTotalRecord |back to specification|
Description:
The page control will display "Total Record:" to show the total record number. You can use this property to change the title. You can use HTML command to change the string style.
Sample:
<%
Dim adoctrl,pgctrl,cpage,maxpage
Set adoctrl = Server.CreateObject("ifin001.ADOControl")
Call adoctrl.OpenConnection("ifin001sample.mdb")
Call adoctrl.OpenRecordset("friends")
adoctrl.PageSize=3
maxpage=adoctrl.PageCount
cpage=Request("page")
If CInt(cpage)<1 Then
  cpage=1
Else
  If CInt(cpage)>maxpage Then
    cpage=maxpage
  End If
End If
Set pgctrl=Server.CreateObject("ifin001.PageControl")
pgctrl.strTotalRecord="<font size=1 color=red>TotalRecordNo: </font>"
Call pgctrl.ShowControl(adoctrl.CurrentRecordset,cpage)
Call adoctrl.ListData(Null,Null,cpage)
%>

ShowControl |back to specification|
Syntax:
Call ShowControl(myRecordSet, page)
Parameter:
myRecordSet As Variant, page As Variant
"myRecordset" is the recordset which you opened. You can set the pagesize of the recordset before you call this method.
"page" is the page number which you want to display.
Description:
ShowControl can display the page control button and hyper-link connect to next or previous page.
Sample:
<%
Dim adoctrl,pgctrl
Set adoctrl = Server.CreateObject("ifin001.ADOControl")
Call adoctrl.OpenConnection("ifin001sample.mdb")
Call adoctrl.OpenRecordset("friends")
Set pgctrl=Server.CreateObject("ifin001.PageControl")
Call pgctrl.ShowControl(adoctrl.CurrentRecordset,1)
%>

UserManager

FilePath |back to specification|
Description:
This version of UserManager object class use MS-Access MDB file to store user data. Use this property to define the MDB file path and file name. Use the web virtual path to descript the location of file, not the real path in server.
Sample:
<%
Dim userm
Set userm = Server.CreateObject("ifin001.UserManager")
userm.FilePath="ifin001sample.mdb"
userm.TableName="user"
Response.Write(userm.CheckID("guest1","guest1"))
%>
to see how it run: UserManagerSamp01.asp

LoginAction |back to specification|
Description:
UserManager object class use LoginForm method to display the login form. LoginForm method use HTML command <FORM>. This property define the ACTION parameter of <FORM> command. The default value of this property is Request.ServerVariables("PATH_INFO") . This will redirect to the same ASP file which call the UserManager object.
Sample:
<%
' The following is testing account. In the end of the ID is number 1.
' ID: guest1
' PassWord: guest1
Dim switch
switch=Request("switch")
Select Case switch
Case "checkid"
  Call Check()
Case Else
  Call Login()
End Select

Function Login
Dim userm
Set userm = Server.CreateObject("ifin001.UserManager")
userm.FilePath="ifin001sample.mdb"
userm.TableName="user"
userm.LoginAction=Request.ServerVariables("PATH_INFO")&"?switch=checkid"
Call userm.LoginForm()
End Function

Function Check()
Set userm = Server.CreateObject("ifin001.UserManager")
userm.FilePath="ifin001sample.mdb"
userm.TableName="user"
Select case userm.CheckID(Request("ID"),Request("Password"))
Case 1
  Response.Write("Pass!<br>")
Case -1
  Response.Write("Password Error!<br>")
Case 0
  Response.Write("ID not found!<br>")
End Select
End Function
%>
to see how it run: UserManagerSamp02.asp

LoginIDVName |back to specification|
Description:
This property work with LoginForm method. Define the variable name of user ID in login form. The default variable name is "ID".
Sample:
<%
Dim userm
Set userm = Server.CreateObject("ifin001.UserManager")
userm.FilePath="ifin001sample.mdb"
userm.TableName="user"
userm.LoginIDVName="userid"
userm.LoginIDVSize=20
userm.LoginIDVValue="guest1"
userm.LoginPWVName="pw"
userm.LoginPWVSize=20
userm.LoginPWVValue="guest1"
userm.LoginForm()
%>
to see how it run: UserManagerSamp03.asp

LoginIDVSize |back to specification|
Description:
This property work with LoginForm method. Define the field length of user ID in login form. The default field length is 15.
Sample:reference LoginIDVName sample

LoginIDVValue |back to specification|
Description:
This property work with LoginForm method. Define the variable initial value of user ID in login form.
Sample:reference LoginIDVName sample

LoginPWVName |back to specification|
Description:
This property work with LoginForm method. Define the variable name of user password in login form. The default variable name is "PASSWORD".
Sample:reference LoginIDVName sample

LoginPWVSize |back to specification|
Description:
This property work with LoginForm method. Define the field length of user password in login form. The default field length is 15.
Sample:reference LoginIDVName sample

LoginPWVValue |back to specification|
Description:
This property work with LoginForm method. Define the variable initial value of user password in login form.
Sample:reference LoginIDVName sample

SessionNamePrefix |back to specification|
Description:
The CheckID method will store the user ID and access right to an ASP session variable when user login sucessful. This property define the prefix charactor of the session variable to avoid the variable name duplication.
Sample:
<%
Dim userm
Set userm = Server.CreateObject("ifin001.UserManager")
userm.FilePath="ifin001sample.mdb"
userm.TableName="user"
userm.SessionNamePrefix="_"
Response.Write(userm.CheckID("guest1","guest1"))
Response.Write("ID:"&Session("_ID")&"<br>")
Response.Write("AccessRight:"&Session("_RIGHT"))
%>
to see how it run: UserManagerSamp04.asp

TableName |back to specification|
Description:
Use this property to define the table name which you store the user data. This propertu work with FilePath property and LoginForm method.
Sample:reference FilePath sample

CheckAccess |back to specification|
Syntax:
Call CheckAccess(Pattern)
Parameter:
Pattern As String
"Pattern" is the check charactor of access right.
Description:
This method will return a boolean to decide the current session variable include the access right check charactor or not. Use this method to decide the user can or cann't access the homepage.
Sample:
<%
Dim userm
Set userm = Server.CreateObject("ifin001.UserManager")
userm.FilePath="ifin001sample.mdb"
userm.TableName="user"
Response.Write("ID Check result:"&userm.CheckID("abc","guest1")&"<br>")
Response.Write("ID Check result:"&userm.CheckID("guest1","abc")&"<br>")
Response.Write("ID Check result:"&userm.CheckID("guest1","guest1")&"<br>")
Response.Write("<hr>")
Response.Write("A access:"&userm.CheckAccess("A")&"<br>")
Response.Write("B access:"&userm.CheckAccess("B")&"<br>")
Response.Write("C access:"&userm.CheckAccess("C")&"<br>")
Call userm.ClearIDSession()
Response.Write("<hr>")
Response.Write("A access:"&userm.CheckAccess("A")&"<br>")
Response.Write("B access:"&userm.CheckAccess("B")&"<br>")
Response.Write("C access:"&userm.CheckAccess("C")&"<br>")
%>
to see how it run: UserManagerSamp05.asp

CheckID |back to specification|
Syntax:
Call CheckID(UserID,PassWord)
Parameter:
UserID As String,PassWord As String
"UserID" is the user ID want to check.
"PassWord" is the user password want to check.
Description:
This method will check the user ID and password and return a integer. Return 1 means the ID and password are all correct and CheckID method will set the session variable value. Return 0 means the ID is not exist. Return -1 means the password is not correct. Return -2 means empty ID field input.
Sample:reference CheckAccess sample

ClearIDSession |back to specification|
Syntax:
Call ClearIDSession()
Description:
The system will clear the value of session variable, if the user doesn't press the browser after a default time. This feature ensure the homepage access security. If you want to clear the access right by yourself, you can use this method.
Sample:reference CheckAccess sample

LoginForm |back to specification|
Syntax:
Call LoginForm()
Description:
This method use HTML command <FORM> to display user login form. You can set LoginAction LoginIDVname LoginPWVName property before use LoginForm method.
Sample:reference LoginAction sample

Order your componet |back to index|

If you need we to design a componet to fit your need. Use the E-Mail support@ifin.net.tw to contact us. The price depend on your specification.

Feed Back |back to index|

We will continue to update the  free ASP componet. We hope you can give us some suggestion. If this free componet is helpful to you, please let us know. We will release the other non-free componet with advance function. If you want to receive our release news, please e-mail support@ifin.net.tw to tell us your E-Mail address.