nicht angemeldet
<%@ Language=VBScript%>
<% Response.Expires %>
<div style="display: none;"><div>
<html>
<head>
<title>Beratung erstellen</title>
</head>
<body>
</div></div>
<!-- Kopfdatei einfügen -->
<!-- #include file="head.htm" -->
<table align = "center" border = "8" bgcolor="#FFFFBB" cellpadding="10" width = "400"><tr>
<%
x = Request.QueryString("text")
Beratung_Text = replace(x,"'","''")
if Beratung_Text = "" then %>
<td>
<form method="get" action="erstellen.asp">
<p>Name der Beratung:<br>
<input name="text" type="text" size="60" maxlength="80">
</p><p>Zusatzinformationen zu dieser Beratung<br>
<textarea name="Beratungen_Zusatzinfo" cols="80" rows="4"></textarea>
</p>
<input type="submit" value=" Absenden ">
<input type="reset" value=" Abbrechen">
</td></form>
<% else %>
<!-- Verbindung öffnen -->
<!-- #include virtual="/dersisko/initConnection.asp" -->
<td align = "center">
<%
set rst = Server.CreateObject("ADODB.Recordset")
sql = "SELECT MAX(Beratungen_ID) AS Max_ID FROM Beratungen"
rst.Open sql, objConn
If rst("Max_ID") Then
newID = rst("Max_ID") + 1
Else
newID = 1
End If
x = Request.QueryString("Beratungen_Zusatzinfo")
Beratung_Zusatzinfo = replace(x,"'","''")
sqlString = "INSERT INTO Beratungen (Beratungen_ID,Beratungen_Text," & _
"Beratungen_Zusatzinfo)" & _
"VALUES ('" & newID & "','" & Beratung_Text & "','" & Beratung_Zusatzinfo & "')"
objConn.execute(sqlString)
rst.Close %>
<input type="button" value="Beratung Bearbeiten"
onClick="self.location.href='../Beratung_bearbeiten/Bearbeitungsart_auswaehlen.asp?<%_
Response.Write "Beratungen_ID=" & newID%>'"></td>
<!-- Verbindung schließen -->
<!-- #include virtual="/dersisko/closeConnection.asp" -->
<% end if %>
</tr></table>
<br><hr><p align = "center">
<a href="../default.asp" style = "font-size:14pt">zurück</a></p>
</body>
</html>