ASP Function : mcn_RecordExists

Description

This method is used to find the specified Record Exists in the table.
This accepts 4 arguments namely, TableName, FieldName, FieldValue and
Datatype.
TableName – Name of the table
FieldName – Name of the Field
Fieldvalue – value of the field
Datatype – Datatype of the Fieldname.

ASP code

Set Con = Server.CreateObject("ADODB.Connection")
CON.ConnectionString ="Provider=SQLOLEDB.1;User
Id="NB_USERiD";password="NB_PASSWORD";Persist Security
Info=False;Initial Catalog=hol_sinar;Data Source="sYSTEM NAME";"
Con.open

Public Function
mcn_RecordExists(TableName,fieldname,fieldvalue,datatype)
'----- check record exists in table or not -------
Set mcn_rs1 = Server.CreateObject("ADODB.recordSet")
sql = "select * from "&TableName&" where "
if datatype="C" then
sql = sql & fieldname&" ='" &fieldvalue& "'"
elseif datatype="I" then
sql = sql & fieldname&" =" &fieldvalue& ""
end if

mcn_rs1.Open sql,Con
if not mcn_rs1.EOF then
retn = True
else
retn = False
end if
mcn_rs1.Close
set mcn_rs1=Nothing
mcn_RecordExists = retn
End Function



Public Function
mcn_RecExis_2fld(TableName,fieldname1,fieldvalue1,datatype1,fieldname2,fieldvalue2,datatype2)
'----- check record exists in table or not -------
Set mcn_rs1 = Server.CreateObject("ADODB.recordSet")
sql = "select * from "&TableName&" where "
if datatype1="C" then
sql = sql & fieldname1&" ='" &fieldvalue1& "' and "
elseif datatype1="I" then
sql = sql & fieldname1&" =" &fieldvalue1& ", and "
end if

if datatype2="C" then
sql = sql & fieldname2&" ='" &fieldvalue2& "'"
elseif datatype2="I" then
sql = sql & fieldname2&" =" &fieldvalue2& ""
end if



'Response.Write sql
'Response.End
mcn_rs1.Open sql,Con
if not mcn_rs1.EOF then
retn = True
else
retn = False
end if
'Response.Write mcn_rs1(0)
'Response.End
mcn_rs1.Close
set mcn_rs1=Nothing
mcn_RecExis_2fld = retn
End Function



Public Function
mcn_RecExis_3fld(TableName,fieldname1,fieldvalue1,datatype1,fieldname2,fieldvalue2,datatype2,fieldname3,fieldvalue3,datatype3

)
'----- check record exists in table or not -------
Set mcn_rs1 = Server.CreateObject("ADODB.recordSet")
sql = "select * from "&TableName&" where "
if datatype1="C" then
sql = sql & fieldname1&" ='" &fieldvalue1& "' and "
elseif datatype1="I" then
sql = sql & fieldname1&" =" &fieldvalue1& " and "
end if

if datatype2="C" then
sql = sql & fieldname2&" ='" &fieldvalue2& "' and "
elseif datatype2="I" then
sql = sql & fieldname2&" =" &fieldvalue2& " and "
end if

if datatype3="C" then
sql = sql & fieldname3&" ='" &fieldvalue3& "'"
elseif datatype2="I" then
sql = sql & fieldname3&" =" &fieldvalue3& ""
end if


'Response.Write sql
'Response.End
mcn_rs1.Open sql,Con
if not mcn_rs1.EOF then
retn = True
else
retn = False
end if
'Response.Write mcn_rs1(0)
'Response.End
mcn_rs1.Close
set mcn_rs1=Nothing
mcn_RecExis_3fld = retn
End Function