edv/VERAG_Homepage
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

first git

Browse Source
This commit is contained in:
Andreas Luxbauer
2021-07-06 10:03:36 +02:00
commit 7937ab972e
417 changed files with 18573 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

63
.gitattributes vendored Normal file
View File

@@ -0,0 +1,63 @@
###############################################################################
# Set default behavior to automatically normalize line endings.
###############################################################################
* text=auto
###############################################################################
# Set default behavior for command prompt diff.
#
# This is need for earlier builds of msysgit that does not have it on by
# default for csharp files.
# Note: This is only used by command line
###############################################################################
#*.cs diff=csharp
###############################################################################
# Set the merge driver for project and solution files
#
# Merging from the command prompt will add diff markers to the files if there
# are conflicts (Merging from VS is not affected by the settings below, in VS
# the diff markers are never inserted). Diff markers may cause the following
# file extensions to fail to load in VS. An alternative would be to treat
# these files as binary and thus will always conflict and require user
# intervention with every merge. To do so, just uncomment the entries below
###############################################################################
#*.sln merge=binary
#*.csproj merge=binary
#*.vbproj merge=binary
#*.vcxproj merge=binary
#*.vcproj merge=binary
#*.dbproj merge=binary
#*.fsproj merge=binary
#*.lsproj merge=binary
#*.wixproj merge=binary
#*.modelproj merge=binary
#*.sqlproj merge=binary
#*.wwaproj merge=binary
###############################################################################
# behavior for image files
#
# image files are treated as binary by default.
###############################################################################
#*.jpg binary
#*.png binary
#*.gif binary
###############################################################################
# diff behavior for common document formats
#
# Convert binary document formats to text before diffing them. This feature
# is only available from the command line. Turn it on by uncommenting the
# entries below.
###############################################################################
#*.doc diff=astextplain
#*.DOC diff=astextplain
#*.docx diff=astextplain
#*.DOCX diff=astextplain
#*.dot diff=astextplain
#*.DOT diff=astextplain
#*.pdf diff=astextplain
#*.PDF diff=astextplain
#*.rtf diff=astextplain
#*.RTF diff=astextplain

261
.gitignore vendored Normal file
View File

