<%
Public Function get_connection()
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.CursorLocation = 3
objConn.CommandTimeout = 180
objConn.Open "Driver={Mysql};Server=mysql.b03.levonline.com;Database=b0320800_db1;UID=b0320801;PWD=hehCYP3P"
'objConn.Open "DRIVER={MySQL ODBC 5.1 Driver};Server=swedart.org;Database=b0320800_db1;UID=root;PWD=5290"
'objConn.Open "DRIVER={MySQL ODBC 5.1 Driver};Server=192.168.0.103;Database=b0320800_db1;UID=root;PWD=5290"
Set get_connection = objConn
Set objConn = Nothing
'objConn.Close
'Set objConn = Nothing
end function
' Stängning av databas =======================================================
Public Sub close_connection(objConn)
objConn.Close()
Set objConn = Nothing
End Sub
' Skapa ett recordset ========================================================
Public Function get_recordset(strSql)
Dim objConn, objRs, antiSqlInjectionStr
'antiSqlInjectionStr = antiSqlInjection(strSql)
Set objConn = get_connection()
Set objRs = Server.CreateObject("ADODB.Recordset")
objRs.CursorLocation = 3
objRs.Open strSql, objConn, 3, 1
'objRs.ActiveConnection = Nothing
Set get_recordset = objRs
Set objRs = Nothing
Set objConn = Nothing
End Function
' Executar en insert, update eller delete ====================================
Public Sub executeSql(strSql)
Dim objConn, rows, antiSqlInjectionStr
antiSqlInjectionStr = antiSqlInjection(strSql)
Set objConn = get_connection()
objConn.Execute strSql,rows,128
call close_connection(objConn)
End Sub
' Kontroll av SQL-Injection ====================================
Public Function antiSqlInjection(strSQL)
strNewSql = Replace(strSQL, "'", "''")
strNewSql = Replace(strNewSql, "\", "\\")
antiSqlInjection = strNewSql
End Function
' Stänger recordset ==========================================================
Public Sub close_recordset(rs)
rs.Close
Set rs = Nothing
End Sub
%>
<%
if Request.QueryString("TargetGroup") = "company" then
session("currentTargetGroup") = "company"
Response.Redirect("default.asp")
end if
if Request.QueryString("TargetGroup") = "private" then
session("currentTargetGroup") = "private"
Response.Redirect("default.asp")
end if
if Request.QueryString("TargetGroup") = "service" then
session("currentTargetGroup") = "service"
Response.Redirect("default.asp")
end if
if Request.QueryString("TargetGroup") = "direktverkande_el" then
session("currentTargetGroup") = "direktverkande_el"
Response.Redirect("default.asp")
end if
if Request.QueryString("TargetGroup") = "company_house" then
session("currentTargetGroup") = "company_house"
Response.Redirect("default.asp")
end if
if Request.QueryString("TargetGroup") = "vvs" then
session("currentTargetGroup") = "vvs"
Response.Redirect("default.asp")
end if
if Request.QueryString("TargetGroup") = "anonymous" then
session("currentTargetGroup") = "anonymous"
Response.Redirect("default.asp")
end if
%>
<%
if session("currentTargetGroup") = "private" or session("currentTargetGroup") = "company" or session("currentTargetGroup") = "service" or session("currentTargetGroup") = "direktverkande_el" then
response.Write("")
elseif session("currentTargetGroup") = "company_house" then
response.Write("")
elseif session("currentTargetGroup") = "vvs" then
response.Write("")
elseif session("currentTargetGroup") = "anonymous" then
response.Write("")
else
session("currentTargetGroup") = "anonymous"
Response.Redirect("default.asp")
end if
%>
<%
if request.QueryString("OrtId") > 0 then
session("GatuId") = ""
session("OrtId") = request.QueryString("OrtId")
end if
if request.QueryString("GatuId") > 0 then
session("GatuId") = request.QueryString("GatuId")
end if
SQLsats = "SELECT * FROM kunder"
Set RS= get_recordset(SQLsats)
Dim count
count = 0
Do Until RS.EOF
count = count +1
RS.MoveNext
loop
rs.close
set rs=Nothing
%>
Postort
<%if session("OrtId") <> "" then%>
Gata
<%end if%>
<%if session("OrtId") <> "" AND session("GatuId") <> "" then%>
Tidigare
Nuvarande
<%
'*************Poster per sida******************
postPerSida = 2
'*************************************************
'*************Räknar ut var den ska börja ****
if not Isnumeric(request.querystring("page")) Or request.querystring("page") = "" Then
sida = 1
else
sida = CLng(request.querystring("page"))
end if
'********Skriv din sql-sats här*****************
SQLsats = "SELECT kunder.kundId, varmekallafore.Varmekalla AS Varmekalla_1, varmekallafore.Matning AS Matning_1, varmekallaefter.Matning AS Matning_2, varmekallaefter.Varmekalla AS Varmekalla_2, varmekallafore.Pris AS pris_1, varmekallaefter.Pris AS pris_2, kunder.ArsforbrukningFore AS Arsforbrukningfore, kunder.ArsforbrukningEfter AS Arsforbrukningefter, kunder.Adress FROM kunder, varmekallafore, varmekallaefter WHERE (kunder.Adress = "&session("GatuId")&") AND (varmekallafore.VarmekallaId = kunder.VarmekallaFore) AND (varmekallaefter.VarmekallaId = kunder.VarmekallaEfter)"
'*************************************************
paging = SQLsats & " limit " & (sida - 1) * postpersida & ", " & postpersida
Set RS= get_recordset(SQLsats)
'*************Listar inlägg*********************
%>
<%Do Until RS.EOF%>
Värmekälla
<%=RS("Varmekalla_1")%>
<%=RS("Varmekalla_2")%>
Årsförbrukning
ca. <%=FormatNumber(RS("Arsforbrukningfore"),0,True,False,True)%> <%=RS("Matning_1")%>
ca. <%=FormatNumber(RS("Arsforbrukningefter"),0,True,False,True)%> <%=RS("Matning_2")%>
Årskostnad
<%
SQL_sats = "SELECT prisid, pris AS Pris_1 FROM pris WHERE prisid="&RS("Pris_1")
Set RecSet = get_recordset(SQL_sats)
Do Until RecSet.EOF
%>
<%
dim arskostnadfore
arskostnadfore = CDbl(RS("Arsforbrukningfore"))*CDbl(RecSet("Pris_1"))
%>
<%=FormatNumber(arskostnadfore,0,True,False,True)%> kr
<%
session("Pris_1") = RecSet("Pris_1")
RecSet.MoveNext
loop
RecSet.close
set RecSet=Nothing
SQL_sats = "SELECT prisid, pris AS Pris_2 FROM pris WHERE prisid="&RS("Pris_2")
Set RecSet= get_recordset(SQL_sats)
Do Until RecSet.EOF
%>
<%
dim arskostnadefter
arskostnadefter = CDbl(RS("Arsforbrukningefter"))*CDbl(RecSet("Pris_2"))
%>
<%=FormatNumber(arskostnadefter,0,True,False,True)%> kr
<%
session("Pris_2") = RecSet("Pris_2")
RecSet.MoveNext
loop
RecSet.close
set RecSet=Nothing
%>
Besparing
<%
dim arsforbruk
arsforbruk = (CDbl(RS("Arsforbrukningfore"))*CDbl(session("Pris_1")))-(CDbl(RS("Arsforbrukningefter"))*CDbl(session("Pris_2")))%>
ca. <%=FormatNumber(arsforbruk,0,True,False,True)%> kr per år
<%
RS.MoveNext
loop
rs.close
set rs=Nothing
'************************************************
Set rsRakna= get_recordset("SELECT Count(kunder.Adress) AS antal FROM kunder WHERE kunder.Adress = "&session("GatuId")&"")
antalposter = Cint(rsRakna("antal"))
rsRakna.Close
set rsRakna = nothing
poster = CLng((antalposter -1 ) / postpersida) +1
'************Skriver ut länkar******************
response.write " "
if poster>2 then
'response.write "Här hittar du fler referenser på samma gata.
"
end if
For i = 1 to poster
if not i = sida Then
response.write " sida" & i & " "
else
response.write "[ sida " & i & "] "
end if
next
'session("GatuId") = ""
%>
<%end if%>
Vi värmer Sverige AB - Tel: 08-708 75 00 - Fax: 08-744 56 50 - E-post: info@vivarmersverige.se
<% if session("currentTargetGroup") = "private" then%>
