<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Response.buffer=True %> <% =title_text %>
The Valparaiso Business Meeting Point -
<% url_base=url if session("lang")="" then session("lang")="en" end if conn=StrAdminProvider Set rs2=Server.CreateObject("ADODB.Recordset") sqlstmt2 = "delete from business_meeting_point WHERE nombre_de_la_empresa='' AND nombre='' AND apellidos=''" 'sqlstmt2 = "delete * from " & datenbankauswahl & " WHERE email LIKE '%" & email_address & "%' " 'response.write sqlstmt2 & "
" rs2.LockType = 3 rs2.open sqlstmt2, conn 'rs2.delete conn = strAdminProvider Set rs3=Server.CreateObject("ADODB.Recordset") sqlstmt="select * FROM business_meeting_point WHERE nombre_de_la_empresa<>'' AND nombre<>'' AND active='yes'" 'response.write sqlstmt rs3.open sqlstmt, conn if rs3.eof then response.write " The busniness meeting-point is empty" response.End else do until rs3.eof %>
picture picture picture
picture picture
<% 'if rs3("comment_"&session("lang")&"")<>"" then 'response.write rs3("comment_"&session("lang")&"") 'else response.write rs3("comment_en") 'end if %>
<% webseite="" if left(rs3("pagina_web"),7)="http://" then webseite=rs3("pagina_web") else if left(url,4)="www." then url2=mid(url,5,len(rs3("pagina_web"))) webseite="http://" & url2 else if left(url,11)="http://www." then url2=mid(url,12,len(rs3("pagina_web"))) webseite="http://" & url2 else if left(url,12)="https://www." then url2=mid(url,13,len(rs3("pagina_web"))) webseite="https://" & url2 end if end if end if end if %> /&width=350 /> <% =sec_user_companyname %> <% Set fso = CreateObject("Scripting.FileSystemObject") Set folder = fso.GetFolder(Server.MapPath("\business_meeting_point\images")) Set files = folder.Files 'dim sFile url=mid(url,8,len(url)) If fso.fileExists("" & url & "") Then %> <% else ' this will be 'on' when I have made pictures from the wensites url=mid(url,8,len(url)) & ".jpg" %> <% end if %> <% =sec_user_contactperson %>
<% =rs3("nombre_de_la_empresa") %>   <% =rs3("nombre") & " " & rs3("apellidos") %>
Web: " target="_new"> <% = rs3("pagina_web") %>   <% =rs3("codigo_postal") & "-" & rs3("ciudad") %>
<% =sec_user_email %> : "> <% =rs3("email") %> <% =sec_user_tel %> : <% =rs3("telefono") & "
" & rs3("mobilephone")%>
picture picture picture
<% rs3.movenext loop end if %>

 

what's new

<% =right_table_header %>

<% xdate=Year(Now) & "-" & month(Now) & "-" & Day(Now)-1 ' database connection conn=StrAdminProvider 'sqltext = "select * from events_big WHERE active='yes' ORDER by event_date ASC" sqltext = "select * from events_big WHERE active='yes' AND event_date > '" & xdate & "' ORDER by event_date ASC" Set rs=Server.CreateObject("ADODB.Recordset") rs.open sqltext, conn 'response.end if rs.eof then response.write "No hay enlaces en la base de datos" response.end else do until rs.eof if rs("event_date")<>"" then request_datum=rs("event_date") xdatum=rs("event_date") ' the date here has to be mm/dd/yyy to show correct day of the week xdatum=month(xdatum)&"/"&day(xdatum)&"/"&year(xdatum) weekdaynumber=Weekday(xdatum) xwochentag = WeekdayName(weekdaynumber) anzeigedatum=day(xdatum)&"/"&month(xdatum)&"/"&year(xdatum) else end if %>
  • <% ="(" & xwochentag & ") " & anzeigedatum %>
    <% =rs("event_name_en") %>
    <% =rs("event_title_en") %>
    Reservation
<% rs.movenext loop end if %>
sunday lunch menu go to sunday menu
  • <% =thirty_october %>
    <% = thirty_october_courses %>

  • <% =chill_out_bar %>
    rat pack live rat pack live

    italian weeks

    italian weeks

 


