<!--#include file="style.asp" -->
<!-- #include file = "connections/usercheck.asp" -->

<%
Response.Buffer = true            
Response.Expires = -1
Response.ExpiresAbsolute = Now() -2
Response.AddHeader "pragma", "no-cache"
Response.AddHeader "cache-control", "private"
Response.CacheControl = "no-cache" 

if Session("name") = "" OR Session("uid") = "" then
	Response.Redirect("login.asp")
else
	
	struserID = Session("uid")	
	strUserName = Session("name")	
	strUserName = uCase(Left(strUserName,1)) & lCase(Mid(strUserName ,2))
	strMedlems_ID = Session("Medlems_ID")
	strMedlemsnummer = Session("Medlemsnummer")
	strEPost = Session("epost")


Dim MM_editAction
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If

' boolean to abort record edit
Dim MM_abortEdit
MM_abortEdit = false
%>
<%
' IIf implementation
Function MM_IIf(condition, ifTrue, ifFalse)
  If condition = "" Then
    MM_IIf = ifFalse
  Else
    MM_IIf = ifTrue
  End If
End Function
%>
<%
If (CStr(Request("MM_update")) = "form1") Then
  If (Not MM_abortEdit) Then
    ' execute the update
    Dim MM_editCmd

    Set MM_editCmd = Server.CreateObject ("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_rsconn_STRING
    MM_editCmd.CommandText = "UPDATE SVFKMedlem SET Medlemsnummer = ?, Namn = ?, Efternamn = ?, Adress = ?, Postadress = ?, Land = ?, Telefon = ?, Mobiltelefon = ?, `E-Post` = ?, Ovrigt = ? WHERE Medlems_ID = " & strMedlems_ID 
    MM_editCmd.Prepared = true
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 5, 1, -1, MM_IIF(Request.Form("Medlemsnummer"), Request.Form("Medlemsnummer"), null)) ' adDouble
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 50, Request.Form("Namn")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 202, 1, 50, Request.Form("Efternamn")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 202, 1, 50, Request.Form("Adress")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 202, 1, 50, Request.Form("Postadress")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 202, 1, 50, Request.Form("Land")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 202, 1, 50, Request.Form("Telefon")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param8", 202, 1, 50, Request.Form("Mobiltelefon")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param9", 202, 1, 50, Request.Form("EPost")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param10", 202, 1, 100, Request.Form("Ovrigt")) ' adVarWChar
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close


   newProfileData = "Medlemsnr: " & Request.Form("Medlemsnummer") & _
					" Namn: " & Request.Form("Namn") & _
					" Efternamn: " & Request.Form("Efternamn") & _
					" Adress: " & Request.Form("Adress") & _
					" Postadress: " & Request.Form("Postadress") & _
					" Land: " & Request.Form("Land") & _
					" Telefon: " & Request.Form("Telefon") & _
					" Mobiltelefon: " & Request.Form("Mobiltelefon") & _
					" EPost: " & Request.Form("EPost") & _
					" Övrigt: " & Request.Form("Ovrigt")


	loggusername = Session("name")
	loggmedlemsid = Session("Medlems_ID")
	Ip = Request.Servervariables("REMOTE_ADDR")
	systemmessage = "OLD Profile DATA: " & Request.Form("oldprofile")
	systemmessage2 = "NEW Profile DATA: " & newProfileData
	
	Set Cmd = Server.CreateObject ("ADODB.Command")
    Cmd.ActiveConnection = MM_rsconn_STRING
    Cmd.CommandText = "Insert Into SVFKLogg(Ip, username, Medlems_ID, systemmessage, systemmessage2) VALUES (?, ?, ?, ?, ?)" 
    Cmd.Prepared = true
    Cmd.Parameters.Append Cmd.CreateParameter("param1", 202, 1, 50, ip) ' adVarWChar
    Cmd.Parameters.Append Cmd.CreateParameter("param2", 202, 1, 50, loggusername) ' adVarWChar
    Cmd.Parameters.Append Cmd.CreateParameter("param3", 202, 1, 50, loggmedlemsid) ' adVarWChar
    Cmd.Parameters.Append Cmd.CreateParameter("param4", 201, 1, 65535, systemmessage) ' adVarWChar
    Cmd.Parameters.Append Cmd.CreateParameter("param5", 201, 1, 65535, systemmessage2) ' adVarWChar	
    Cmd.Execute
    Cmd.ActiveConnection.Close


    Response.Redirect("default.asp")
	
  End If
End If
%>
<%
Dim rs
Dim rs_cmd
Dim rs_numRows

Set rs_cmd = Server.CreateObject ("ADODB.Command")
rs_cmd.ActiveConnection = MM_rsconn_STRING
rs_cmd.CommandText = "SELECT * FROM SVFKMedlem WHERE Medlems_ID = " & strMedlems_ID 
rs_cmd.Prepared = true

Set rs = rs_cmd.Execute
rs_numRows = 0

oldProfileData = 	"Medlemsnr: " & rs.Fields.Item("Medlemsnummer").Value & _
					" Namn: " & rs.Fields.Item("Namn").Value & _
					" Efternamn: " & rs.Fields.Item("Efternamn").Value & _
					" Adress: " & rs.Fields.Item("Adress").Value & _
					" Postadress: " & rs.Fields.Item("Postadress").Value & _
					" Land: " & rs.Fields.Item("Land").Value & _
					" Telefon: " & rs.Fields.Item("Telefon").Value & _
					" Mobiltelefon: " & rs.Fields.Item("Mobiltelefon").Value & _
					" EPost: " & rs.Fields.Item("E-Post").Value & _
					" Övrigt: " & rs.Fields.Item("Ovrigt").Value


%>
<%
Dim rsFORDON
Dim rsFORDON_cmd
Dim rsFORDON_numRows

Set rsFORDON_cmd = Server.CreateObject ("ADODB.Command")
rsFORDON_cmd.ActiveConnection = MM_rsconn_STRING
rsFORDON_cmd.CommandText = "SELECT * FROM SVFKFordon WHERE Medlems_ID = " & strMedlems_ID
rsFORDON_cmd.Prepared = true
rsFORDON_cmd.CommandText = rsFORDON_cmd.CommandText & " ORDER BY Kategori ASC, Bilmarke ASC" 

Set rsFORDON = rsFORDON_cmd.Execute
rsFORDON_numRows = 0
%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>SVFK medlemsregister Online - Redigera medlemsuppgifter</title>

<script language="javascript" type="text/javascript">
function limitText(limitField, limitCount, limitNum) {
	if (limitField.value.length > limitNum) {
		limitField.value = limitField.value.substring(0, limitNum);
	} else {
		limitCount.value = limitNum - limitField.value.length;
	}
}
</script>
<script type="text/javascript">

function setToRed ( )
{
var txt = document.createTextNode(" ...Lagrar uppgifter!");
document.getElementById('colourButton').appendChild(txt);
  setTimeout ( "setToBlack()", 999990 );
}

function setToBlack ( )
{
var txt = document.createTextNode("");
document.getElementById('colourButton').appendChild(txt);
}

</script>

</head>

<body onLoad="document.form1.Namn.focus()">
<form action="<%=MM_editAction%>" method="post" name="form1" id="form1">
<br /> 
<strong><img src="bilder/report.gif" width="40" height="46" /> Redigera medlemsuppgifter</strong><br />
<br />
<table align="left">
    <tr valign="baseline">
      <td width="91" align="right" nowrap="nowrap">Medlemsnr:</td>
      <td width="358"><input name="Medlemsnummer" type="text" readonly="readonly" value="<%=(rs.Fields.Item("Medlemsnummer").Value)%>" size="31" maxlength="50" />
        &lt;- Skrivskyddad</td>
    </tr>
    <tr valign="baseline">
      <td nowrap="nowrap" align="right">Namn:</td>
      <td><input name="Namn" type="text" value="<%=(rs.Fields.Item("Namn").Value)%>" size="50" maxlength="50" />      </td>
    </tr>
    <tr valign="baseline">
      <td nowrap="nowrap" align="right">Efternamn:</td>
      <td><input name="Efternamn" type="text" value="<%=(rs.Fields.Item("Efternamn").Value)%>" size="50" maxlength="50" />      </td>
    </tr>
    <tr valign="baseline">
      <td nowrap="nowrap" align="right">Adress:</td>
      <td><input name="Adress" type="text" value="<%=(rs.Fields.Item("Adress").Value)%>" size="50" maxlength="50" />      </td>
    </tr>
    <tr valign="baseline">
      <td nowrap="nowrap" align="right">Postadress:</td>
      <td><input name="Postadress" type="text" value="<%=(rs.Fields.Item("Postadress").Value)%>" size="50" maxlength="50" />      </td>
    </tr>
    <tr valign="baseline">
      <td nowrap="nowrap" align="right">Land:</td>
      <td><input name="Land" type="text" value="<%=(rs.Fields.Item("Land").Value)%>" size="50" maxlength="50" />      </td>
    </tr>
    <tr valign="baseline">
      <td nowrap="nowrap" align="right">Telefon:</td>
      <td><input name="Telefon" type="text" value="<%=(rs.Fields.Item("Telefon").Value)%>" size="50" maxlength="50" />      </td>
    </tr>
    <tr valign="baseline">
      <td nowrap="nowrap" align="right">Mobiltelefon:</td>
      <td><input name="Mobiltelefon" type="text" value="<%=(rs.Fields.Item("Mobiltelefon").Value)%>" size="50" maxlength="50" />      </td>
    </tr>
    <tr valign="baseline">
      <td nowrap="nowrap" align="right">E-Post:</td>
      <td><input name="EPost" type="text" value="<%=(rs.Fields.Item("E-Post").Value)%>" size="50" maxlength="50" />      </td>
    </tr>
    <tr valign="baseline">
      <td height="123" align="right" valign="top" nowrap="nowrap">Övrigt:</td>
      <td><textarea name="Ovrigt" cols="38" rows="3" onKeyDown="limitText(this.form.Ovrigt,this.form.countdown,90);" 
onKeyUp="limitText(this.form.Ovrigt,this.form.countdown,90);"><%=(rs.Fields.Item("Ovrigt").Value)%></textarea>
      <input name="oldprofile" type="hidden" value="<%=(oldProfileData)%>" size="50" maxlength="50" /><br>
<font size="1">(Max 90 tecken)<br>
Du kan skriva <input readonly type="text" name="countdown" size="3" value="90"> tecken till.</font>

      <br />
      <br /></td>
    </tr>
    <tr valign="baseline">
      <td height="2004" align="right" nowrap="nowrap">&nbsp;</td>
      <td valign="top">
        <div id="colourButton" align="left"><input type="submit" value="Spara medlem" onClick="setToRed()" /></div></td>
    </tr>
  </table>
  <input type="hidden" name="MM_update" value="form1" />
  <input type="hidden" name="MM_recordId" value="<%= rs.Fields.Item("Medlems_ID").Value %>" />
</form>
<strong>Fordon:</strong>
<%
While NOT rsFORDON.EOF
%>
</p>
<table border="0" cellspacing="0" cellpadding="0">
  <tr>
    <th colspan="7" scope="row"><hr size="1" /></th>
  </tr>
  <tr>
    <td width="70"><div align="left"><a href="fordondetail.asp?Fordons_ID=<%=rsFORDON.Fields.Item("Fordons_ID").Value %>"><%=(rsFORDON.Fields.Item("Kategori").Value)%></a></div></td>
    <td width="100"><div align="left"><%=(rsFORDON.Fields.Item("Bilmarke").Value)%></div></td>
    <td width="120"><div align="left"><%=(rsFORDON.Fields.Item("Modell").Value)%></div></td>
    <td width="70"><div align="left"><%=(rsFORDON.Fields.Item("Arsmodell").Value)%></div></td>
    <td width="150"><div align="left"><%=(rsFORDON.Fields.Item("Notering").Value)%></div></td>
    <td width="70"><div align="left"><a href="deletefordon.asp?Fordons_ID=<%=rsFORDON.Fields.Item("Fordons_ID").Value %>" onClick="return confirm('OK att radera fordon?')"><font color="#FF0000">Radera</font></a></div></td>    
    <td>&nbsp;</td>
  </tr>
</table>
<%
rsFORDON.MoveNext()
Wend
%>

  <tr>
    <th colspan="7" scope="row"><hr size="1" align="left" /></th>
  </tr>
  <br />
  <tr>
    <th colspan="7" scope="row"><div align="left"><a href="addfordon.asp">Lägg till fordon</a></div></th>
  </tr>
<%
rsFORDON.Close()
Set rsFORDON = Nothing
%>
</p>
</body>
</html>
<%
rs.Close()
Set rs = Nothing

end if
%>