@@ -0,0 +1,261 @@
## Ignore Visual Studio temporary files, build results, and
## files generated by popular Visual Studio add-ons.
# User-specific files
*.suo
*.user
*.userosscache
*.sln.docstates
# User-specific files (MonoDevelop/Xamarin Studio)
*.userprefs
# Build results
[Dd]ebug/
[Dd]ebugPublic/
[Rr]elease/
[Rr]eleases/
x64/
x86/
bld/
[Bb]in/
[Oo]bj/
[Ll]og/
# Visual Studio 2015 cache/options directory
.vs/
# Uncomment if you have tasks that create the project's static files in wwwroot
#wwwroot/
# MSTest test Results
[Tt]est[Rr]esult*/
[Bb]uild[Ll]og.*
# NUNIT
*.VisualState.xml
TestResult.xml
# Build Results of an ATL Project
[Dd]ebugPS/
[Rr]eleasePS/
dlldata.c
# DNX
project.lock.json
project.fragment.lock.json
artifacts/
*_i.c
*_p.c
*_i.h
*.ilk
*.meta
*.obj
*.pch
*.pdb
*.pgc
*.pgd
*.rsp
*.sbr
*.tlb
*.tli
*.tlh
*.tmp
*.tmp_proj
*.log
*.vspscc
*.vssscc
.builds
*.pidb
*.svclog
*.scc
# Chutzpah Test files
_Chutzpah*
# Visual C++ cache files
ipch/
*.aps
*.ncb
*.opendb
*.opensdf
*.sdf
*.cachefile
*.VC.db
*.VC.VC.opendb
# Visual Studio profiler
*.psess
*.vsp
*.vspx
*.sap
# TFS 2012 Local Workspace
$tf/
# Guidance Automation Toolkit
*.gpState
# ReSharper is a .NET coding add-in
_ReSharper*/
*.[Rr]e[Ss]harper
*.DotSettings.user
# JustCode is a .NET coding add-in
.JustCode
# TeamCity is a build add-in
_TeamCity*
# DotCover is a Code Coverage Tool
*.dotCover
# NCrunch
_NCrunch_*
.*crunch*.local.xml
nCrunchTemp_*
# MightyMoose
*.mm.*
AutoTest.Net/
# Web workbench (sass)
.sass-cache/
# Installshield output folder
[Ee]xpress/
# DocProject is a documentation generator add-in
DocProject/buildhelp/
DocProject/Help/*.HxT
DocProject/Help/*.HxC
DocProject/Help/*.hhc
DocProject/Help/*.hhk
DocProject/Help/*.hhp
DocProject/Help/Html2
DocProject/Help/html
# Click-Once directory
publish/
# Publish Web Output
*.[Pp]ublish.xml
*.azurePubxml
# TODO: Comment the next line if you want to checkin your web deploy settings
# but database connection strings (with potential passwords) will be unencrypted
#*.pubxml
*.publishproj
# Microsoft Azure Web App publish settings. Comment the next line if you want to
# checkin your Azure Web App publish settings, but sensitive information contained
# in these scripts will be unencrypted
PublishScripts/
# NuGet Packages
*.nupkg
# The packages folder can be ignored because of Package Restore
**/packages/*
# except build/, which is used as an MSBuild target.
!**/packages/build/
# Uncomment if necessary however generally it will be regenerated when needed
#!**/packages/repositories.config
# NuGet v3's project.json files produces more ignoreable files
*.nuget.props
*.nuget.targets
# Microsoft Azure Build Output
csx/
*.build.csdef
# Microsoft Azure Emulator
ecf/
rcf/
# Windows Store app package directories and files
AppPackages/
BundleArtifacts/
Package.StoreAssociation.xml
_pkginfo.txt
# Visual Studio cache files
# files ending in .cache can be ignored
*.[Cc]ache
# but keep track of directories ending in .cache
!*.[Cc]ache/
# Others
ClientBin/
~$*
*~
*.dbmdl
*.dbproj.schemaview
*.jfm
*.pfx
*.publishsettings
node_modules/
orleans.codegen.cs
# Since there are multiple workflows, uncomment next line to ignore bower_components
# (https://github.com/github/gitignore/pull/1529#issuecomment-104372622)
#bower_components/
# RIA/Silverlight projects
Generated_Code/
# Backup & report files from converting an old project file
# to a newer Visual Studio version. Backup files are not needed,
# because we have git ;-)
_UpgradeReport_Files/
Backup*/
UpgradeLog*.XML
UpgradeLog*.htm
# SQL Server files
*.mdf
*.ldf
# Business Intelligence projects
*.rdl.data
*.bim.layout
*.bim_*.settings
# Microsoft Fakes
FakesAssemblies/
# GhostDoc plugin setting file
*.GhostDoc.xml
# Node.js Tools for Visual Studio
.ntvs_analysis.dat
# Visual Studio 6 build log
*.plg
# Visual Studio 6 workspace options file
*.opt
# Visual Studio LightSwitch build output
**/*.HTMLClient/GeneratedArtifacts
**/*.DesktopClient/GeneratedArtifacts
**/*.DesktopClient/ModelManifest.xml
**/*.Server/GeneratedArtifacts
**/*.Server/ModelManifest.xml
_Pvt_Extensions
# Paket dependency manager
.paket/paket.exe
paket-files/
# FAKE - F# Make
.fake/
# JetBrains Rider
.idea/
*.sln.iml
# CodeRush
.cr/
# Python Tools for Visual Studio (PTVS)
__pycache__/
*.pyc

49
App_Code/cClasses.vb Normal file
View File

@@ -0,0 +1,49 @@
Imports Microsoft.VisualBasic
Public Class cNavigation
Property id As Integer = -1
Property bezeichnung As String = ""
Property slogan As String = ""
Property menu_logo As String = ""
Property subnavigation As List(Of cNavigation) = Nothing
End Class
Public Class cBlock
Property block_ID As Integer = -1
Property block_order As Integer = -1
Property blockfields As List(Of cBlockField) = Nothing
End Class
Public Class cBlockField
Property bfld_id As Integer = -1
Property bart_breiteProz As Integer = -1
Property bart_desc As String = ""
Property bart_beginParam As String = ""
Property bart_endParam As String = ""
Property blockfieldargumentcontents As List(Of cBlockFieldArgumentContent) = Nothing
End Class
Public Class cBlockFieldArgumentContent
Property bfac_ID As Integer = -1
Property bfac_bargID_Ref As Integer = -1
Property bfac_default As String = ""
Property bfac_de As String = ""
Property bfac_en As String = ""
Property bfac_tr As String = ""
Property bfac_yu As String = ""
Property bfac_ro As String = ""
Property bfac_bg As String = ""
Property bfac_order As Integer = -1
End Class
Public Class hp_content
Property hp_id As Integer = 1
Property hp_title As String = ""
Property hp_content As String = ""
Property hp_instance As String = ""
Property hp_slogan As String = ""
Property hp_imgPath As String = ""
Property hp_refIdToUpperMenue As String = ""
End Class

506
App_Code/cDBFunctions.vb Normal file
View File

@@ -0,0 +1,506 @@
Imports Microsoft.VisualBasic
Imports System.Data.SqlClient
'Imports SQL.Data.SQLClient
Public Class cDBFunctions
Public Shared Function GetNewOpenConnection() As SqlConnection
'MyProviderDbConn
Dim cn As New SqlConnection()
' cn.ConnectionString = "Server=db593295684.db.1and1.com;Database=db593295684;Uid=dbo593295684;Pwd=atilla#2;"
If HttpContext.Current.Request.ServerVariables("SERVER_NAME") = "localhost" Then
cn.ConnectionString = "Server=FMZOLL\SQLFMZOLL;Database=VERAG_HOMEPAGE;Uid=sa;Pwd=BmWr501956"
'Else
' cn.ConnectionString = "Server=db593295684.db.1and1.com;Database=db593295684;Uid=dbo593295684;Pwd=atilla#2;"
End If
cn.Open()
Return cn
End Function
' Public Function qry_menu_tags(Optional laenderkuerzel As String = "de", Optional ref As String = "de") As List(Of cNavigation)
' Using con As SQLConnection = GetNewOpenConnection()
' End Using
' End Function
Public errorAusg As String = ""
Public Function qry_menu_tags(Optional laenderkuerzel As String = "de", Optional ref As String = "") As List(Of cNavigation)
If laenderkuerzel = "" Then laenderkuerzel = "de"
Dim navigation As New List(Of cNavigation)
Using con As SqlConnection = GetNewOpenConnection()
Using cmd As New SqlCommand
cmd.Connection = con
Dim sql As String = " SELECT * FROM menu_tags WHERE " ' ORDER BY menu_tags.order ASC"
If ref <> "" Then
sql &= " ref_id='" & ref & "' "
Else
sql &= " instance='0' "
End If
' sql &= " ORDER BY menu_tags.order ASC "
cmd.CommandText = sql
Dim reader As SqlDataReader = cmd.ExecuteReader
Try
'reader = cmd.ExecuteReader
While reader.Read()
Dim n As New cNavigation
If Not reader.Item("desc_" & laenderkuerzel) Is DBNull.Value Then n.bezeichnung = reader.Item("desc_" & laenderkuerzel)
If Not reader.Item("id") Is DBNull.Value Then n.id = reader.Item("id")
If Not reader.Item("menu_slogan_" & laenderkuerzel) Is DBNull.Value Then n.slogan = reader.Item("menu_slogan_" & laenderkuerzel)
If Not reader.Item("menu_logo") Is DBNull.Value Then n.menu_logo = reader.Item("menu_logo")
n.subnavigation = qry_menu_tags(laenderkuerzel, n.id)
navigation.Add(n)
End While
reader.Close()
Catch ex As Exception
'MsgBox("Fehler: " & ex.Message)
Console.WriteLine(ex.Message)
errorAusg = ex.Message
End Try
con.Close()
End Using
End Using
Return navigation
End Function
Public Function qry_content(menuID As String, Optional laenderkuerzel As String = "de") As String
If laenderkuerzel = "" Then laenderkuerzel = "de"
Dim str As String = ""
Using con As SqlConnection = GetNewOpenConnection()
Using cmd As New SqlCommand
cmd.Connection = con
Dim sql As String = " SELECT block_id " &
" FROM tbl_blocks " &
" INNER JOIN menu_tags " &
" ON tbl_blocks.block_pageID_Ref=menu_tags.id " &
" WHERE menu_tags.id = '" & menuID & "'" &
" ORDER BY block_id ASC "
cmd.CommandText = sql
Dim reader As SqlDataReader = cmd.ExecuteReader
Try
'reader = cmd.ExecuteReader
While reader.Read()
str &= "<div class='content_all'>" & qry_blockfields(reader.Item("block_id"), laenderkuerzel) & "</div>"
End While
reader.Close()
Catch ex As Exception
MsgBox("Fehler: " & ex.Message)
End Try
con.Close()
End Using
End Using
Return str
End Function
Function getSpaltenBezeichnung(laenderkuerzel As String) As String
Dim spalte = "hp_de"
Select Case laenderkuerzel
Case "de" : spalte = "hp_de"
Case "bg" : spalte = "hp_bg"
Case "yu" : spalte = "hp_yu"
Case "ro" : spalte = "hp_ro"
Case "tr" : spalte = "hp_tr"
Case "en" : spalte = "hp_en"
End Select
Return spalte
End Function
Public Function qry_contentNew(menuID As String, Optional laenderkuerzel As String = "de") As String
If laenderkuerzel = "" Then laenderkuerzel = "de"
Dim spalte As String = getSpaltenBezeichnung(laenderkuerzel)
Dim str As String = ""
Using con As SqlConnection = GetNewOpenConnection()
Using cmd As New SqlCommand
cmd.Connection = con
Dim sql As String = " SELECT " & spalte & " " &
" FROM homepage_content " &
" WHERE hp_refId = '" & menuID & "'"
cmd.CommandText = sql
Dim reader As SqlDataReader = cmd.ExecuteReader
Try
'reader = cmd.ExecuteReader
While reader.Read()
str &= "<div class='content_all'>" & reader.Item(spalte) & "</div>"
End While
reader.Close()
Catch ex As Exception
MsgBox("Fehler: " & ex.Message)
End Try
con.Close()
End Using
End Using
Return str
End Function
Public Function qry_blockfields(block_id As String, Optional laenderkuerzel As String = "de") As String
If laenderkuerzel = "" Then laenderkuerzel = "de"
Dim str As String = ""
Using con As SqlConnection = GetNewOpenConnection()
Using cmd As New SqlCommand
cmd.Connection = con
Dim sql As String = " SELECT bfld_ID, block_ID, bart_id, bart_desc, bart_beginParam, bart_endParam" &
" FROM " &
" tbl_blocks as t1, " &
" tbl_blockfields as t2, " &
" tbl_blockfieldart as t3 " &
" WHERE " &
" t1.block_ID=" & block_id & "" &
" AND " &
" t2.bfld_blockID_Ref=t1.block_ID " &
" AND " &
" t3.bart_ID=t2.bfld_bartID_Ref " &
" ORDER BY t2.bfld_ID ASC "
cmd.CommandText = sql
Dim reader As SqlDataReader = cmd.ExecuteReader
Try
'reader = cmd.ExecuteReader
While reader.Read()
str &= reader.Item("bart_beginParam") & qry_blockfield_content(reader.Item("bfld_ID"), laenderkuerzel) & reader.Item("bart_endParam")
End While
reader.Close()
Catch ex As Exception
MsgBox("Fehler: " & ex.Message)
End Try
con.Close()
End Using
End Using
Return str
End Function
Public Function qry_blockfield_content(bf_ID As String, Optional laenderkuerzel As String = "de") As String
If laenderkuerzel = "" Then laenderkuerzel = "de"
Dim str As String = ""
Using con As SqlConnection = GetNewOpenConnection()
Using cmd As New SqlCommand
cmd.Connection = con
Dim sql As String = " SELECT *" &
" FROM tbl_blockfieldargumentcontent " &
" INNER JOIN tbl_blockfieldarguments " &
" ON tbl_blockfieldargumentcontent.bfac_bargID_Ref=tbl_blockfieldarguments.barg_ID " &
" WHERE " &
" bfac_bfldID_Ref = " & bf_ID & " " &
" ORDER BY tbl_blockfieldargumentcontent.bfac_order ASC"
cmd.CommandText = sql
Dim reader As SqlDataReader = cmd.ExecuteReader
Try
'reader = cmd.ExecuteReader
While reader.Read()
str &= reader.Item("barg_beginArgument") & reader.Item("bfac_" & laenderkuerzel) & reader.Item("barg_endArgument")
End While
reader.Close()
Catch ex As Exception
MsgBox("Fehler: " & ex.Message)
End Try
con.Close()
End Using
End Using
Return str
End Function
End Class
Public Class cDBADMINFunctions
Public Shared Function GetNewOpenConnection() As SqlConnection
Return cDBFunctions.GetNewOpenConnection
End Function
Public Function qry_menu_tags(Optional laenderkuerzel As String = "de", Optional ref As String = "") As List(Of cNavigation)
If laenderkuerzel = "" Then laenderkuerzel = "de"
Dim navigation As New List(Of cNavigation)
Using con As SQLConnection = GetNewOpenConnection()
Using cmd As New SQLCommand
cmd.Connection = con
Dim sql As String = "SELECT * FROM menu_tags WHERE " ' ORDER BY `menu_tags`.`order` ASC"
If ref <> "" Then
sql &= " ref_id='" & ref & "' "
Else
sql &= " instance='0' "
End If
sql &= " ORDER BY `menu_tags`.`order` ASC "
cmd.CommandText = sql
Dim reader As SQLDataReader = cmd.ExecuteReader
Try
'reader = cmd.ExecuteReader
While reader.Read()
Dim n As New cNavigation
n.bezeichnung = reader.Item("desc_" & laenderkuerzel)
n.id = reader.Item("id")
n.slogan = reader.Item("menu_slogan_" & laenderkuerzel)
n.menu_logo = reader.Item("menu_logo")
n.subnavigation = qry_menu_tags(laenderkuerzel, n.id)
navigation.Add(n)
End While
reader.Close()
Catch ex As Exception
MsgBox("Fehler 01: " & ex.Message)
End Try
con.Close()
End Using
End Using
Return navigation
End Function
Public Function qry_contentNew(menuID As String, laenderkuerzel As String) As hp_content
Try
Dim hp_content As New hp_content
Using con As SqlConnection = GetNewOpenConnection()
Using cmd As New SqlCommand
cmd.Connection = con
Dim sql As String = " SELECT * FROM verag_homepage.dbo.menu_tags LEFT JOIN verag_homepage.dbo.homepage_content ON menu_tags.id=homepage_content.hp_refId WHERE menu_tags.id = '" & menuID & "'"
cmd.CommandText = sql
Dim reader As SqlDataReader = cmd.ExecuteReader
Try
While reader.Read()
Dim b As New cBlock
hp_content.hp_id = reader.Item("id")
If reader.Item(getSpaltenBezeichnung(laenderkuerzel)) IsNot DBNull.Value Then hp_content.hp_content = reader.Item(getSpaltenBezeichnung(laenderkuerzel))
If reader.Item(getSlogan(laenderkuerzel)) IsNot DBNull.Value Then hp_content.hp_slogan = reader.Item(getSlogan(laenderkuerzel))
If reader.Item(getTitle(laenderkuerzel)) IsNot DBNull.Value Then hp_content.hp_title = reader.Item(getTitle(laenderkuerzel))
If reader.Item("menu_logo") IsNot DBNull.Value Then hp_content.hp_imgPath = reader.Item("menu_logo")
If reader.Item("instance") IsNot DBNull.Value Then hp_content.hp_instance = reader.Item("instance")
If reader.Item("ref_id") IsNot DBNull.Value Then hp_content.hp_refIdToUpperMenue = reader.Item("ref_id")
Return hp_content
End While
reader.Close()
Catch ex As Exception
System.Web.HttpContext.Current.Response.Write("<SCRIPT LANGUAGE=""JavaScript"">alert('ERR: " & ex.Message & "')</SCRIPT>")
End Try
con.Close()
End Using
End Using
Catch ex As Exception
System.Web.HttpContext.Current.Response.Write("<SCRIPT LANGUAGE=""JavaScript"">alert('ERR')</SCRIPT>")
System.Web.HttpContext.Current.Response.Write("<SCRIPT LANGUAGE=""JavaScript"">alert('ERR: " & ex.Message & "')</SCRIPT>")
End Try
Return Nothing
End Function
Function getSpaltenBezeichnung(laenderkuerzel As String) As String
Dim spalte = "hp_de"
Select Case laenderkuerzel
Case "de" : spalte = "hp_de"
Case "bg" : spalte = "hp_bg"
Case "yu" : spalte = "hp_yu"
Case "ro" : spalte = "hp_ro"
Case "tr" : spalte = "hp_tr"
Case "en" : spalte = "hp_en"
End Select
Return spalte
End Function
Function getSlogan(laenderkuerzel As String) As String
Dim spalte = "hp_de"
Select Case laenderkuerzel
Case "de" : spalte = "menu_slogan_de"
Case "bg" : spalte = "menu_slogan_bg"
Case "yu" : spalte = "menu_slogan_yu"
Case "ro" : spalte = "menu_slogan_ro"
Case "tr" : spalte = "menu_slogan_tr"
Case "en" : spalte = "menu_slogan_en"
End Select
Return spalte
End Function
Function getTitle(laenderkuerzel As String) As String
Dim spalte = "hp_de"
Select Case laenderkuerzel
Case "de" : spalte = "desc_de"
Case "bg" : spalte = "desc_bg"
Case "yu" : spalte = "desc_yu"
Case "ro" : spalte = "desc_ro"
Case "tr" : spalte = "desc_tr"
Case "en" : spalte = "desc_en"
End Select
Return spalte
End Function
Public Sub update_HPContentNew(hp_content As hp_content, laenderkuerzel As String)
Dim sql As String = " begin tran" &
" if NOT exists (select * from homepage_content with (updlock,serializable) where hp_refId=@hp_refId ) " &
" begin " &
"INSERT INTO homepage_content " &
" (hp_refId) " &
" VALUES(@hp_refId) " &
" End " &
" UPDATE homepage_content " &
" SET [" & getSpaltenBezeichnung(laenderkuerzel) & "]=@hp WHERE hp_refId=@hp_refId " &
" UPDATE menu_tags " &
"SET " & getSlogan(laenderkuerzel) & "=@slogan, " & getTitle(laenderkuerzel) & "=@title, menu_logo=@img WHERE id=@id " &
" commit tran "
' MsgBox(sql)
Using conn As SqlConnection = GetNewOpenConnection()
Using cmd As New SqlCommand(sql, conn)
cmd.Parameters.AddWithValue("@hp", hp_content.hp_content)
cmd.Parameters.AddWithValue("@hp_refId", hp_content.hp_id)
cmd.Parameters.AddWithValue("@slogan", hp_content.hp_slogan)
cmd.Parameters.AddWithValue("@title", hp_content.hp_title)
cmd.Parameters.AddWithValue("@img", hp_content.hp_imgPath)
cmd.Parameters.AddWithValue("@id", hp_content.hp_id)
Try
cmd.ExecuteNonQuery()
Catch ex As SqlException
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": ERR01 Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Programm")
End Try
End Using
conn.Close()
End Using
If False Then
Dim sql2 As String = " UPDATE homepage_content " &
" SET [" & getSpaltenBezeichnung(laenderkuerzel) & "]=@hp WHERE hp_refId=@hp_refId "
sql2 &= " UPDATE menu_tags " &
"SET " & getSlogan(laenderkuerzel) & "=@slogan, " & getTitle(laenderkuerzel) & "=@title, menu_logo=@img WHERE id=@id "
Using conn As SqlConnection = GetNewOpenConnection()
Using cmd As New SqlCommand(sql2, conn)
cmd.Parameters.AddWithValue("@slogan", hp_content.hp_slogan)
cmd.Parameters.AddWithValue("@title", hp_content.hp_title)
cmd.Parameters.AddWithValue("@img", hp_content.hp_imgPath)
cmd.Parameters.AddWithValue("@id", hp_content.hp_id)
cmd.Parameters.AddWithValue("@hp", hp_content.hp_content)
cmd.Parameters.AddWithValue("@hp_refId", hp_content.hp_id)
Try
cmd.ExecuteNonQuery()
Catch ex As SqlException
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": ERR02 Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Programm")
End Try
End Using
conn.Close()
End Using
End If
End Sub
Public Sub doTheSql(sql As String)
Using conn As SqlConnection = GetNewOpenConnection()
Using cmd As New SqlCommand(sql, conn)
Try
cmd.ExecuteNonQuery()
Catch ex As SqlException
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": ERROR: " & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim SQL")
End Try
End Using
conn.Close()
End Using
End Sub
Public Function getInstance(id As String) As Integer
Dim instance As Integer = -1
Try
Dim hp_content As New hp_content
Using con As SQLConnection = GetNewOpenConnection()
Using cmd As New SQLCommand
cmd.Connection = con
Dim sql As String = " SELECT instance FROM menu_tags WHERE id='" & id & "' "
cmd.CommandText = sql
Dim reader As SQLDataReader = cmd.ExecuteReader
Try
'reader = cmd.ExecuteReader
If reader.HasRows Then
reader.Read()
instance = CInt(reader.Item("instance")) + 1
End If
reader.Close()
Catch ex As Exception
MsgBox("Fehler 03: " & ex.Message)
End Try
con.Close()
End Using
End Using
Catch ex As Exception
MsgBox(ex.Message)
End Try
Return instance
End Function
Public Function insert_HPContentNew(hp_content As hp_content, laenderkuerzel As String, title As String, refId As String, instance As String) As Integer
Dim newID As Integer = -1
Dim sql As String = " INSERT INTO menu_tags ( " & getTitle(laenderkuerzel) & " , ref_id, instance) VALUES( @title,@refId,'" & (instance + 1) & "' ); Select Scope_Identity()" 'ON DUPLICATE KEY UPDATE hp_de = VALUES(@hp_de)"
'dedet_abt
'; SELECT LAST_INSERT_ID()
Using conn As SQLConnection = GetNewOpenConnection()
Using cmd As New SQLCommand(sql, conn)
cmd.Parameters.AddWithValue("@title", title)
cmd.Parameters.AddWithValue("@refId", refId)
Try
' cmd.ExecuteNonQuery()
newID = CInt(cmd.ExecuteScalar())
Catch ex As SQLException
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Programm")
End Try
End Using
conn.Close()
End Using
Dim sql2 As String = " INSERT INTO homepage_content (hp_refId) VALUES( @hp_refId) " 'ON DUPLICATE KEY UPDATE hp_de = VALUES(@hp_de)"
Using conn As SQLConnection = GetNewOpenConnection()
Using cmd As New SQLCommand(sql2, conn)
cmd.Parameters.AddWithValue("@hp_refId", newID)
Try
cmd.ExecuteNonQuery()
Catch ex As SQLException
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Programm")
End Try
End Using
conn.Close()
End Using
Return newID
End Function
Public Sub deleteHpMenueAndContent(id)
Dim sql As String = " DELETE FROM menu_tags WHERE id=@id; DELETE FROM homepage_content WHERE hp_refId=@id " 'ON DUPLICATE KEY UPDATE hp_de = VALUES(@hp_de)"
'dedet_abt
Using conn As SQLConnection = GetNewOpenConnection()
Using cmd As New SQLCommand(sql, conn)
cmd.Parameters.AddWithValue("@id", id)
Try
cmd.ExecuteNonQuery()
Catch ex As SQLException
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gelöscht werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Programm")
End Try
End Using
End Using
End Sub
End Class

21
App_Data/PublishProfiles/Homepage Produktiv _ ATILLA TEST.pubxml Normal file
View File

@@ -0,0 +1,21 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
Diese Datei wird vom Veröffentlichungs-/Packvorgang Ihres Webprojekts verwendet. Sie können das Verhalten dieses Vorgangs anpassen,
indem Sie diese MSBuild-Datei bearbeiten. Besuchen Sie "http://go.microsoft.com/fwlink/?LinkID=208121", um weitere Informationen zu erhalten.
-->
<Project ToolsVersion="4.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<WebPublishMethod>FTP</WebPublishMethod>
<LastUsedBuildConfiguration>Debug</LastUsedBuildConfiguration>
<LastUsedPlatform>Any CPU</LastUsedPlatform>
<SiteUrlToLaunchAfterPublish />
<LaunchSiteAfterPublish>True</LaunchSiteAfterPublish>
<ExcludeApp_Data>False</ExcludeApp_Data>
<publishUrl>home593200484.1and1-data.host</publishUrl>
<DeleteExistingFiles>False</DeleteExistingFiles>
<FtpPassiveMode>True</FtpPassiveMode>
<FtpSitePath />
<UserName>u78876837</UserName>
<_SavePWD>True</_SavePWD>
</PropertyGroup>
</Project>

17
App_Data/PublishProfiles/login.verag.ag.pubxml Normal file
View File

@@ -0,0 +1,17 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
Diese Datei wird vom Veröffentlichungs-/Paketierungsprozess Ihres Webprojekts verwendet. Sie können das Verhalten dieses Prozesses anpassen,
indem Sie diese MSBuild-Datei bearbeiten. Weitere Informationen hierzu finden Sie unter https://go.microsoft.com/fwlink/?LinkID=208121.
-->
<Project ToolsVersion="4.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<WebPublishMethod>FileSystem</WebPublishMethod>
<LastUsedBuildConfiguration>Debug</LastUsedBuildConfiguration>
<LastUsedPlatform>Any CPU</LastUsedPlatform>
<SiteUrlToLaunchAfterPublish />
<LaunchSiteAfterPublish>True</LaunchSiteAfterPublish>
<ExcludeApp_Data>False</ExcludeApp_Data>
<publishUrl>\\192.168.3.101\g\Websites\login.verag.ag\</publishUrl>
<DeleteExistingFiles>False</DeleteExistingFiles>
</PropertyGroup>
</Project>

17
App_Data/PublishProfiles/loginTEST.verag.ag.pubxml Normal file
View File

@@ -0,0 +1,17 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
Diese Datei wird vom Veröffentlichungs-/Paketierungsprozess Ihres Webprojekts verwendet. Sie können das Verhalten dieses Prozesses anpassen,
indem Sie diese MSBuild-Datei bearbeiten. Weitere Informationen hierzu finden Sie unter https://go.microsoft.com/fwlink/?LinkID=208121.
-->
<Project ToolsVersion="4.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<WebPublishMethod>FileSystem</WebPublishMethod>
<LastUsedBuildConfiguration>Debug</LastUsedBuildConfiguration>
<LastUsedPlatform>Any CPU</LastUsedPlatform>
<SiteUrlToLaunchAfterPublish />
<LaunchSiteAfterPublish>True</LaunchSiteAfterPublish>
<ExcludeApp_Data>False</ExcludeApp_Data>
<publishUrl>\\192.168.3.101\g\Websites\loginTEST.verag.ag</publishUrl>
<DeleteExistingFiles>False</DeleteExistingFiles>
</PropertyGroup>
</Project>

245
AvisoTV.aspx Normal file
View File

@@ -0,0 +1,245 @@
<%@ Page Language="VB" Debug="true" AutoEventWireup="false" CodeFile="AvisoTV.aspx.vb" Inherits="_Default" %>
<!DOCTYPE html>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<%@ import Namespace="MySql.Data.MySqlClient" %>
<script runat="server">
Sub Page_Load() Handles Me.Load
' MsgBox ("test")
'Dim con As New MySqlConnection
'Dim cmd As New MySqlCommand
' Dim reader As MySqlDataReader
' con.ConnectionString = "Server=localhost;Database=verag_homepage;Uid=sec_user;Pwd=eKcGZr59zAa2BEWU;"
' cmd.Connection = con
'cmd.CommandText = "select * from map"
'Try
'con.Open()
'MsgBox("conn")
'reader = cmd.ExecuteReader
'grid.DataSource = reader
'reader.Read()
'MsgBox(reader("title"))
'DataBind()
'reader.Close()
'Catch ex As Exception
' MsgBox("err")
' End Try
' con.Close()
End Sub
' Public ReadOnly Property CurrentCity() As String
' Get
' Return "asd"
' End Get
' End Property,
</script>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8"/>
<title>VERAG Spedition AG</title>
<link rel="stylesheet" type="text/css" href="css/main.css"/>
<link rel="stylesheet" type="text/css" href="css/style.css"/>
<link rel="stylesheet" type="text/css" href="css/status.css"/>
<LINK REL="SHORTCUT ICON" HREF="images/Icons/favicon/favicon.ico" />
<!-- <link rel="stylesheet" type="text/css" href="css/edit_main.css"> -->
<script src="js/netzwerk.js" type="text/javascript"></script>
<link rel="stylesheet" type="text/css" href="../stylesheets/style.css"/>
<link rel="stylesheet" type="text/css" href="../stylesheets/example.css"/>
<script type="text/javascript">
// Vergebe den Event-Handler
document.onkeydown = handleKeyEvent;
// Funktion, die den Event verarbeitet
function handleKeyEvent(e) {
// MSIE nimmt das Event-Objekt aus window.event, DOM-kompatible Browser aus dem e-Funktionsparameter
if (!e) e = window.event;
// keyCode muss 70 sein und ctrlKey true
if (e.keyCode == 68 && e.ctrlKey) {
alert('Strg+D wurde gedrückt');
//topup
}
}
</script>
<script type="text/javascript" src="js/toptions/top_up-min.js"></script>
</head>
<body >
<!-- <a href="login/login_TEST.aspx" style="position:absolute;left:10px;top:10px;">LOGIN</a>-->
<form id="leftLinks" runat="server">
<!--<a href="sendFeedback.aspx" toptions="type = iframe, effect = fade, width = 500, height = 500, overlayClose = 1,shaded=0, layout = flatlook" style='padding:0px;margin:0px;width:50px;height:11px;color:#fff;text-decoration: none;'>
<div class="feedback">
<div class="feedback_txt">
Feedback
</div>
</div>
</a>
<a href="sendFeedback.php" toptions="type = iframe, effect = fade, width = 500, height = 500, overlayClose = 1,shaded=0, layout = flatlook" style='padding:0px;margin:0px;width:50px;height:11px;color:#fff;text-decoration: none;'>
<div class="aviso">
<div class="aviso_txt">
<nobr>Neues Aviso</nobr>
</div>
</div>
</a>
-->
<div id="bodycontent">
<div id="nav-main">
<div id="art-logo"></div>
</div>
<div id="main-menu">
</div>
<div id="main-page">
<div class="pagecontent">
<div class="content_all"><div class="content_all">
<%
'Dim lan As String = Request.QueryString("lan")
'If lan ="" then lan="de"
'Dim menuID As String = Request.QueryString("menuID")
'If menuID = "" Then menuID = "1"
'Dim DB2 As New cDBFunctions
%>
<%
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
Dim LT As New VERAG_PROG_ALLGEMEIN.cLanguageText_LIST("HOMEPAGE", "LOGIN", "STATUS", "")
Dim V_LST As New VERAG_PROG_ALLGEMEIN.cVermerkeCodes_LIST
Dim lan = "DE"
'Response.Write(DB2.qry_contentNew(menuID, lan)) %>
</div>
<span class="content_all">
<h1>AVISO-TV Online</h1>
<div id="line"></div>
<br>
Hier finden Sie Informationen zu den aktuell an der Grenze stehenden LKWs.
<!--<br><br>
Die Mitarbeiter der VERAG Spedition AG haben sich auf die Bereiche Zoll und Steuer spezialisiert und können so ihren Kunden einen individuell abgestimmten Service anbieten.
<br><br>
Nehmen Sie sich etwas Zeit, um sich über unser umfangreiches Dienstleistungsangebot zu informieren! -->
<br><br><br>
<% '?key=hello%20world
Try
VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL
'Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(799124)
Dim VERAGSQL = New VERAG_PROG_ALLGEMEIN.SQL
'Response.Write(AD.Ordnungsbegriff)
Dim STANDORT = "SUB"
If (Request.QueryString.Count > 0) AndAlso (Request.QueryString("STANDORT") IsNot Nothing) Then
Try
STANDORT = (Request.QueryString("STANDORT"))
Catch ex As Exception
STANDORT = "SUB"
End Try
End If
If True Then
Dim AVISO_dt As System.Data.DataTable = VERAG_PROG_ALLGEMEIN.cAviso.getAVISO_List(STANDORT)
If AVISO_dt IsNot Nothing Then
If True Then 'AVISO.Status <> 1 And AVISO.Status <> 2 Then 'SENDUNGSTABELLE
%>
<h1><% =STANDORT %></h1>
<table class="tableStatus" border="8" cellspacing="0" >
<tr><th>Nr.</th><th>LKW Kennzeichen</th><th>Frächter</th><th>Avisierer</th><th>Ankunft</th><th>Dauer </th><th>LKW fertig</th></tr>
<%
Dim cnt = 0
For Each AVISO_ROW In AVISO_dt.Rows
Dim dauer = ""
If AVISO_ROW("Ankunft") IsNot DBNull.Value Then
Dim rMinute = DateDiff(DateInterval.Minute, CDate(AVISO_ROW("Ankunft")), Now)
Dim m_TimeSpan As TimeSpan = New TimeSpan(0, rMinute, 0)
dauer = Format((m_TimeSpan.Days * 24) + m_TimeSpan.Hours, "0") & " Std. " & Format(m_TimeSpan.Minutes, "00") & " min"
End If
Dim statOK_style = "" '" class=""statusNONE"" "
If AVISO_ROW("LKW_Fertig") = "OK" Then 'IsNot Nothing And s.tblSnd_Vorbereitet IsNot Nothing) Then
statOK_style = " class=""statusOK"" "
End If
%>
<tr><td><center><% Response.Write(cnt + 1) %></center></td><td><% Response.Write(AVISO_ROW("LKW_Nr"))%> </td><td><% Response.Write(AVISO_ROW("Frächter")) %> </td><td><% Response.Write(AVISO_ROW("Auftraggeber")) %></td><td><% Response.Write(AVISO_ROW("Ankunft")) %></td><td><% Response.Write(dauer) %></td><td <%=statOK_style %>><% Response.Write(AVISO_ROW("LKW_Fertig")) %></td></tr>
<%
cnt += 1
Next
%></table> <%
End If
End If
End If
Catch ex As Exception
Response.Write(ex.Message & ex.StackTrace)
End Try
%>
<div style="height:150px;"></div>
</div>
</div>
</div>
</div>
</div>
<%-- <div class="footer_menu">
<div class="footer_menu_content">
<table>
<tr>
</tr>
</table>
</div>
</div>--%>
<div class="footer">
<div class="footer_content"><b>VERAG Spedition AG</b> &nbsp;&nbsp; A-4975 Suben 100 &nbsp;&nbsp; Tel.: +43 7711 2777-0,&nbsp;&nbsp;Fax: +43 7711 31600,&nbsp;&nbsp;email: info@verag.ag</div>
</div>
</form>
</body>
</html>

7
AvisoTV.aspx.vb Normal file
View File

@@ -0,0 +1,7 @@

Partial Class _Default
Inherits System.Web.UI.Page
Sub test()
End Sub
End Class

51
VERAG_Homepage.sln Normal file
View File

@@ -0,0 +1,51 @@

Microsoft Visual Studio Solution File, Format Version 12.00
# Visual Studio 15
VisualStudioVersion = 15.0.28307.106
MinimumVisualStudioVersion = 10.0.40219.1
Project("{E24C65DC-7377-472B-9ABA-BC803B73C61A}") = "VERAG_Homepage", "http://localhost:56551", "{11EF0CDA-BC19-40FB-91C4-25C81F3A27AC}"
ProjectSection(WebsiteProperties) = preProject
UseIISExpress = "true"
TargetFrameworkMoniker = ".NETFramework,Version%3Dv4.7"
ProjectReferences = "{a3b497bd-842c-4a2b-b398-ed1976849df1}|VERAG_PROG_ALLGEMEIN.dll;"
Debug.AspNetCompiler.VirtualPath = "/localhost_56551"
Debug.AspNetCompiler.PhysicalPath = "..\VERAG_Homepage\"
Debug.AspNetCompiler.TargetPath = "PrecompiledWeb\localhost_56551\"
Debug.AspNetCompiler.Updateable = "true"
Debug.AspNetCompiler.ForceOverwrite = "true"
Debug.AspNetCompiler.FixedNames = "false"
Debug.AspNetCompiler.Debug = "True"
Release.AspNetCompiler.VirtualPath = "/localhost_56551"
Release.AspNetCompiler.PhysicalPath = "..\VERAG_Homepage\"
Release.AspNetCompiler.TargetPath = "PrecompiledWeb\localhost_56551\"
Release.AspNetCompiler.Updateable = "true"
Release.AspNetCompiler.ForceOverwrite = "true"
Release.AspNetCompiler.FixedNames = "false"
Release.AspNetCompiler.Debug = "False"
SlnRelativePath = "..\VERAG_Homepage\"
EndProjectSection
EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "VERAG_PROG_ALLGEMEIN", "..\..\VB\SDL\SDL\VERAG_PROG_ALLGEMEIN\VERAG_PROG_ALLGEMEIN.vbproj", "{A3B497BD-842C-4A2B-B398-ED1976849DF1}"
EndProject
Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution
Debug|Any CPU = Debug|Any CPU
Release|Any CPU = Release|Any CPU
EndGlobalSection
GlobalSection(ProjectConfigurationPlatforms) = postSolution
{11EF0CDA-BC19-40FB-91C4-25C81F3A27AC}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{11EF0CDA-BC19-40FB-91C4-25C81F3A27AC}.Debug|Any CPU.Build.0 = Debug|Any CPU
{11EF0CDA-BC19-40FB-91C4-25C81F3A27AC}.Release|Any CPU.ActiveCfg = Debug|Any CPU
{11EF0CDA-BC19-40FB-91C4-25C81F3A27AC}.Release|Any CPU.Build.0 = Debug|Any CPU
{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|Any CPU.Build.0 = Debug|Any CPU
{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|Any CPU.ActiveCfg = Release|Any CPU
{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|Any CPU.Build.0 = Release|Any CPU
EndGlobalSection
GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE
EndGlobalSection
GlobalSection(ExtensibilityGlobals) = postSolution
SolutionGuid = {88EFE1FF-5474-4F04-8980-13C1513F7D0F}
EndGlobalSection
EndGlobal

31
Web.Debug.config Normal file
View File

@@ -0,0 +1,31 @@
<?xml version="1.0" encoding="utf-8"?>
<!-- Weitere Informationen zum Verwenden der web.config-Transformation finden Sie unter "http://go.microsoft.com/fwlink/?LinkId=125889". -->
<configuration xmlns:xdt="http://schemas.microsoft.com/XML-Document-Transform">
<!--
Im folgenden Beispiel wird durch die Transformation "SetAttributes" der Wert von
"connectionString" geändert, sodass "ReleaseSQLServer" nur verwendet wird, wenn
vom Locator "Match" ein Attribut vom Typ "name" mit dem Wert "MyDB" gefunden wird.
<connectionStrings>
<add name="MyDB"
connectionString="Data Source=ReleaseSQLServer;Initial Catalog=MyReleaseDB;Integrated Security=True"
xdt:Transform="SetAttributes" xdt:Locator="Match(name)"/>
</connectionStrings>
-->
<system.web>
<compilation xdt:Transform="RemoveAttributes(debug)" />
<!--
Im folgenden Beispiel ersetzt die Transformation "Replace" den gesamten
Abschnitt "<customErrors>" der Datei "web.config".
Da unter dem Knoten "<system.web>" nur ein Abschnitt vom Typ
"customErrors" vorhanden ist, muss das Attribut "xdt:Locator" nicht verwendet werden.
<customErrors defaultRedirect="GenericError.htm"
mode="RemoteOnly" xdt:Transform="Replace">
<error statusCode="500" redirect="InternalError.htm"/>
</customErrors>
-->
</system.web>
</configuration>

93
Web.config Normal file
View File

@@ -0,0 +1,93 @@
<?xml version="1.0"?>
<!--
Weitere Informationen zum Konfigurieren der ASP.NET-Anwendung finden Sie unter
http://go.microsoft.com/fwlink/?LinkId=169433
-->
<configuration>
<!--SSL:::::
<secureWebPages enabled="true">
<file path="login/login.aspx" />
<directory path="login" />
</secureWebPages>
-->
<!--<location allowOverride="false">
<system.web>
<trust level="High" />
</system.web>
</location>-->
<!--
Eine Beschreibung der Änderungen von 'web.config' finden Sie unter 'http://go.microsoft.com/fwlink/?LinkId=235367'.
Die folgenden Attribute können für die <httpRuntime>-Kennung festgelegt werden.
<system.Web>
<httpRuntime targetFramework="4.7" />
</system.Web>
-->
<system.web>
<authentication mode="Forms">
<forms defaultUrl="admin/admin.aspx" loginUrl="login/Login_TEST.aspx" slidingExpiration="true" timeout="2880"/>
</authentication>
<httpRuntime requestValidationMode="2.0"/>
<pages validateRequest="false" controlRenderingCompatibilityVersion="4.0"/>
<!--<securityPolicy>
<trustLevel name="Full" policyFile="internal"/>
</securityPolicy>-->
<customErrors mode="Off"/>
<compilation debug="true" strict="false" explicit="true" targetFramework="4.7">
<!-- <assemblies>
<add assembly="MySql.Data, Version=5.5, Culture=neutral, PublicKeyToken=C5687FC88969C44D"/>
</assemblies>
<assemblies>
<add assembly="MySql.Data, Version=6.9.7.0, Culture=neutral, PublicKeyToken=C5687FC88969C44D"/>
<add assembly="MySql.Data.Entity, Version=6.9.7.0, Culture=neutral, PublicKeyToken=C5687FC88969C44D"/>
<add assembly="MySql.Web, Version=6.9.7.0, Culture=neutral, PublicKeyToken=C5687FC88969C44D"/>
</assemblies>-->
<assemblies>
<add assembly="MySql.Data, Version=6.9.7.0, Culture=neutral, PublicKeyToken=C5687FC88969C44D"/>
<add assembly="MySql.Web, Version=6.9.7.0, Culture=neutral, PublicKeyToken=C5687FC88969C44D"/>
<add assembly="MySql.Data.Entity, Version=6.9.7.0, Culture=neutral, PublicKeyToken=C5687FC88969C44D"/>
<add assembly="System.Net.Http, Version=4.0.0.0, Culture=neutral, PublicKeyToken=B03F5F7F11D50A3A"/>
<add assembly="Newtonsoft.Json, Version=6.0.0.0, Culture=neutral, PublicKeyToken=30AD4FE6B2A6AEED"/>
</assemblies>
</compilation>
<membership defaultProvider="MySqlMembershipProvider">
<providers>
<clear/>
<add name="MySqlMembershipProvider" type="MySql.Web.Security.MySQLMembershipProvider, MySql.Web, Version=6.6.5.0, PublicKeyToken=c5687fc88969c44d" autogenerateschema="true" connectionStringName="MyProviderDbConn" enablePasswordRetrieval="false" enablePasswordReset="true" requiresQuestionAndAnswer="false" requiresUniqueEmail="false" passwordFormat="Hashed" maxInvalidPasswordAttempts="5" minRequiredPasswordLength="6" minRequiredNonalphanumericCharacters="0" passwordAttemptWindow="10" passwordStrengthRegularExpression="" applicationName="/"/>
</providers>
</membership>
</system.web>
<connectionStrings>
<add name="MyProviderDbConn" connectionString="Server=db593283095.db.1and1.com;Database=db593283095;Uid=dbo593283095;Pwd=atilla#2;Persist Security Info=True;Use Compression=True;port=3306" providerName="MySqlMembershipProvider"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.FMZOLL_PRODConnectionString" connectionString="Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=VERAG;Integrated Security=false;User ID=test;Password=BmWr501956;"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.ATLASConnectionString" connectionString="Data Source=192.168.0.95\SQLATLAS;Initial Catalog=atlas;Integrated Security=false;User ID=sa;Password=BmWr501956;"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.ADMINConnectionString" connectionString="Data Source=192.168.0.94\SQLEXPRESS;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.SDL_PRODConnectionString" connectionString="Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=SDL;Integrated Security=false;User ID=sa;Password=BmWr501956;"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.FMZOLLConnectionString" connectionString="Data Source=192.168.0.90\DEVSQL;Initial Catalog=VERAG;Integrated Security=false;User ID=sa;Password=BmWr501956;"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.AVISOConnectionStringTEST" connectionString="Data Source=192.168.0.90\DEVSQL;Initial Catalog=AVISO_new;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.AVISOConnectionString" connectionString="Data Source=192.168.0.94\SQLEXPRESS;Initial Catalog=AVISO;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.SDLConnectionString" connectionString="Data Source=192.168.0.90\DEVSQL;Initial Catalog=SDL;Integrated Security=False;Persist Security Info=True;User ID=sa;Password=BmWr501956;TrustServerCertificate=False"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.EZOLLConnectionString" connectionString="Data Source=192.168.0.94\SQLEXPRESS;Initial Catalog=ezoll;Integrated Security=false;User ID=sa;Password=BmWr501956;"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.AVISO_ATILLAConnectionString" connectionString="Data Source=192.168.0.94\SQLEXPRESS;Initial Catalog=AVISO;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.ATLAS_SBGConnectionString" connectionString="Data Source=192.168.133.98;Initial Catalog=atlas;Integrated Security=false;User ID=sa;Password=BmWr501956;"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.UIDConnectionString" connectionString="Data Source=192.168.0.90\DEVSQL;Initial Catalog=UID;Persist Security Info=True;User ID=sa;Password=BmWr501956"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.UID_PRODConnectionString" connectionString="Data Source=192.168.0.94\SQLEXPRESS;Initial Catalog=UID;Integrated Security=false;User ID=sa;Password=BmWr501956;"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.FDConnectionString" connectionString="Data Source=192.168.0.94\SQLEXPRESS;Initial Catalog=FD;Integrated Security=false;User ID=sa;Password=BmWr501956;"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.FD_PRODConnectionString" connectionString="Data Source=192.168.0.90\DEVSQL;Initial Catalog=FD;Integrated Security=false;User ID=sa;Password=BmWr501956;"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.DISPOConnectionStringTEST" connectionString="Data Source=192.168.0.90\DEVSQL;Initial Catalog=DISPO;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200" providerName=""/>
</connectionStrings>
<system.webServer>
<rewrite>
<rules>
<rule name="HTTP to HTTPS redirect" enabled="false" stopProcessing="true">
<match url="(.*)"/>
<conditions>
<add input="{HTTPS}" pattern="off"/>
</conditions>
<action type="Redirect" redirectType="Permanent" url="https://{HTTP_HOST}/{R:1}"/>
</rule>
</rules>
</rewrite>
</system.webServer>
</configuration>

39
admin/addHp.aspx Normal file
View File

@@ -0,0 +1,39 @@
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="addHp.aspx.vb" Inherits="admin_InputBox" EnableEventValidation="false" %>
<!-- EnableEventValidation="false" - gegen Fehler-->
<!DOCTYPE html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8"/>
<title></title>
<link rel="stylesheet" type="text/css" href="../css/main.css"/>
<link rel="stylesheet" type="text/css" href="../css/style.css"/>
<link rel="shortcut_icon" type="image/x-icon" href="../images/Icons/favicon/favicon.ico"/>
<link rel="stylesheet" type="text/css" href="../css/edit_main.css"/>
<script type="text/javascript">
window.close();
<% If Not Page.Session("parentReload") Is Nothing Then%>
window.parent.location.href = "<%= Page.Session("parentReload")%>"
parent.TopUp.close()
<% End If %>
</script>
</head>
<body style="width:500px;height:200px;padding:0px;margin:0px;overflow-x: hidden;background-image:none" >
<div style="width:100%;height:20px;background-color: #003680;font-size:16px;color:white;padding:10px;" ><b>Neue Seite erstellen</b></div>
<form action="addHp.aspx" runat="server">
<div style="padding:10px;">
Bitte geben Sie den deutschen Bezeichner für die neue Homepage ein:<br />
<asp:TextBox ID="input" runat="server" Width="350px"></asp:TextBox><br /><br />
<asp:button runat="server" id="addPage" text="Seite erstellen" BorderStyle="Solid" Height="35px" />
&nbsp;&nbsp;
<asp:button runat="server" id="button1" text="Abbrechen" BorderStyle="Solid" Height="35px" OnClientClick="parent.TopUp.close()" />
</div>
</form>
</body>

66
admin/addHp.aspx.vb Normal file
View File

@@ -0,0 +1,66 @@

Partial Class admin_InputBox
Inherits System.Web.UI.Page
Public laenderkuerzel As String = "de"
Public menueId As Integer = 1
Private DB As New cDBADMINFunctions
Dim hp_content As hp_content = Nothing
Public Overrides Sub VerifyRenderingInServerForm(control As Control)
End Sub
'PreviousPage ????
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not IsPostBack Then 'ERSTES MAL
Page.Session("parentReload") = Nothing
Page.Session("close") = Nothing
' Page.Session("navParent") = "admin"
If Not Request.QueryString("lan") Is Nothing Then
laenderkuerzel = Request.QueryString("lan")
Else
laenderkuerzel = "de"
End If
If Not Request.QueryString("menuID") Is Nothing Then
menueId = Request.QueryString("menuID")
Else
menueId = 1
End If
hp_content = DB.qry_contentNew(menueId, laenderkuerzel)
Page.Session("hp_content") = hp_content
End If
End Sub
Protected Sub addPage_Click(sender As Object, e As EventArgs) Handles addPage.Click
Dim hp_content As hp_content = Nothing
hp_content = Page.Session("hp_content") 'sonst gehs ned, weil werte nicht geladfen sind
' Dim title = InputBox("Bitte geben Sie den deutschen Menü-Titel an:")
' System.Web.HttpContext.Current.Response.Write("<SCRIPT LANGUAGE=""JavaScript"">alert('Hello this is an Alert')</SCRIPT>")
Dim title As String = input.Text
If title <> "" Then
'Request.QueryString("menuID")
Dim menueId As Integer = -1
menueId = DB.insert_HPContentNew(hp_content, laenderkuerzel, title, hp_content.hp_id, hp_content.hp_instance)
'Page.Parent.Page.Response.Redirect("admin.aspx?menuId=" & menueId & "&lan=" & laenderkuerzel)
Page.Session("parentReload") = "admin.aspx?menuID=" & menueId & "&lan=" & laenderkuerzel
Else
MsgBox("Der Titel darf nicht leer sein!")
End If
End Sub
End Class

137
admin/admin.aspx Normal file
View File

@@ -0,0 +1,137 @@
<%@ Page Language="VB" Debug="true" ValidateRequest="false" AutoEventWireup="false" CodeFile="admin.aspx.vb" Inherits="admin_admin" %>
<!DOCTYPE html>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8"/>
<title>HOMEPAGE ADMIN</title>
<link rel="stylesheet" type="text/css" href="../css/main.css"/>
<link rel="stylesheet" type="text/css" href="../css/style.css"/>
<link rel="SHORTCUT ICON" href="../images/Icons/favicon/favicon.ico" />
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"/>
<style type="text/css">
.admin_td {
width: 202px;
vertical-align:top
}
</style>
<script type="text/javascript" src="../js/toptions/top_up-min.js"></script>
<!--[if IE]>
<link rel="stylesheet" type="text/css" href="../css/main.css">
<![endif]-->
<!--[if IE 6]>
<link rel="stylesheet" type="text/css" href="../css/main.css">
<![endif]-->
<!--[if lt IE 7]>
<link rel="stylesheet" type="text/css" href="../css/main.css">
<![endif]-->
<!--[if lte IE 5.5999]>
<link rel="stylesheet" type="text/css" href="../css/main.css">
<![endif]-->
<!--[if gte IE 5.5]>
<link rel="stylesheet" type="text/css" href="../css/main.css">
<![endif]-->
</head>
<body style="height:100%">
<form id="form1" runat="server">
<div id="bodycontent" style="height:100%">
<!-- #include file="..\navigation.aspx" -->
<div id="main-page" style="height:100%">
<div class="pagecontent" style="height:800px">
<div class='content_all' style="height:600px">
<br />
<h1 style="width:100%; border-bottom:1px solid #003688">ADMIN - HOMEPAGE BEARBEITUNG</h1>
<br />
<br />
<table style="width:100%;">
<tr>
<td class="auto-style1">Menü-Bezeichnung:</td>
<td class="auto-style2">Slogan (nur bei Hauptmenü):</td>
<td>Bild-Pfad:</td>
</tr>
<tr>
<td class="admin_td">
<asp:TextBox ID="txtMenueBez" runat="server" Width="100%"></asp:TextBox>
</td>
<td class="admin_td">
<asp:TextBox ID="txtMenueSlogan" runat="server" Width="100%"></asp:TextBox>
</td>
<td class="admin_td">
<asp:TextBox ID="txtMenueIMGPfad" runat="server" Width="100%"></asp:TextBox>
</td >
<td class="admin_td" rowspan="2">
<asp:Image ID="picMenue" runat="server" height="50" width="100"/>&nbsp;
</td>
</tr>
<tr>
<td class="admin_td" colspan="2">
<nobr>Sprache:
<asp:DropDownList ID="Sprache" runat="server" OnSelectedIndexChanged="SpracheChanged" AutoPostBack="True">
<asp:ListItem Text="DE" Value="DE" />
<asp:ListItem Text="EN" Value="EN" />
<asp:ListItem Text="TR" Value="TR" />
<asp:ListItem Text="RO" Value="RO" />
<asp:ListItem Text="YU" Value="YU" />
<asp:ListItem Text="BG" Value="BG" />
</asp:DropDownList>
</nobr>
</td>
</tr>
<tr>
<td class="auto-style1">&nbsp;</td>
<td class="auto-style2">&nbsp;</td>
<td>&nbsp;</td>
</tr>
</table>
<div class="content_66" style="height:100%;">
<asp:TextBox ID="txtContent" runat="server" Height="100%" Width="100%" TextMode="MultiLine"></asp:TextBox>
</div>
<div class="content_33" style="height:100%;">
<div style=" padding-left:40px">
<asp:Button ID="btnUpdate" runat="server" Text="Update" Width="60%" OnClick="Update_Click" /><br />
<br />
<a href="addHp.aspx?menuID=<%= menueId %>&lan=<%= laenderkuerzel %>" toptions="type = iframe, effect = fade, width = 500, height = 200, overlayClose = 1,shaded=0, layout = flatlook" style='padding:0px;margin:0px;width:50px;height:11px;color:#003688;text-decoration: none;'>
<input type="button" id="BtnAdd" runat="server" value="Unterseite erstellen" style="width:60%" /><br />
</a>
<br />
<a href="delHp.aspx?menuID=<%= menueId %>&lan=<%= laenderkuerzel %>" toptions="type = iframe, effect = fade, width = 500, height = 200, overlayClose = 1,shaded=0, layout = flatlook" style='padding:0px;margin:0px;width:50px;height:11px;color:#003688;text-decoration: none;'>
<input type="button" id="btnDel" runat="server" value="Diese Seite löschen" style="width:60%" /><br />
</a>
<br />
<br />
SQL:<br />
<asp:TextBox id="sqlText" runat="server" TextMode="MultiLine" style="width:100%; height: 200px">
</asp:TextBox>
<asp:Button id="btnDoSql" runat="server" Text="SQL ausführen" style="width:60%" /><br />
</div>
</div>
</div>
</div>
</div>
</div>
</form>
</body>
</html>

166
admin/admin.aspx.vb Normal file
View File

@@ -0,0 +1,166 @@

Partial Class admin_admin
Inherits System.Web.UI.Page
Private DB As New cDBADMINFunctions
Dim blocks As New List(Of cBlock)
Private margin_top As Integer = 20
Private margin_left As Integer = 20
Private top_value As Integer = 0
Private left_value As Integer = 0
Private rowmaxheight As Integer = 0
Private screenwidth As Integer = 1200
' Dim WithEvents fctbHTML As New FastColoredTextBox
Dim hp_content As hp_content = Nothing
Public laenderkuerzel As String = "de"
Dim hp_test As String = ""
Public menueId As Integer = 1
Dim WithEvents fctbHTML As New TextBox
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Me.Page.User.Identity.IsAuthenticated Then
FormsAuthentication.RedirectToLoginPage()
End If
If Not Request.IsSecureConnection Then
' Response.Redirect(Request.Url.AbsoluteUri.Replace("http://", "https://").Replace("56551", "44300"))
End If
If Not IsPostBack Then 'ERSTES MAL
Page.Session("navParent") = "admin"
If Not Request.QueryString("lan") Is Nothing AndAlso Request.QueryString("lan").ToString <> "" Then
laenderkuerzel = Request.QueryString("lan")
Else
If laenderkuerzel = "" Then laenderkuerzel = "de"
End If
If Not Request.QueryString("menuID") Is Nothing AndAlso Request.QueryString("menuID").ToString <> "" Then
menueId = Request.QueryString("menuID")
Else
menueId = 1
End If
initHomepage()
Page.Session("hp_content") = hp_content
Try
Me.Sprache.SelectedValue = laenderkuerzel.ToUpper
Catch ex As Exception
End Try
End If
End Sub
Protected Sub Update_Click(sender As Object, e As EventArgs) Handles btnUpdate.Click ' Handles btnUpdate.Click
Dim hp_content As hp_content = Nothing
hp_content = Page.Session("hp_content") 'sonst gehs ned, weil werte nicht geladfen sind
hp_content.hp_content = txtContent.Text
hp_content.hp_imgPath = txtMenueIMGPfad.Text
hp_content.hp_title = txtMenueBez.Text
hp_content.hp_slogan = txtMenueSlogan.Text
laenderkuerzel = Request.QueryString("lan")
'If hp_content.hp_id >= 0 Then
DB.update_HPContentNew(hp_content, laenderkuerzel)
'Else
'End If
' initHomepage()
End Sub
Protected Sub SpracheChanged(sender As Object, e As EventArgs) Handles Sprache.SelectedIndexChanged
Response.Redirect("admin.aspx?menuId=" & Request.QueryString("menuID") & "&lan=" & Sprache.Text.ToLower)
End Sub
Protected Sub btnDoSql_Click(sender As Object, e As EventArgs) Handles btnDoSql.Click ' Handles btnUpdate.Click
If sqlText.Text <> "" Then
DB.doTheSql(sqlText.Text)
Else
End If
End Sub
Sub initHomepage()
Try
laenderkuerzel = Request.QueryString("lan")
hp_content = DB.qry_contentNew(menueId, laenderkuerzel)
If hp_content Is Nothing Then
hp_content = New hp_content
hp_content.hp_content = ""
hp_content.hp_id = menueId
' hp_content.hp_id = -1
End If
Catch ex As Exception
' MsgBox("ERR")
System.Web.HttpContext.Current.Response.Write("<SCRIPT LANGUAGE=""JavaScript"">alert('ERR: " & ex.Message & "')</SCRIPT>")
End Try
' Exit Sub
txtContent.Text = hp_content.hp_content.Replace("\r\n", vbNewLine)
txtMenueIMGPfad.Text = hp_content.hp_imgPath
txtMenueBez.Text = hp_content.hp_title
txtMenueSlogan.Text = hp_content.hp_slogan
Try
If hp_content.hp_imgPath <> "" Then
picMenue.ImageUrl = "../" & hp_content.hp_imgPath
End If
Catch ex As Exception
End Try
' btnDel.Enabled = False 'del
' BtnAdd.Enabled = False 'unter
If hp_content.hp_instance <> "" Then
' If hp_content.hp_instance > 0 Then btnDel.Enabled = True
' If hp_content.hp_instance < 2 Then BtnAdd.Enabled = True
End If
End Sub
Protected Sub BtnAdd_Click(sender As Object, e As EventArgs) 'Handles BtnAdd.Click
Exit Sub
Dim hp_content As hp_content = Nothing
hp_content = Page.Session("hp_content") 'sonst gehs ned, weil werte nicht geladfen sind
Dim title = InputBox("Bitte geben Sie den deutschen Menü-Titel an:")
' System.Web.HttpContext.Current.Response.Write("<SCRIPT LANGUAGE=""JavaScript"">alert('Hello this is an Alert')</SCRIPT>")
If title <> "" Then
MsgBox(laenderkuerzel)
'Request.QueryString("menuID")
menueId = DB.insert_HPContentNew(hp_content, laenderkuerzel, title, hp_content.hp_id, hp_content.hp_instance)
Response.Redirect("admin.aspx?menuId=" & menueId & "&lan=" & laenderkuerzel)
'initHomepage()
Else
MsgBox("Der Titel darf nicht leer sein!")
End If
End Sub
Protected Sub btnDel_Click(sender As Object, e As EventArgs) 'Handles btnDel.Click
Dim hp_content As hp_content = Nothing
hp_content = Page.Session("hp_content") 'sonst gehs ned, weil werte nicht geladfen sind
If vbYes = MsgBox("Möchten Sie wirklich diese Seite und allen Sprachen löschen?" & vbNewLine & "'" & hp_content.hp_title & "'", vbYesNoCancel) Then 'alle Unterseiten in
DB.deleteHpMenueAndContent(hp_content.hp_id)
End If
Response.Redirect("admin.aspx?menuId=1&lan=" & laenderkuerzel)
End Sub
End Class

41
admin/delHp.aspx Normal file
View File

@@ -0,0 +1,41 @@
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="delHp.aspx.vb" Inherits="admin_InputBox" EnableEventValidation="false" %>
<!-- EnableEventValidation="false" - gegen Fehler-->
<!DOCTYPE html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8"/>
<title></title>
<link rel="stylesheet" type="text/css" href="../css/main.css"/>
<link rel="stylesheet" type="text/css" href="../css/style.css"/>
<link rel="shortcut_icon" type="image/x-icon" href="../images/Icons/favicon/favicon.ico"/>
<link rel="stylesheet" type="text/css" href="../css/edit_main.css"/>
<script type="text/javascript" src="../js/toptions/top_up-min.js"></script>
<script type="text/javascript">
<% If Not Page.Session("parentReload") Is Nothing Then%>
window.parent.location.href = "<%= Page.Session("parentReload")%>"
parent.TopUp.close()
<% End If %>
</script>
</head>
<body style="width:500px;height:150px;padding:0px;margin:0px;overflow-x: hidden;background-image:none" >
<div style="width:100%;height:20px;background-color: #c00;font-size:16px;color:white;padding:10px;" ><b>Möchten Sie diese Seite wirklich löschen?</b></div>
<form action="delHp.aspx" runat="server">
<div style="padding:10px;">
<asp:button runat="server" id="addPage" text="JA - Seite löschen" style="margin-top: 0px;" BorderStyle="Solid" Height="35px" />
&nbsp;&nbsp;
<asp:button runat="server" id="button1" text="Nein" BorderStyle="Solid" Height="35px" Width="144px" OnClientClick="parent.TopUp.close()" />
</div>
</form>
</body>

51
admin/delHp.aspx.vb Normal file
View File

@@ -0,0 +1,51 @@

Partial Class admin_InputBox
Inherits System.Web.UI.Page
Public laenderkuerzel As String = "de"
Public menueId As Integer = 1
Private DB As New cDBADMINFunctions
Dim hp_content As hp_content = Nothing
Public Overrides Sub VerifyRenderingInServerForm(control As Control)
End Sub
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not IsPostBack Then 'ERSTES MAL
Page.Session("parentReload") = Nothing
Page.Session("close") = Nothing
' Page.Session("navParent") = "admin"
If Not Request.QueryString("lan") Is Nothing Then
laenderkuerzel = Request.QueryString("lan")
Else
laenderkuerzel = "de"
End If
If Not Request.QueryString("menuID") Is Nothing Then
menueId = Request.QueryString("menuID")
Else
menueId = 1
End If
hp_content = DB.qry_contentNew(menueId, laenderkuerzel)
Page.Session("hp_content") = hp_content
End If
End Sub
Protected Sub addPage_Click(sender As Object, e As EventArgs) Handles addPage.Click
Dim hp_content As hp_content = Nothing
hp_content = Page.Session("hp_content") 'sonst gehs ned, weil werte nicht geladfen sind
DB.deleteHpMenueAndContent(hp_content.hp_id)
Page.Session("parentReload") = "admin.aspx?menuID=1&lan=" & laenderkuerzel
End Sub
End Class

BIN
css/cssmap-europe/Neuer Ordner/eu-1280.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 490 KiB

BIN
css/cssmap-europe/Neuer Ordner/eu-1450.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 569 KiB

BIN
css/cssmap-europe/Neuer Ordner/eu-250.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 58 KiB

BIN
css/cssmap-europe/Neuer Ordner/eu-320.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 75 KiB

BIN
css/cssmap-europe/Neuer Ordner/eu-430.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 109 KiB

BIN
css/cssmap-europe/Neuer Ordner/eu-540.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 154 KiB

BIN
css/cssmap-europe/Neuer Ordner/eu-650.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 198 KiB

BIN
css/cssmap-europe/Neuer Ordner/eu-750.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 239 KiB

BIN
css/cssmap-europe/Neuer Ordner/eu-850.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 283 KiB

BIN
css/cssmap-europe/Neuer Ordner/eu-960.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 318 KiB

157
css/cssmap-europe/cssmap-europe.css Normal file
View File

File diff suppressed because one or more lines are too long

BIN
css/cssmap-europe/eu-1280.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 904 KiB

BIN
css/cssmap-europe/eu-1450.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.0 MiB

BIN
css/cssmap-europe/eu-250.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 103 KiB

BIN
css/cssmap-europe/eu-320.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 133 KiB

BIN
css/cssmap-europe/eu-430.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 190 KiB

BIN
css/cssmap-europe/eu-540.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 266 KiB

BIN
css/cssmap-europe/eu-650.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 346 KiB

BIN
css/cssmap-europe/eu-750.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 428 KiB

BIN
css/cssmap-europe/eu-850.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 509 KiB

BIN
css/cssmap-europe/eu-960.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 576 KiB

486
css/edit_main.css Normal file
View File

@@ -0,0 +1,486 @@
/*
Document : edit_main
Created on : 08.02.2013, 15:02:29
Author : Main
Description:
Purpose of the stylesheet follows.
*/
body{
background-color: #ffffff;
width: 850px;
height: 100%;
}
#art-banner{
background-color: #e8e8ea;
/* background-image: url("../images/banner_top_ohneLogo.jpg");*/
background-color:#0066aa;
background-image: none;
margin:0px;
padding:0px;
width: 100%;
height: 70px;
background-repeat: no-repeat;
background-size: 100% 100%;
position: absolute;
top:0px;
left: 0px;
z-index: 1;
border-bottom: 3px solid black;
}
#art-logo{
background-image:url("../images/verag_logo_white.png");
margin:0px;
padding:0px;
width: 330px;
height: 165px;
background-repeat: no-repeat;
background-size: 100%;
position: absolute;
top:15px;
left: 15px;
z-index: 2;
width:12em;
}
#page-title{
margin:0px;
padding:0px;
width: 330px;
height: 165px;
color:#fff;
font-size: 24px;
position: absolute;
top:20px;
z-index: 2;
left:300px;
}
#update-title{ position: absolute; top:85px; left:15px; color:black; font-style:italic; font-size: 0.8em;}
/*********************Hauptmenü**********************************/
.update_navigation {
position: absolute; top:100px; left: 15px; right:15px;
height: 35px;
margin: 0px; padding: 0px;
z-index:3;
border-bottom:2px solid #333;
}
.update_navigation ul {
list-style-type: none;
width: 100%;
margin: 0px;
padding: 0px;
}
.update_navigation li {
float: left;
padding: 0px;
margin:0px;
}
.update_navigation ul a {
padding-right: 40px;
padding-left: 0px;
margin:0px;
display: block;
line-height: 40px;
text-decoration: none;
font-family: Helvetica, serif;
font-size: 16px;
color: #0066aa;
font-weight: normal ;
/* font-weight: bold;*/
/*text-shadow: 2px 2px 2px black;*/
}
.update_navigation ul a:hover {
text-decoration: underline;
text-shadow: 1px 1px 1px gray;
transition: text-shadow 0.3s;
-webkit-transition: text-shadow 0.3s;
-moz-transition: text-shadow 0.3s;
-o-transition: text-shadow 0.3s;
}
/*******************************************************/
/*******************Navigation-left************************************/
#art-flags{
position:absolute; top:85px;left:50px;z-index:99;
}
.update_menu_01 {
position: absolute; top:130px; left: 5px;
height: 35px; width:245px;
margin: 0px; padding: 0px;
z-index:30;
}
.update_menu_01 ul {
list-style-type: none; width: 100%;
margin: 0px; padding: 5px;
border:2px outset #333; background-color: white;
}
.update_menu_01 li {
padding: 1px;
}
.update_menu_01 ul a {
padding: 0px;
margin:0px;
display: inline;
line-height: 1.0em;
text-decoration: none;
font-family: Helvetica, serif;
font-size: 0.9em;
color: black;
font-weight: normal ;
}
.update_menu_01 ul a:hover {
text-decoration: none;
background-color: #0066aa;
color: white;
text-shadow: 1px 1px 1px gray;
transition: text-shadow 0.3s;
-webkit-transition: text-shadow 0.3s;
-moz-transition: text-shadow 0.3s;
-o-transition: text-shadow 0.3s;
}
.update_menu_02{
margin-left: 10px;
font-size: 0.8em;
}
.update_menu_02 ul {
border:0px;
width:80%;
}
.inst0{
margin-top:10px;
background-color: lightgrey;
font-style: italic;
}
.inst1{
background-color: lightblue;
}
.inst2{
margin-left:10px;
}
/*******************************************************/
#main-page{
margin:0px; padding: 0px;
position: absolute; top: 135px; left:265px; right:15px;
width:800px;
border:1px solid black;
}
#main-page2{
margin:0px; padding: 0px;
position: absolute; top: 135px; left:1100px; right:15px;
width:800px;
border:1px solid black;
}
#main-edit{
position: absolute; top: 135px; left:15px; right:15px;
overflow: auto; min-height: 85%;
background-color: #eee; border: 1px solid black;
font-family: arial; font-size: 11px;
/*height:95%;*/
/*position: absolute;
top: 12.5%;*/
}
#inner-edit{
margin-left:250px;
}
.edittable{
/*width:900px;*/
/*background-color: gray;*/
margin-left: 2%;
margin-right: 2%;
padding:20px;
}
.tr td{
border-bottom: 1px solid black;
padding-bottom: 10px;
padding-top: 10px;
}
.edittextarea{
width:90%;
/*margin-left: 2%;
margin-right: 2%;*/
height: 150px;
}
h1{
color: #525252;
font-size: 30px;
font-weight: bold;
line-height: 30px;
padding: 0px;
margin: 0px;
margin-top: 5px;
margin-bottom: 5px;
}
h2{
color: #525252;
font-size: 20px;
font-weight: bold;
line-height: 30px;
padding: 0px;
margin: 0px;
margin-top: 5px;
margin-bottom: 5px;
}
.edit_add_contend{
/*display:none;*/
}
.edit_add_contend img{
width:40px;
}
.info img:hover{
opacity: 0.5;
cursor: pointer;
}
.edit_add_contend img:hover{
opacity: 0.5;
cursor: pointer;
}
a.info{
position:relative;
z-index:1;
}
a.info:hover{
z-index:2;
}
a.info span{
display: none;
}
a.info:hover span{
display:block;
position:absolute;
top:2em;
left:2em;
width:15em;
border:1px solid #003680;
background-color:#add8e6;
color:#000;
text-align: center;
padding: 5px;
font-size: 0.8em;
}
.edittable select{
width:150px;
height:25px;
}
.edittable_main{
width:900px;
padding:0px;
margin:0px;
}
.edittable:hover{
background-color: #eeeeee;
}
.smallicon{
height:15px;
width:15px;
}
.edit_textarea{
width:90%;
}
p{
padding:0px;
margin:0px;
color: #525252;
font-size: 0.9em;
padding-right:15px;
padding-left:15px;
text-align: justify;
font-family: Helvetica;
/* font-weight: bold;*/
}
.content_all, .content_b_left, .content_b_right, .content_m_left, .content_m_right, .content_s_left, .content_s_right, .content_img, .content_img_b, .content_img_m, .content_img_s{
/* padding: 15px;*/
padding:0px;
padding-top: 15px;
margin:0px;
float:left;
}
.content_all img, .content_b_left img, .content_b_right img, .content_m_left img, .content_m_right img, .content_s_left img, .content_s_right img, .content_img img , .content_img_b img, .content_img_m img, .content_img_s img{
/* padding: 15px;*/
padding:0px;
margin:0px;
float:left;
}
.content_33{
width:33.33%;
padding:0px;
margin:0px;
display:inline-block;
float: left;
}
.content_66{
width:66.66%;
padding:0px;
margin:0px;
display:inline-block;
float: left;
}
.content_all{
width:100%;
display:block;
float: left;
}
.content_b{
width:75%;
padding:0px;
margin:0px;
display:inline-block;
float: left;
}
.content_m{
width:50%;
padding:0px;
margin:0px;
display:inline-block;
float: left;
}
.content_s{
width:25%;
padding:0px;
margin:0px;
display:inline-block;
float: left;
}
.content_b_left{
width:50%;
padding:0px;
margin:0px;
display:inline-block;
float: left;
/*background-color: #ffffff;*/
}
.content_b_right{
width:50%;
display:inline-block;
float: right;
padding:0px;
margin:0px;
}
.content_m_left{
width:19em;
display:inline-block;
float: left;
}
.content_m_right{
width:19em;
display:inline-block;
float: right;
}
.content_s_left{
width:9em;
display:inline-block;
float: left;
}
.content_s_right{
width:9em;
display:inline-block;
float: right;
}
.content_img{
width:100%;
padding:0px;
margin:0px;
}
option[value="full"]:before { content:url("../images/Icons/main/edit_types/add_contend_full.gif"); }
option[value="pic"]:before { content:url("../images/Icons/main/edit_types/add_contend_pic.gif"); }
option[value="50-50"]:before { content:url("../images/Icons/main/edit_types/add_contend_50-50.gif"); }
option[value="50-pic"]:before { content:url("../images/Icons/main/edit_types/add_contend_50-pic.gif"); }
option[value="pic-50"]:before { content:url("../images/Icons/main/edit_types/add_contend_pic-50.gif"); }
option[value="75-25"]:before { content:url("../images/Icons/main/edit_types/add_contend_75-25.gif"); }
option[value="75-pic"]:before { content:url("../images/Icons/main/edit_types/add_contend_75-pic.gif"); }
option[value="25-75"]:before { content:url("../images/Icons/main/edit_types/add_contend_25-75.gif"); }
option[value="pic-75"]:before { content:url("../images/Icons/main/edit_types/add_contend_pic-75.gif"); }
option[value="title"]:before { content:url("../images/Icons/main/edit_types/title.gif"); }
option[value="line"]:before { content:url("../images/Icons/main/edit_types/line.gif"); }

