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

Const Backupfolder = "x:\Data Backups"
.
.
.
' Checking to see if NAS disks are still spinning
If objFSO.FolderExists(Backupfolder) Then i=1
writelog ("check that NAS disks are spinning: err.num: " & Err.Number & "   " & Err.Description)
errHandler ("checking if NAS disks are spinning")
	
' Generate today's directory name in the format   yymmdd
strmonth = month(date)
if strmonth < 10 then strmonth = "0" & strmonth
strday = day(date)
if strday < 10 then strday = "0" & strday
todaysfolder = right(year(date),2) & strmonth & strday

' Now create the full pathname to today's backup folder
todayspath = Backupfolder & "\" & todaysfolder

' Create todays backup folder
If objFSO.FolderExists(todayspath) Then
    Set objbkupFolder = objFSO.GetFolder(todayspath)
	writelog(todayspath & " already exists!")
Else
    writelog("Creating folder " & todayspath)
	Err.Clear
	Set objbkupFolder = objFSO.CreateFolder(todayspath)
	If Err.Number <> 0 Then
		writelog ("Waiting 15 seconds for NAS disks to start.  Err: " & Err.Number & "  " & Err.Description)
		Err.Clear
		objbkupFolder = nothing
		Wscript.Sleep 15000		'Wait 15 seconds for NAS disks to spin up
		Set objbkupFolder = objFSO.CreateFolder(todayspath)
		If Err.Number <> 0 Then
			errHandler (" trying to create folder " & todayspath)
			abendscript
		End If
	End If

End If