Hello
Am sure this is gonna turn out to have a silly mistake but I cant see it This form should insert the fields entered in a table but its not I keep getting this error when I start the paege too ... Can anyone see something I dont see
Error!

code!

<%@ Page Language="VB" Debug="true" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.OleDb" %>
<%@ import Namespace="System.Web.UI.WebControls.Table" %>
<script runat="server">
    sub btnSave_Click(sender As Object, e As EventArgs)
        Dim strAssetType As string = lstAssetType.SelectedIndex
        Dim TrackStatus As string = rbtnAssetType.SelectedIndex
        Dim Quantity As string = txtQuantity.Text
        Dim Name As string = txtName.Text
        Dim Description As string = txtDesc.Text
        Dim Status As string = selectStatus.SelectedIndex
 
       If lstAssetType.SelectedIndex  = 0 and rbtnAssetType.SelectedIndex = 0 and txtQuantity.Text = "" _
        and txtName.Text = "" and txtDesc.Text = "" and selectStatus.SelectedIndex = 0 Then
        lblMessage.Text = "Please Complete the form."
       ElseIF lstAssetType.SelectedIndex  <> "0" and rbtnAssetType.SelectedIndex <> "0" and txtQuantity.Text <> "" _
        and txtName.Text <> "" and txtDesc.Text <> "" and selectStatus.SelectedIndex <> "0" Then
        InsertNewItems(strassetType, trackStatus , name ,  description ,status ,quantity)
        lblMessage.Text = "You have submitted your form successfully"
 
       End if
    End Sub
    Sub rbtnAssetType_SelectedIndexChanged(sender As Object, e As EventArgs)
    Quantity()
    End Sub
    Private Sub Quantity()
    if rbtnAssetType.SelectedIndex = 2 Then
    Dim tblSerial as new table
    tblSerial.Enabled = false
    End if
    End Sub
 
        Function InsertNewItems(ByVal strassetType As String, ByVal trackStatus As String, ByVal name As String, ByVal description As String, ByVal status As String, ByVal quantity As Integer) As Integer
            Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Ole DB Services=-4; Data Source=C:\Documents an"& _
                "d Settings\kdb3684\Desktop\Warehouse_Services_Operations_System\HASEM.mdb"
            Dim dbConnection As System.Data.IDbConnection = New System.Data.OleDb.OleDbConnection(connectionString)
            Dim queryString As String = "INSERT INTO [tblNewItems] ([AssetType], [TrackStatus], [SerialNo], [AssetTag], [N"& _
                "ame], [Description], [Status], [Quantity]) VALUES (@AssetType, @TrackStatus, @Se"& _
                "rialNo, @AssetTag, @Name, @Description, @Status, @Quantity)"
            Dim dbCommand As System.Data.IDbCommand = New System.Data.OleDb.OleDbCommand
            dbCommand.CommandText = queryString
            dbCommand.Connection = dbConnection
            Dim dbParam_strassetType As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
            dbParam_strassetType.ParameterName = "@strAssetType"
            dbParam_strassetType.Value = strassetType
            dbParam_strassetType.DbType = System.Data.DbType.[String]
            dbCommand.Parameters.Add(dbParam_strassetType)
            Dim dbParam_trackStatus As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
            dbParam_trackStatus.ParameterName = "@TrackStatus"
            dbParam_trackStatus.Value = trackStatus
            dbParam_trackStatus.DbType = System.Data.DbType.[String]
            dbCommand.Parameters.Add(dbParam_trackStatus)
            Dim dbParam_name As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
            dbParam_name.ParameterName = "@Name"
            dbParam_name.Value = name
            dbParam_name.DbType = System.Data.DbType.[String]
            dbCommand.Parameters.Add(dbParam_name)
            Dim dbParam_description As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
            dbParam_description.ParameterName = "@Description"
            dbParam_description.Value = description
            dbParam_description.DbType = System.Data.DbType.[String]
            dbCommand.Parameters.Add(dbParam_description)
            Dim dbParam_status As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
            dbParam_status.ParameterName = "@Status"
            dbParam_status.Value = status
            dbParam_status.DbType = System.Data.DbType.[String]
            dbCommand.Parameters.Add(dbParam_status)
            Dim dbParam_quantity As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
            dbParam_quantity.ParameterName = "@Quantity"
            dbParam_quantity.Value = quantity
            dbParam_quantity.DbType = System.Data.DbType.Int32
            dbCommand.Parameters.Add(dbParam_quantity)
            Dim rowsAffected As Integer = 0
            dbConnection.Open
            Try
                rowsAffected = dbCommand.ExecuteNonQuery
            Finally
                dbConnection.Close
            End Try
            Return rowsAffected
        End Function
</script>

Line 62 is this

Dim dbParam_strassetType As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter

because it's an error from IE, it's the rendered page where the error is NOT the server side code.

i didnt understand ...

are you saying that its an error with the HTML code?

well not the HTML as such, because as the error is caused by a missing ";" (semicolon) it will be in some javascript.

yes solved it thanks

Good that you solved it, just one suggestion never use internet explorer to debug javascript use Mozilla Firefox. It has got a very good javascript console which will point the exact error and line number.

I hate FF - but its great for the debugging stage!