%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Response.buffer=True %>
<%
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 %>
|
<% =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 %>
|