Visual Basic

'this code is worked 
isql="Insert Into students(id, first_name, last_name, major,current_credits) values (?, ?, ?, ?, ?)"
        idbcomm=new odbccommand(isql,dbconn)
        idbcomm.Parameters.Add("id", id.Text)       
        idbcomm.Parameters.Add("fname", fname.text)
        idbcomm.Parameters.Add("lname", lname.Text)
        idbcomm.Parameters.Add("major", major.Text) 
        idbcomm.Parameters.Add("credits", credits.Text) 
        idbcomm.ExecuteNonQuery()
'This code is not working reports error
		'lsSQL ="Insert Into stud(id,firstname,lastname,major) values (@id,@fname,@lname,@major)"
        'idbcomm=new odbccommand(isql,dbconn)		
        'idbcomm.Parameters.Add( "@id",id.Text)        
		'idbcomm.Parameters.Add( "@fname",fname.text)
        'idbcomm.Parameters.Add( "@lname",lname.Text)
        'idbcomm.Parameters.Add( "@major",major.Text)
        idbcomm.ExecuteNonQuery()

<script runat="server">

    Sub submit(sender As Object, e As EventArgs)
    dim dbconn,sql,dbcomm,dbread
    dbconn=New ODbcConnection("dsn=oracle;uid=starter;pwd=starter;")
    dbconn.Open()
    sql="SELECT * FROM students"
    dbcomm=New ODbcCommand(sql,dbconn)
    dbread=dbcomm.ExecuteReader()
    customers.DataSource=dbread
    customers.DataBind()
    dbread.Close()
	dim isql,idbread,idbcomm
	isql="Insert Into students(id,first_name,last_name,major) values (@fname,@id,@lname,@major)"
	idbcomm=new odbccommand(isql,dbconn)
	idbcomm.Parameters.Add( "@fname",fname.text)
    idbcomm.Parameters.Add( "@id",id.Text)
    idbcomm.Parameters.Add( "@lname",lname.Text)
    idbcomm.Parameters.Add( "@major",major.Text)
	idbcomm.ExecuteNonQuery()

    dbconn.Close()	
    End Sub

</script>

<script runat="server">
    Sub submit(sender As Object, e As EventArgs)
     Dim strConnectionString As String
        strConnectionString = "Dsn=oracle;uid=gatepass;pwd=gp"
        Dim pConn As New OdbcConnection(strConnectionString)
        'Dim pSELECTQUERY As String = "SELECT  *from students"
        Dim pSELECTQUERY As String = "SELECT distinct PassMaster.*,passarea_dtls.passarea,empmaster.empname,visitormaster.visitorname FROM PassMaster, VisitorMaster,passarea_dtls,empmaster where passmaster.authorisationby=empmaster.empno and passmaster.passareacode=passarea_dtls.passareacode and PassMaster.PassIssueDt + PassMaster.validity -1  >= trunc(sysdate) and PassMaster.PassID = VisitorMaster.PassID and PassMaster.AuthorisationStatus = 'YES' and passmaster.PASSISSUESTATUS not like 'YES' order by PassMaster.PassID"		
        Dim adapter As New OdbcDataAdapter(pSELECTQUERY, pConn)
        Dim DS As DataSet = New DataSet()
        adapter.Fill(DS)
         Repeater1.DataSource = ds
        pConn.Close()
        adapter.Dispose()
		Repeater1.DataBind()
    End Sub
</script>

<br />
    Public Structure TheMailItem<br />
        Dim theItem As MailItem<br />
        Dim theMove As Boolean<br />
        Dim theFail As Boolean<br />
    End Structure<br />

For Each theMailItem In theMailItems
    Try
        ReadMailItem(theMailItem.theItem)

    Catch ex As InvalidCastException
        theMailItem.theFail = True
        theMailItem.theMove = False

    Catch ex As NullReferenceException
        theMailItem.theFail = True
        theMailItem.theMove = False

    Catch ex As System.Exception
        theMailItem.theFail = True
        theMailItem.theMove = False

    End Try
Next

For Each theMailItem In theMailItems
    'Move any processed items
    If theMailItem.theMove = True Then
        theMailItem.theItem.Move(theMoveFolder)
    End If
    'Move any fail items
    If theMailItem.theFail = True Then
        theMailItem.theItem.Move(theFailedFolder)
    End If
Next