<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
'#include file="Connections/warmcoast.asp"
' FileName="Connection_ado_conn_string.htm"
' Type="ADO"
' DesigntimeType="ADO"
' HTTP="false"
' Catalog=""
' Schema=""
Dim MM_warmcoast_STRING
MM_warmcoast_STRING = "DRIVER={MySQL ODBC 3.51 Driver};Server=93.93.112.82 ;Port=3306;Database=basedatos;Uid=pmartinez;Pwd=pm3107"
%>
<%
Dim municipios
Dim municipios_numRows
Set municipios = Server.CreateObject("ADODB.Recordset")
municipios.ActiveConnection = MM_warmcoast_STRING
municipios.Source = "SELECT * FROM basedatos.municipios ORDER BY idmuni"
municipios.CursorType = 0
municipios.CursorLocation = 2
municipios.LockType = 1
municipios.Open()
municipios_numRows = 0
%>
<%
Dim Playas__MMColParam
Playas__MMColParam = "0"
If (Request.QueryString("idmuni") <> "") Then
Playas__MMColParam = Request.QueryString("idmuni")
End If
%>
<%
Dim Playas
Dim Playas_numRows
Set Playas = Server.CreateObject("ADODB.Recordset")
Playas.ActiveConnection = MM_warmcoast_STRING
Playas.Source = "SELECT * FROM basedatos.playas WHERE Municipio = " + Replace(Playas__MMColParam, "'", "''") + " ORDER BY id ASC"
Playas.CursorType = 0
Playas.CursorLocation = 2
Playas.LockType = 1
Playas.Open()
Playas_numRows = 0
%>
<%
Dim selectmuni__MMColParam
selectmuni__MMColParam = "0"
If (Request.QueryString("idmuni") <> "") Then
selectmuni__MMColParam = Request.QueryString("idmuni")
End If
%>
<%
Dim selectmuni
Dim selectmuni_numRows
Set selectmuni = Server.CreateObject("ADODB.Recordset")
selectmuni.ActiveConnection = MM_warmcoast_STRING
selectmuni.Source = "SELECT * FROM basedatos.municipios WHERE idmuni=" + Replace(selectmuni__MMColParam, "'", "''") + " ORDER BY idmuni"
selectmuni.CursorType = 0
selectmuni.CursorLocation = 2
selectmuni.LockType = 1
selectmuni.Open()
selectmuni_numRows = 0
%>
Warm Coast - Costa Calida (Murcia)
Warmcoast.com is intended to create a meeting place for the entire English-speaker
people where they can find all the information necessary to listen to, see and enjoy one of the most coast of de spain.
Weather
Markets
<%
municipios.Close()
Set municipios = Nothing
%>
<%
Playas.Close()
Set Playas = Nothing
%>
<%
selectmuni.Close()
Set selectmuni = Nothing
%>
