Jump to Navigation | Accessiblity Options | Urdu (اُردو)

International News:

<% Dim adOpenForwardOnly, adLockReadOnly, adCmdTable adOpenStatic = 1 adLockReadOnly = 1 adCmdTable = 2 Dim objConn, objRS set objConn = Server.CreateObject ("ADODB.Connection") Set objRS = Server.CreateObject("ADODB.Recordset") Dim strDatabasType strDatabaseType = "Access" Dim counter counter = 1 objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\sites\Single9\danishkada2\database\News_international.mdb;" & "; Persist Security Info=False" objRS.Open "News_international", objConn, adOpenStatic, adLockReadOnly, adCmdTable objRS.MoveLast While Not objRS.BOF Response.write("") Response.write("

"& objRS("Title")& "

") Response.write("

"& objRS("news_date")& "

") Response.Write("" Response.write("

"& objRS("news_news")& "

") Response.write("

Source: " & ObjRS("news_source") & "") objRS.MovePrevious counter = counter + 1 Wend ObjRS.Close objConn.Close Set objRS = Nothing Set objConn = Nothing %>

---

International News update form

Fill this form to add a news in database

Headline:

date format DD/MM/YYYY
Date:

News or summary:

Source URL:

Only authorized volunters can add new event entry.
Password :