25
css/highway_main.css Normal file
View File

@@ -0,0 +1,25 @@
#art-banner{
background-color:#aa0000;
}
#art-logo_highway{
background-image:url("../images/highway118.gif");
margin:0px;
padding:0px;
width: 330px;
height: 165px;
background-repeat: no-repeat;
background-size: 100%;
position: absolute;
top:00px;
z-index: 2;
left:47%;
width:20em;
margin-left:-10em;
}

1212
css/main.css Normal file
View File

File diff suppressed because it is too large Load Diff

1159
css/main_V3.css Normal file
View File

File diff suppressed because it is too large Load Diff

1160
css/main_europe.css Normal file
View File

File diff suppressed because it is too large Load Diff

33
css/main_ie.css Normal file
View File

@@ -0,0 +1,33 @@
#art-banner{
background-color:#012b64;
background-color:#0066aa;
height:100%;
width: 100%;
margin:0px;
padding:0px;
height: 200px;
background-size: 100% 100%;
position: absolute;
top:0px;
left: 0px;
z-index: 1;
border-bottom: 3px solid black;
}
body{
background: none;
background-image: none;
background-size: 0,0;
background-color: #e8e8ea;
background-color:white;
}

1167
css/main_orgibearb.css Normal file
View File

File diff suppressed because it is too large Load Diff

1153
css/main_orig.css Normal file
View File

File diff suppressed because it is too large Load Diff

129
css/status.css Normal file
View File

@@ -0,0 +1,129 @@
.tableStatus {
font-size: 14px;
width: 100%;
background-color: #fefefe;
padding: 0px;
border:3px solid gray;
}
.tableStatus td {
padding: 5px;
text-align: left;
border: 1px solid lightgray;
}
.tableStatus tr {
padding: 5px;
border: 1px solid black;
background-color: #ecfaff;
}
.tableStatus th, .tableStatus th td {
font-size: 14px;
background-color: #003680;
color: white;
padding: 5px;
border: 1px solid lightgray;
}
.tableStatus .tableStatusVermerke {
/*background-color: #ffe;*/
background-color: #fefefe;
}
.tableStatus .tableStatusVermerke td {
border: 0px solid white;
/*background-color: #ffe;*/
}
.tableStatus .tableStatusVermerke .vermerkHeader {
text-align: right;
}
.tableStatus .fremdspedition {
background-color: #eee;
/*font-style:italic;*/
}
.tableStatus .statusOK {
background-color: #0a0;
color: #fff;
text-align: center ;
font-size: 18px;
}
.tableStatus .statusNONE {
background-color: #ffdb00;
color: #000;
text-align: center;
font-size: 18px;
}
.tableStatus .statusPROBLEM {
background-color: #e10000;
color: #fff;
text-align: center;
font-size: 12px;
}
.tableStatus .statusUNDEF {
background-color: #eee;
color: #000;
text-align: center;
font-size: 18px;
}
.statusLKW_Ankunft {
font-size: 20px;
font-weight: bold;
background-color: #003680;
color: #fff;
height: 30px;
margin: auto;
vertical-align: middle;
text-align: center;
line-height: 30px;
}
.statusLKW_Freigegeben {
font-size: 20px;
font-weight: bold;
background-color: green;
color: #fff;
height: 30px;
margin: auto;
vertical-align: middle;
text-align: center;
line-height: 30px;
}
.statusLKW_Erfasst {
font-size: 20px;
font-weight: bold;
background-color: gray;
color: #fff;
height: 30px;
margin: auto;
vertical-align: middle;
text-align: center;
line-height: 30px;
}
.statusLKW_OK {
vertical-align: middle;
height: 50px;
top: 20px;
color: green;
line-height: 50px;
}

111
css/style.css Normal file
View File

@@ -0,0 +1,111 @@
@charset "utf-8";
/* CSS Document */
#eumap {
width: 532px;
height: 523px;
/*width: 1218px;
height: 1245px;*/
margin:0 auto;
background-color: #ffffff;
/*border: 1px solid black;*/
background: url("../images/Europakarte/Europakarte.jpg") no-repeat;
background-size: 100% 100%;
position: absolute;
/*top: 250px;*/
right: 0px;
display:inline-block;
z-index: 19;
}
.eumap_kreis{
width: 8px;
height: 8px;
border-radius: 4px;
border: 1px solid black;
background-color: #003680;
z-index:20;
cursor:pointer;
}
.eumap_detail{
display: none;
z-index:25;
}
.eumap_kreis:hover + div{
display: inline;
cursor:pointer;
/* z-index:25; */
}
.eumap_kreis_klein{
width: 5px;
height: 5px;
border-radius: 3px;
border: 1px solid black;
background-color: grey;
z-index:20;
cursor:pointer;
}
.eumap_kreis_klein:hover + div{
display: inline;
cursor:pointer;
/* z-index:25; */
}
.eumap_detail {
padding:10px;
width: 200px;
/* height: 50px;*/
margin-left:20px;
margin-top: -45px;
background-color: white;
border: 1px solid black;
border-radius: 10px;
z-index:25;
background-color: #eeeeee;
box-shadow: 1px 1px 1px black;
}
.eumap_detail p{
float:left;
}
.eumap_detail img{
padding:0px;
width: 150px;
/* height: 50px;*/
margin:5px;
margin-left:15px;
float:left;
box-shadow: 1px 1px 1px gray;
}
.eumap_detail p .eumap_detail_title{
font-family: Arial;
text-decoration: none;
font-size: 0.9em;
color: black;
font-weight: bold;
text-decoration: underline;
line-height: 30px;
}
.eumap_detail p .eumap_detail_adress{
font-family: Arial;
font-size: 0.7em;
line-height: 1.3em;
text-decoration: none;
color: black;
}
.map_Europa_points{ position: absolute;top: 0px;left: 0px; width: 100%; height: 100%; z-index: 29; }
.map_transparent{ position: absolute;top: 0px;left: 0px; width: 100%; height: 100%; display: none; cursor: pointer; z-index: 30; }

1
css/toptions/example.css Normal file
View File

@@ -0,0 +1 @@
#page_content h2{padding-bottom:6px;text-indent:0;background:none}#page_content ol{padding-bottom:5px}#demo a{margin-right:5px;border:0}

1
css/toptions/style.css Normal file
View File

@@ -0,0 +1 @@
*{margin:0;padding:0}html{height:100%}body{height:100%;color:white;font-family:"Lucida Grande", "Arial";font-size:11px;line-height:150%;background:#003343}h1,h2{text-indent:-9999px;background-repeat:no-repeat;background-image:url(../images/sprite-min.png)}h3{margin-top:5px;font-size:12px}a{color:white;outline-style:none;text-decoration:none;border-bottom:1px dotted white}a:hover{border-bottom:1px solid white}ol{margin-top:10px;padding-bottom:12px}ol li{margin-bottom:3px}li{margin-left:30px}div.top_padded{padding-top:3px}.box{margin:4px 0;padding:8px;background-color:#002933 !important;border:1px dashed #529796}.code{font-family:"Courier New", "Courier";font-size:10px}#page_background{height:113px;margin-bottom:-113px;background-image:url(../images/sprite-min.png);background-repeat:repeat-x;background-position:top}#page_wrapper{width:725px;margin:auto;padding-bottom:40px;position:relative}#page_header{height:113px;position:relative;cursor:pointer;background-image:url(../images/sprite-min.png);background-repeat:no-repeat;background-position:left -113px;border-bottom:1px dashed #529796}#page_header h1,#page_header h2{position:absolute}#page_header h2{top:30px;left:84px;width:174px;height:74px;background-image:url(../images/sprite-min.png);background-repeat:no-repeat;background-position:left -226px}#page_header h1{top:70px;left:258px;width:318px;height:12px;background-image:url(../images/sprite-min.png);background-repeat:no-repeat;background-position:left -300px}#page_content{padding:0 15px}#page_content h1,#page_content h2{margin-top:28px}#page_content h1{height:21px;margin-bottom:13px}#page_content h2{height:16px;margin-bottom:10px}#page_content p{margin-top:6px}#page_content p.intro{margin-top:11px;margin-left:12px}#examples{margin-left:15px;padding-top:5px}#examples img{margin:3px 7px 3px 7px}#examples a,#examples img{border:0}h1.thanks_for_download_top_up{background-position:left -1067px !important}h1.some_examples{background-position:left -620px !important}

157
default.aspx Normal file
View File

@@ -0,0 +1,157 @@
<%@ Page Language="VB" Debug="true" AutoEventWireup="false" CodeFile="default.aspx.vb" Inherits="_Default" %>
<!DOCTYPE html>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<%@ import Namespace="MySql.Data.MySqlClient" %>
<script runat="server">
Sub Page_Load() Handles Me.Load
' MsgBox ("test")
'Dim con As New MySqlConnection
'Dim cmd As New MySqlCommand
' Dim reader As MySqlDataReader
' con.ConnectionString = "Server=localhost;Database=verag_homepage;Uid=sec_user;Pwd=eKcGZr59zAa2BEWU;"
' cmd.Connection = con
'cmd.CommandText = "select * from map"
'Try
'con.Open()
'MsgBox("conn")
'reader = cmd.ExecuteReader
'grid.DataSource = reader
'reader.Read()
'MsgBox(reader("title"))
'DataBind()
'reader.Close()
'Catch ex As Exception
' MsgBox("err")
' End Try
' con.Close()
End Sub
' Public ReadOnly Property CurrentCity() As String
' Get
' Return "asd"
' End Get
' End Property,
</script>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8"/>
<title>VERAG Spedition AG</title>
<link rel="stylesheet" type="text/css" href="css/main.css"/>
<link rel="stylesheet" type="text/css" href="css/style.css"/>
<link rel="stylesheet" type="text/css" href="css/status.css"/>
<LINK REL="SHORTCUT ICON" HREF="images/Icons/favicon/favicon.ico" />
<!-- <link rel="stylesheet" type="text/css" href="css/edit_main.css"> -->
<script src="js/netzwerk.js" type="text/javascript"></script>
<link rel="stylesheet" type="text/css" href="../stylesheets/style.css"/>
<link rel="stylesheet" type="text/css" href="../stylesheets/example.css"/>
<script type="text/javascript">
// Vergebe den Event-Handler
document.onkeydown = handleKeyEvent;
// Funktion, die den Event verarbeitet
function handleKeyEvent(e) {
// MSIE nimmt das Event-Objekt aus window.event, DOM-kompatible Browser aus dem e-Funktionsparameter
if (!e) e = window.event;
// keyCode muss 70 sein und ctrlKey true
if (e.keyCode == 68 && e.ctrlKey) {
alert('Strg+D wurde gedrückt');
//topup
}
}
</script>
<script type="text/javascript" src="js/toptions/top_up-min.js"></script>
</head>
<body >
<!-- <a href="login/login_TEST.aspx" style="position:absolute;left:10px;top:10px;">LOGIN</a>-->
<form id="leftLinks" runat="server">
<!--<a href="sendFeedback.aspx" toptions="type = iframe, effect = fade, width = 500, height = 500, overlayClose = 1,shaded=0, layout = flatlook" style='padding:0px;margin:0px;width:50px;height:11px;color:#fff;text-decoration: none;'>
<div class="feedback">
<div class="feedback_txt">
Feedback
</div>
</div>
</a>
<a href="sendFeedback.php" toptions="type = iframe, effect = fade, width = 500, height = 500, overlayClose = 1,shaded=0, layout = flatlook" style='padding:0px;margin:0px;width:50px;height:11px;color:#fff;text-decoration: none;'>
<div class="aviso">
<div class="aviso_txt">
<nobr>Neues Aviso</nobr>
</div>
</div>
</a>
-->
<div id="bodycontent">
<div id="nav-main">
<div id="art-logo"></div>
</div>
<div id="main-menu">
</div>
<div id="main-page">
<div class="pagecontent">
<div class="content_all"><div class="content_all">
<%
'Dim lan As String = Request.QueryString("lan")
'If lan ="" then lan="de"
'Dim menuID As String = Request.QueryString("menuID")
'If menuID = "" Then menuID = "1"
'Dim DB2 As New cDBFunctions
%>
<% 'Response.Write(DB2.qry_contentNew(menuID, lan)) %>
</div>
<span class="content_all">
<h1>Herzlich Willkommen bei VERAG Spedition AG!</h1>
<div id="line"></div>
<br>
<span style="font-size:14px;">Die Seite befindet sich derzeit im Aufbau...</span>
</span>
</div>
</div>
</div>
</div>
</div>
<%-- <div class="footer_menu">
<div class="footer_menu_content">
<table>
<tr>
</tr>
</table>
</div>
</div>--%>
<div class="footer">
<div class="footer_content"><b>VERAG Spedition AG</b> &nbsp;&nbsp; A-4975 Suben 100 &nbsp;&nbsp; Tel.: +43 7711 2777-0,&nbsp;&nbsp;Fax: +43 7711 31600,&nbsp;&nbsp;email: info@verag.ag</div>
</div>
</form>
</body>
</html>

7
default.aspx.vb Normal file
View File

@@ -0,0 +1,7 @@

Partial Class _Default
Inherits System.Web.UI.Page
Sub test()
End Sub
End Class

32
default.htm Normal file
View File

@@ -0,0 +1,32 @@
<html>
<head>
</head
<body>
<br/>
<br/>
<center>
<img src="images\Atilla-Logo.jpg" >
<br/>
<br/>
<b>ATILLA Spedition GmbH</b> <br/>
Suben 14<br/>
A 4975 Suben<br/>
<br/>
Tel.: +43 7711 / 2845 - 0<br/>
Fax: +43 7711 / 2836 <br/>
E-Mail: <a href="mailto:atilla@verag.ag">atilla@verag.ag</a>
<br/>
<br/>
<br/>
<br/>
<img src="images\Under_Construction.jpeg" width="100">
<br/>
<br/>
Under construction ...
</center>
</body>
</html>

BIN
downloads/pdf.pdf Normal file
View File

Binary file not shown.

BIN
images/Atilla-Logo.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 36 KiB

BIN
images/Etzelshofen_02.gif Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 35 KiB

BIN
images/Europakarte/Albanien.gif Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 4.3 KiB

BIN
images/Europakarte/Albanien.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 15 KiB

BIN
images/Europakarte/Belgien.gif Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 4.3 KiB

BIN
images/Europakarte/Belgien.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 15 KiB

BIN
images/Europakarte/BosnienHerzegowina.gif Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 4.4 KiB

BIN
images/Europakarte/BosnienHerzegowina.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 16 KiB

BIN
images/Europakarte/Bulgarien.gif Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 5.2 KiB

BIN
images/Europakarte/Bulgarien.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 19 KiB

BIN
images/Europakarte/Daenemark.gif Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 5.2 KiB

BIN
images/Europakarte/Daenemark.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 19 KiB

BIN
images/Europakarte/Deutschland.gif Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 7.2 KiB

BIN
images/Europakarte/Deutschland.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 28 KiB

BIN
images/Europakarte/Estland.gif Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 4.8 KiB

BIN
images/Europakarte/Estland.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 17 KiB

BIN
images/Europakarte/Europa_points.gif Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 14 KiB

BIN
images/Europakarte/Europakarte.gif Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 104 KiB

BIN
images/Europakarte/Europakarte.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 66 KiB

BIN
images/Europakarte/Europakarte.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 290 KiB

BIN
images/Europakarte/Finnland.gif Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 8.0 KiB

BIN
images/Europakarte/Finnland.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 29 KiB

BIN
images/Europakarte/Frankreich.gif Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 8.2 KiB

BIN
images/Europakarte/Frankreich.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 34 KiB

BIN
images/Europakarte/Griechenland.gif Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 8.9 KiB

BIN
images/Europakarte/Griechenland.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 39 KiB

BIN
images/Europakarte/Holland.gif Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 4.7 KiB

BIN
images/Europakarte/Holland.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 17 KiB

BIN
images/Europakarte/Irland.gif Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 5.2 KiB

BIN
images/Europakarte/Irland.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 21 KiB

BIN
images/Europakarte/Island.gif Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 5.3 KiB

BIN
images/Europakarte/Island.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 22 KiB

BIN
images/Europakarte/Italien.gif Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 9.6 KiB

BIN
images/Europakarte/Italien.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 42 KiB

BIN
images/Europakarte/Kroatien.gif Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 5.6 KiB

BIN
images/Europakarte/Kroatien.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 23 KiB

BIN
images/Europakarte/Lettland.gif Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 4.9 KiB

BIN
images/Europakarte/Lettland.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 17 KiB

BIN
images/Europakarte/Lichtenstein.gif Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 3.4 KiB

BIN
images/Europakarte/Lichtenstein.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 11 KiB

BIN
images/Europakarte/Lithauen.gif Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 4.7 KiB

BIN
images/Europakarte/Lithauen.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 16 KiB

BIN
images/Europakarte/Luxemburg.gif Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 3.6 KiB

BIN
images/Europakarte/Luxemburg.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 11 KiB

BIN
images/Europakarte/Marzedonien.gif Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 4.2 KiB

Some files were not shown because too many files have changed in this diff Show More