Visual Basic

Public Declare Function spssGetVarNValueLabels Lib "spssio32.dll" Alias "spssGetVarNValueLabels@20" (ByVal handle As Integer, ByVal varName As String, ByRef values() As Double, ByVal labels() As String, ByRef numofLabels As Integer) As Integer

Dim handle As Integer = 0
Dim varname As String = "subject"
Dim numvallabs As Integer
Dim values(10) As Double
Dim labels(10) As String

erro = spssGetVarNValueLabels(handle, varname, values, labels, numvallabs)

#include <stdio.h>
#include "spssdio.h"
void func()
{
int fH; /* file handle */
int error; /* error code */
int numL; /* number of values or labels */
double *nValuesL; /* values */
char **labelsL; /* labels */
...
error = spssOpenRead("bank.sav", &fH);
...
/* Get and print value labels for numeric variable SEX */
error = spssGetVarNValueLabels(fH, "SEX",
&nValuesL, &labelsL, &numL);
if (error == SPSS_OK)
{
int i;
printf("Value labels for SEX\n");
for (i = 0; i < numL; ++i)
{
printf("Value: %g, Label: %s\n", valuesL[i], labelsL[i]);
}
/* Free the values & labels */
spssFreeVarNValueLabels(nValuesL, labelsL, numL);
}
}</stdio.h>

Sub HTML2RTF(ByVal oWord As Microsoft.Office.Interop.Word.Application, ByVal sHTMLFileName As String)
  Const wdStory = 6
  Const wdLine = 5
  Const wdExtend = 1
  Const wdCharacter = 1
  Const wdFormatRTF = 6
  With oWord
    .Documents.Open(FileName:=sHTMLFileName)
    .Selection.EndKey(Unit:=wdStory)
    .Selection.MoveUp(Unit:=wdLine, Count:=2, Extend:=wdExtend)
    .Selection.EndKey(Unit:=wdLine, Extend:=wdExtend)
    .Selection.Delete(Unit:=wdCharacter, Count:=1)
    Dim fi As New IO.FileInfo(sHTMLFileName)
    Dim sRTFFileName As String = fi.FullName.Substring(0, fi.FullName.Length - fi.Extension.Length) & ".rtf"
    .ActiveDocument.SaveAs(FileName:=sRTFFileName, FileFormat:=wdFormatRTF)
    .ActiveWindow.Close()
  End With
End Sub

<WebMethod()> _
Public Function SignIn(ByVal Nick As String, ByVal Password As String) As Boolean
    If Not Membership.ValidateUser(Nick, Password) Then Return False

    Dim ticket As New FormsAuthenticationTicket(1, Nick, Now, Now.AddYears(1), True, "")
    Dim strEncryptedTicket As String = FormsAuthentication.Encrypt(ticket)
    Dim cookie As New HttpCookie(FormsAuthentication.FormsCookieName, strEncryptedTicket)
    Context.Response.Cookies.Add(cookie)
    Return True
End Function

<WebMethod()> _
Public Function SignIn(ByVal Nick As String, ByVal Password As String) As Boolean
    If Not Membership.ValidateUser(Nick, Password) Then Return False

    FormsAuthentication.SetAuthCookie(Nick, True)
    Return True
End Function

<WebMethod()> _
Public Function HelloWorld() As String
    If Not User.Identity.IsAuthenticated Then Return ""

    Return "Hello World"
End Function

' **** MailerPath = Your SMTP path (for eg: mail.[domain].com) ***

function CDOSYS_Mailer(Message, FromEmail, ToEmail, FromName, ToName, Subject, MailerPath, MailerPort, errText, searchURL)
on error resume next


dim Mailer
set Mailer = server.createobject("CDO.Message")
if err.number <> 0 then
errText = displayError("CDOSYS", searchURL, err.Number, err.Source, err.Description)
CDOSYS_Mailer = false : set Mailer = nothing : err.clear() : err = 0
exit function
end if

Mailer.From = FromName & " <" & FromEmail & ">"
Mailer.To = ToName & " <" & ToEmail & ">"
Mailer.TextBody = Message
Mailer.Subject = Subject
with Mailer.Configuration
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = MailerPath
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = MailerPort
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")=1
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername")="test@yourdomain.com"
.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword")="youremailpassword"
.Fields.Update
end with
Mailer.Send
if err.number <> 0 then
errText = displayError("CDOSYS", searchURL, err.Number, err.Source, err.Description)
CDOSYS_Mailer = false : set Mailer = nothing : err.clear() : err = 0
exit function
end if
set Mailer = Nothing
CDOSYS_Mailer = true
end function