<% 'Create Our ServerVariables and Store them to a variable %> <% site = Request.ServerVariables("http_refERER")%> <% ip = Request.ServerVariables("REMOTE_ADDR")%> <% host = Request.ServerVariables("REMOTE_HOST")%> <% strnothing = "Unknown" thehour=Hour(now) + 7 ' Here we will add 6 to hour in server if thehour>12 then thehour=thehour-12 end if Theminute=minute(now) if Theminute<10 then Theminute="0" & Theminute end if Thesecond=second(now) if Thesecond<10 then Thesecond="0" & Thesecond end if local_time=thehour & ":" & Theminute & ":" & Thesecond %> <% 'Create a connection to our database 'StrImageProvider = "Driver={MySQL ODBC 3.51 Driver}; Server=mysql406.ixwebhosting.com; Database=cosmopo_valp; Uid=cosmopo_valp; Pwd=Valp2000;" conn = strImageProvider Set rst = Server.CreateObject("ADODB.Recordset") sqltext = "select * FROM besucher" sqltext = "INSERT into besucher (site,ip,host,date) VALUES ('" & site & "','" & ip & "','" & kost & "','" & date & "')" rst.Open sqltext,conn,3,3 ' ----------------------- Besucher zaehlen ----------------------- 'Create a connection to our database 'conn = strImageProvider Set rs4 = Server.CreateObject("ADODB.Recordset") sqltext4 = "select * FROM besucher" rs4.Open sqltext4,conn strCount = 0 If NOT rs4.EOF AND NOT rs4.BOF then while not rs4.eof strCount = strCount + 1 rs4.MoveNext Wend end if rs4.close set rs4 = nothing response.write "
Es Ud. nuestro visitante número: " & strCount+1000 & "
" %> <% zahl=0 conn = StrAdminProvider Set rs2=Server.CreateObject("ADODB.Recordset") Stmt2="select diners from reservations" 'response.write Stmt2 rs2.open Stmt2, conn if rs2.eof then else do until rs2.eof diners=rs2("diners") zahl=zahl+diners rs2.movenext loop end if response.write "Online bookings: " & zahl %> <% ' get server variables var="" var = var & "Referido desde la p?na:" & Request.ServerVariables("http_referer")& chr(10) & chr(13) & "
" var = var & "IP-Remoto :" & Request.ServerVariables("REMOTE_addR")& chr(10) & chr(13) & "
" var = var & "Host-Remoto:" & Request.ServerVariables("REMOTE_HOST")& chr(10) & chr(13) & "
" var = var & "El visitante es de: Cliquea aquí" if request.querystring("data")="netpage" then text = "Es solo para ver cuanta gente todav?utiliza la p?na antigua." & chr(10) & chr(13) & "
" text=text & var subject="Visitor from RestaurantValparaiso.NET (old page)" ' this is sent to Valparaiso to inform about the reservation mail_subject=subject mailtext="Visitor from RestaurantValparaiso.NET (old page)" ' Sets CDOSYS ASP Component Set Mailer = Server.CreateObject("CDO.Message") Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") Set Mailer.Configuration = objCDOSYSCon mailtext = mailtext Mailer.htmlBody = text Mailer.Subject = mail_subject Mailer.To = "old_page_visits@manfred.es" 'Mailer.CC = mail_sender Mailer.From = mail_sender ' Error Handling waehrend dem Versenden: On Error Resume Next ' Mails the Email ------------------------------ STOPPED BY RAFFAELLE Mailer.Send If Err.Number = 0 Then 'Response.Write("Die Nachricht wurde versendet!") Else Response.Write"(" & d_sent1 & ")" Err.Number = 0 End If On Error Goto 0 ' closes Mailer Object Set objCDOSYSCon = nothing set Mailer = nothing else end if ' this is sent to Valparaiso to inform about visits from 'Costa Malaga' xstring=Request.ServerVariables("REMOTE_ADDR") 'response.write "xxxxxxxxxxxxxxxxxxxx" & xstring & "
" If Request.Cookies("BeenHereBefore") = "True" Then else if Request.ServerVariables("REMOTE_ADDR")<>"80.39.55.182" then else ydate= Right("0" & Day(Now), 2) & "/" & Right("0" & month(Now), 2) & "/" & Right("0" & Year(Now), 4) var1=Request.ServerVariables("http_referer") var2=Request.ServerVariables("REMOTE_addR") var3=Request.ServerVariables("REMOTE_HOST") SQL="insert into visits_costamalaga (http_referer,remote_addr,remote_host,xdate) VALUES " SQL=SQL & "('" & var1 & "','" & var2 & "','" & var3 & "','" & ydate & "')" ' 3, 3 important for writing to database 'response.write sql conn = StrAdminProvider Set rs=Server.CreateObject("ADODB.Recordset") rs.open SQL, conn mail_subject="Visitor from Costa M?ga" ' Sets CDOSYS ASP Component Set Mailer = Server.CreateObject("CDO.Message") Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") Set Mailer.Configuration = objCDOSYSCon Mailer.htmlBody = "Fecha: " & ydate & "
" & var Mailer.Subject = mail_subject Mailer.To = mail_empfaenger 'Mailer.CC = mail_sender Mailer.From = mail_sender ' Error Handling waehrend dem Versenden: On Error Resume Next ' Mails the Email ------------------------------ STOPPED BY RAFFAELLE Mailer.Send If Err.Number = 0 Then 'Response.Write("Die Nachricht wurde versendet!") Else Response.Write"(" & d_sent1 & ")" Err.Number = 0 End If On Error Goto 0 'sMessage = "Hi, Hope you enjoy this page and come back again!" Response.Cookies("BeenHereBefore") = "True" Response.Cookies("BeenHereBefore").Expires=Now+360 ' closes Mailer Object Set objCDOSYSCon = nothing set Mailer = nothing end if 'costamalaga end if ' cookies 'send birthday wishes ' send birthday wishes conn = StrAdminProvider Set rs2=Server.CreateObject("ADODB.Recordset") Stmt2="select * from clientes WHERE birth_day = '"& day(date()) & "' AND birth_month ='"& month(date()) & "' AND birthdaywishes_sent <>" & year(date()) & "" 'response.write Stmt2 rs2.open Stmt2, conn if rs2.eof then else do until rs2.eof id_birthdaychild=rs2("id") nombre=rs2("nombre") apellidos=rs2("apellidos") birthday_email=rs2("email") %> <% ' adapt bithday sent - this year Set rs4=Server.CreateObject("ADODB.Recordset") SQL4="update clientes SET birthdaywishes_sent = " & year(date()) & " " SQL4=SQL4 & " WHERE id=" & id_birthdaychild 'response.write sql4 rs4.open SQL4, conn rs2.movenext loop end if %>