<% Response.expires = 0 Response.expiresabsolute = Now() - 1 Response.addHeader "pragma", "no-cache" Response.addHeader "cache-control", "private" Response.CacheControl = "no-cache" %> <% Dim sIPAddress sIPAddress = Request.ServerVariables("HTTP_X_FORWARDED_FOR") If sIPAddress="" Then sIPAddress = Request.ServerVariables("REMOTE_ADDR") Response.Buffer = True 'get action a = Request.Form("a") If (a = "" OR IsNull(a)) Then key = Request.Querystring("key") If key <> "" Then a = "C" 'copy record Else a = "I" 'display blank record End If End If ' Open Connection to the database Set conn = Server.CreateObject("ADODB.Connection") conn.Open xDb_Conn_Str Select Case a Case "C": ' Get a record to display tkey = "" & key & "" strsql = "SELECT * FROM [emails] WHERE [ID]=" & tkey Set rs = Server.CreateObject("ADODB.Recordset") rs.Open strsql, conn If rs.EOF Then Response.Clear Response.Redirect "emailslist.asp" Else rs.MoveFirst ' Get the field contents x_Date = rs("Date") x_IPAddress = rs("IPAddress") x_Name = rs("Name") x_Email = rs("Email") End If rs.Close Set rs = Nothing Case "A": ' Add 'get fields from form x_ID = Request.Form("x_ID") x_Date = Request.Form("x_Date") x_IPAddress = sIPAddress x_Name = Request.Form("x_Name") x_Email = Request.Form("x_Email") tmpFld1 = x_Email If trim(tmpFld1) & "x" = "x" Then tmpFld1 = Null srchFld1 = replace(tmpFld1&"","'","''") srchFld1 = replace(srchFld1,"[","[[]") srchFld1 = "'" & srchFld1 & "'" strsql11 = "SELECT * FROM [emails] WHERE [email] = " & srchFld1 Set qrs1chk = conn.Execute(strsql11) If NOT qrs1chk.eof Then Response.write "This email is already in our database" Response.write "
" Response.write "Please change it" Response.end End If ' Open record strsql = "SELECT * FROM [emails] WHERE 0 = 1" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open strsql, conn, 1, 2 rs.AddNew tmpFld = Trim(x_IPAddress) If trim(tmpFld) & "x" = "x" Then tmpFld = Null rs("IPAddress") = tmpFld tmpFld = Trim(x_Name) If trim(tmpFld) & "x" = "x" Then tmpFld = Null rs("Name") = tmpFld rs("Email") = tmpFld1 rs.Update rs.Close Set rs = Nothing conn.Close Set conn = Nothing Response.Clear Response.Redirect "default.asp?page=426" End Select %>

Invest in Bulgaria for maximum property profits

Investment details

Bulgaria offers some fantastic property investment opportunities right now.

Lets get straight down to the raw facts..

o Property prices growing by 30 - 48% per annum

o Property still among the cheapest in Europe

o Rental income opportunities realising typical yields of 6-7%

o EU entry: on course for January 2007

o Members of NATO since 2004

o Politically stable democracy

o Low cost of living and superb quality of life

o Tourism increasing at rapid rates

Call 0191 280 2806 for more information about our forthcoming property seminars.

Property Investments International are the actual developers of many of the properties on offer - thus saving you thousands by cutting out agents, middle-men and back-street operators. We buy the land, contract the most qualified and experienced building companies to build our properties and manage all projects ourselves ensuring the strictest quality measures are adhered to throughout. This culminates in offering you exceptional value for money.

We are not faceless, you are welcome to contact us or call in any time.

Please feel free to contact us anytime on 0191 280 2806

Property Investments International are based at the Jager Centre, Ellison House, 1 Osborne Road, Jesmond, Newcastle upon Tyne, NE2 2AA.

Search Properties

Location

Number of Bedrooms

Minimum Price

Maximum Price

Near

W3C:

XHTML:

CSS: