+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/login/CreateUser.aspx.vb b/login/CreateUser.aspx.vb
new file mode 100644
index 0000000..52c1565
--- /dev/null
+++ b/login/CreateUser.aspx.vb
@@ -0,0 +1,5 @@
+
+Partial Class login_CreateUser
+ Inherits System.Web.UI.Page
+
+End Class
diff --git a/login/ForgotPW.aspx.vb b/login/ForgotPW.aspx.vb
index a1bd9b3..6c5836b 100644
--- a/login/ForgotPW.aspx.vb
+++ b/login/ForgotPW.aspx.vb
@@ -47,7 +47,7 @@ Partial Class ForgotPW
regexval_txt_Email.ErrorMessage = "Annotation: The Domain does not match."
regexval_txt_Email_2.Validate()
If regexval_txt_Email_2.IsValid = True Then
- email = txtEmail_M.Text
+ email = txtEmail.Text
lblMessage.ForeColor = Drawing.Color.Lime
lblMessage.Text = "E-mail Address valid."
End If
@@ -56,7 +56,7 @@ Partial Class ForgotPW
If regexval_txt_Email.IsValid = True Then
lblMessage.ForeColor = Drawing.Color.Lime
lblMessage.Text = "E-mail Address valid."
- email = txtEmail_M.Text
+ email = txtEmail.Text
End If
End If
End If
@@ -440,11 +440,12 @@ Partial Class ForgotPW
'pagename = Request.ServerVariables("SCRIPT_NAME")
mailto = email
Betreff = "Passwort reset"
+ Dim mailpic As String = ""
Dim Ausschusstext As String = "Wir arbeiten ausschließlich auf Grund der Allgemeinen Spediteurbedingungen in der jeweils geltenden Fassung. Zahlungen werden zunächst auf Frachten, Spesen"
Dim Ausschusstext2 As String = "und Zinsen zuletzt auf Zölle angerechnet. Zahlbar und klagbar in Schärding oder Ried. Steuer-Zoll-und Tarifauskünfte sind unverbindlich."
Dim Ausschusstext3 As String = "We operate exclusively on the basis of the General Freight Forwarding Terms and Conditions in the respectively applicable version. Payments are initially"
Dim Ausschusstext4 As String = "charged on freight, fees and interests and at last on customs duties. The place of jurisdiction: Schärding / Ried. Tax, customs and tariff information are not binding."
- htmlbody = String.Format("Dear {0},
Notice: The Link is valid for 30 minutes until" + Space(1) + Date.Now.AddMinutes(31).ToString() + Space(1) + "only!
Kind regards,
VERAG | EDV Support " + mailpic + "
VERAG Spedition AG | A 4975 Suben, Nr. 100 T.+43 7711 2777-xx |support@verag.ag |" + emailnr + "FN xxxxxxx " + Ausschusstext + " " + Ausschusstext2 + " " + Ausschusstext3 + " " + Ausschusstext4 + " ", username, password)
ElseIf String.IsNullOrWhiteSpace(HttpContext.Current.Request.ServerVariables("SERVER_NAME")) = True Then
getdomianenvironment = HttpContext.Current.Request.ServerVariables("SERVER_NAME")
'MsgBox(getdomianenvironment)
@@ -452,11 +453,12 @@ Partial Class ForgotPW
'pagename = Request.ServerVariables("SCRIPT_NAME")
mailto = email
Betreff = "Passwort reset"
+ Dim mailpic As String = ""
Dim Ausschusstext As String = "Wir arbeiten ausschließlich auf Grund der Allgemeinen Spediteurbedingungen in der jeweils geltenden Fassung. Zahlungen werden zunächst auf Frachten, Spesen"
Dim Ausschusstext2 As String = "und Zinsen zuletzt auf Zölle angerechnet. Zahlbar und klagbar in Schärding oder Ried. Steuer-Zoll-und Tarifauskünfte sind unverbindlich."
Dim Ausschusstext3 As String = "We operate exclusively on the basis of the General Freight Forwarding Terms and Conditions in the respectively applicable version. Payments are initially"
Dim Ausschusstext4 As String = "charged on freight, fees and interests and at last on customs duties. The place of jurisdiction: Schärding / Ried. Tax, customs and tariff information are not binding."
- htmlbody = String.Format("Dear {0},
VERAG Spedition AG | A 4975 Suben, Nr. 100 T.+43 7711 2777-xx |support@verag.ag | " + emailnr + "FN xxxxxxx " + Ausschusstext + " " + Ausschusstext2 + " " + Ausschusstext3 + " " + Ausschusstext4 + " ", username, password)
ElseIf String.IsNullOrWhiteSpace(HttpContext.Current.Request.ServerVariables("SERVER_NAME")) = True Then
'MsgBox("Error09:" + Environment.NewLine + "The Domain could not be vaildated. Check Link please or contact the Administrator of the program.")
lblMessage_M.ForeColor = Color.OrangeRed
@@ -522,11 +524,12 @@ Partial Class ForgotPW
'pagename = Request.ServerVariables("SCRIPT_NAME")
mailto = email
Betreff = "Passwort reset"
+ Dim mailpic As String = ""
Dim Ausschusstext As String = "Wir arbeiten ausschließlich auf Grund der Allgemeinen Spediteurbedingungen in der jeweils geltenden Fassung. Zahlungen werden zunächst auf Frachten, Spesen"
Dim Ausschusstext2 As String = "und Zinsen zuletzt auf Zölle angerechnet. Zahlbar und klagbar in Schärding oder Ried. Steuer-Zoll-und Tarifauskünfte sind unverbindlich."
Dim Ausschusstext3 As String = "We operate exclusively on the basis of the General Freight Forwarding Terms and Conditions in the respectively applicable version. Payments are initially"
Dim Ausschusstext4 As String = "charged on freight, fees and interests and at last on customs duties. The place of jurisdiction: Schärding / Ried. Tax, customs and tariff information are not binding."
- htmlbody = String.Format("Dear {0},
Notice: The Link is valid for 30 minutes until" + Space(1) + Date.Now.AddMinutes(31).ToString() + Space(1) + "only!
Kind regards, VERAG | EDV Support " + mailpic + " VERAG Spedition AG | A 4975 Suben, Nr. 100 T.+43 7711 2777-xx |support@verag.ag |" + emailnr + "FN xxxxxxx " + Ausschusstext + " " + Ausschusstext2 + " " + Ausschusstext3 + " " + Ausschusstext4 + " ", username, password)
ElseIf String.IsNullOrWhiteSpace(HttpContext.Current.Request.ServerVariables("SERVER_NAME")) = True Then
getdomianenvironment = HttpContext.Current.Request.ServerVariables("SERVER_NAME")
MsgBox(getdomianenvironment)
@@ -534,11 +537,12 @@ Partial Class ForgotPW
'pagename = Request.ServerVariables("SCRIPT_NAME")
mailto = email
Betreff = "Passwort reset"
+ Dim mailpic As String = ""
Dim Ausschusstext As String = "Wir arbeiten ausschließlich auf Grund der Allgemeinen Spediteurbedingungen in der jeweils geltenden Fassung. Zahlungen werden zunächst auf Frachten, Spesen"
Dim Ausschusstext2 As String = "und Zinsen zuletzt auf Zölle angerechnet. Zahlbar und klagbar in Schärding oder Ried. Steuer-Zoll-und Tarifauskünfte sind unverbindlich."
Dim Ausschusstext3 As String = "We operate exclusively on the basis of the General Freight Forwarding Terms and Conditions in the respectively applicable version. Payments are initially"
Dim Ausschusstext4 As String = "charged on freight, fees and interests and at last on customs duties. The place of jurisdiction: Schärding / Ried. Tax, customs and tariff information are not binding."
- htmlbody = String.Format("Dear {0},